LINK:[GoogleEarthとR][ShapeFileライブラリ][kmlラボ][空間的なデータの分析][Rでジオコーディング][RでGPS]


目次


論文引用・書籍等に引用する場合の著作権についての連絡>>okinawa


ShapeFileとは

シェープファイル(ESRI Shapefile)は、ESRI社の提唱した、公開されたベクタデータの業界標準フォーマットです。
ESRI・ERDAS製品はもちろん、多くのGISソフトウェアで利用が可能です。
しかし、無料のソフトを用いてシェープファイルの編集・加工をすることは(一部のソフトを除いて)できませんが、Rでは shapefiles, maptools, sp, rgdal を用いてシェープファイルの編集・加工をすることが可能です。
http://www.esrij.com/getting-started/learn-more/shapefile/

公開されているShapefileデータ

ESRIジャパン社が公開している全国市区町村界データの加工・再公開の許可について

http://www.esrij.com/products/data/japan-shp/
GISの基本データとなる、全国市区町村界データの整備を行うことを目的に、ESRIジャパン株式会社様が公開されている全国市区町村界データをRを用いて加工し公開する許可をいただきました。
下記のように、公開されるデータにつきましては、ESRIジャパン株式会社様の回答内容を守って取り扱っていただきますようよろしくお願いいたします。

メールの本文:
<問い合わせ内容>
はじめまして、牧山と申します。 実はR(アール)という統計ソフトのmaptoolsというライブラ リを用いて、ESRIJapan様が公開されている全国市区町村境界 データの県別の切り出しを行いました。 県別に切り出されたデータの著作権は当然貴社に帰属するので すが、切り出した後の県別のshapefileを別途公開することは 可能でしょうか? 県別のshapefileがあると、Rで地域研究されている先生方も大 助かりになると思います。 身勝手な相談で申し訳ございませんが、ご検討のほどよろしく お願いいたします。
<ご質問>
公開されている全国市区町村界データの取扱について
<回答>
「ご公開可能」と回答いたします。 ただし、以下の条件を遵守願います。
(1)営利目的には利用しない。
(2)公開時には、以下の文章を入れていただく。
「本データの作成に当たっては、ESRIジャパン株式会社の全国市区町村界データを使用しました。本データの著作権はESRIジャパン株式会社に帰属します。」

[2007/10/25]追加
ShapeFileライブラリで許可いただきました内容から、更に許可範囲を広げていただきましたので、その内容を公開いたします。

このたびはお問い合わせありがとうございました。
ご質問にお答えいたします。

<問い合わせ内容>
以前、「Rを利用したShapeFileの県別の切り出し加工・公開」を許可していただいたものです。
今回、ご相談したいことは、公開されている全国市区町村行政界ShapeFileデータにつきまして
(1)現在作成されている*緯度経度座標* (*回転楕円体:GRS1980、データム:JGD2000*)から他の測地系・座標系への変換した場合の加工物(ShapeFileもしくはそれ以外のフォーマット)の公開が可能か。
(2)ShapeFileからGoogleEarthのKMLへの変換を行った加工物の公開が可能か。

<回答>
「ご公開可能」と回答いたします。 ただし、以下の条件を遵守願います。
(1)営利目的には利用しない。
(2)公開時には、以下の文章を入れていただく。
「本データの作成に当たっては、ESRIジャパン株式会社の全国市区町村界データを使用しました。本データの著作権はESRIジャパン株式会社に帰属します。」

村上貴志さんが公開している地域メッシュデータの加工・再公開の許可について

http://d.hatena.ne.jp/murakami_tak/20080708/p1
下記のように利用の許可をいただきました。

「データの利用に関してですが,著作者の表記(書式自由)をして頂ければ自由にご利用ください。公開されたデータが非営利・営利いずれの使われ方をしても構いません。」
「もし,私の作ったデータがオープンソース・コミュニティの役に立つのであれば望外の幸せです。」

データの加工・公開にあたっては下記の文章を入れてください。
「本データの作成にあたっては、財団法人 地域地盤環境研究所 村上貴志氏のメッシュデータを使用しました。本データの著作権は村上貴志氏に帰属します。」
また、公開されるデータにつきましては、村上貴志さんの回答内容を守って取り扱っていただきますようよろしくお願いいたします。

(2009.09.12追記) 上記の利用条件を設けていましたが,これらを削除・撤回いたします。皆様の責任においてご自由にお使いください。本データを利用して得た成果を公表される際には,引用元を明示していただけると幸いです。

北海道地図株式会社が公開している地域メッシュインデックスデータの加工・再公開の許可について

http://www.hcc.co.jp/solutionhp/gismap/mesh10km/download.html
北海道地図株式会社様から下記の通り許可をいただきました。

さてお問い合わせの件ですが、下記の条件を遵守いただけましたら加工・公開していただいて結構です。
�営利目的に使用しないこと。
�公開時には下記の文章を記載いただくこと。
「本データの作成に当たっては、北海道地図株式会社のメッシュインデックスデータを使用しました。本データの著作権は北海道地図株式会社に帰属します。」
以上宜しくお願い申し上げます。

公開されるデータにつきましては、北海道地図株式会社様の回答内容を守って取り扱っていただきますようよろしくお願いいたします。

みんなの地球地図プロジェクトshapeFileデータ

http://www.globalmap.org/download/kanni01.html
利用上の注意(著作権など)
http://www.globalmap.org/download/index_kanni.html

国土交通省 国土数値情報データ変換ツールと街区レベル位置参照情報データでshapefileが作成できます

国土数値情報データ変換ツール http://nlftp.mlit.go.jp/ksj/index.html
街区レベル位置参照情報ダウンロード http://nlftp.mlit.go.jp/isj/

国土地理院基盤地図情報ダウンロードサービス

http://fgd.gsi.go.jp/download/

GADAM

http://www.gadm.org/

地域メッシュShapeFileデータ

**地域メッシュについての解説** http://www.esrij.com/support/arcview3/material/mesh/index.html

北海道地図株式会社が公開しているメッシュインデックスデータ
UTM座標、平面直角座標の日本測地系、世界測地系の10kmメッシュインデックスデータ、第2次地域区画(日本測地系、世界測地系)のShapeFileが公開されています。
http://www.hcc.co.jp/solutionhp/gismap/mesh10km/download.html

村上さんのサイトで第1次地域区画、第2次地域区画、基準地域メッシュ、分割地域メッシュ(2分の1地域メッシュ:都道府県別)が公開されています。
http://d.hatena.ne.jp/murakami_tak/20080708/p1

コメント欄


全国市区町村界ShapeFileの県別分解プログラム(新)

Macで読み込む場合の前処理。dbf内のSJIS(cp932)をUTF-8に変換します。****は個人のディレクトリ名

library(foreign)
f<-read.dbf("/Users/****/japan_ver71-1/japan_ver71.dbf")
f$KEN<-iconv(f$KEN,"CP932","UTF-8")
f$SICHO<-iconv(f$SICHO,"CP932","UTF-8")
f$GUN<-iconv(f$GUN,"CP932","UTF-8")
f$SEIREI<-iconv(f$SEIREI,"CP932","UTF-8")
f$SIKUCHOSON<-iconv(f$SIKUCHOSON,"CP932","UTF-8")
write.dbf(f,"/Users/****/japan_ver71-1/japan_ver71.dbf",factor2char = TRUE,max_nchar = 254)

分解プログラム

#function
prefbuilderJP<-function(path,filename){
 library(maptools)
 path<-path
 filename<-filename
 File<-paste(path,"/",filename,sep="")
 jpn<-readShapePoly(File)
 prefname<-c("北海道","青森県","岩手県","宮城県","秋田県","山形県","福島県",
             "茨城県","栃木県","群馬県","埼玉県","千葉県","東京都",
             "神奈川県","新潟県","富山県","石川県","福井県","山梨県","長野県",
             "岐阜県","静岡県","愛知県","三重県","滋賀県","京都府","大阪府",
             "兵庫県","奈良県","和歌山県","鳥取県","島根県",
             "岡山県","広島県","山口県",
             "徳島県","香川県","愛媛県","高知県",
             "福岡県","佐賀県","長崎県","熊本県","大分県","宮崎県","鹿児島県",
             "沖縄県")
 preflist<-c("hokkaido","aomori","iwate","miyagi","akita","yamagata","fukusima",
             "ibaraki","tochigi","gunma","saitama","chiba","tokyo",
             "kanagawa","niigata","toyama","isikawa","fukui","yamanasi","nagano",
             "gifu","sizuoka","aichi","mie","siga","kyoto","osaka",
             "hyogo","nara","wakayama","tottori","simane",
             "okayama","hirosima","yamaguti","tokusima","kagawa","ehime","kochi",
             "fukuoka","saga","nagasaki","kumamoto","ooita","miyazaki","kagosima","okinawa")
 Command<-paste(preflist,"<-subset(jpn,jpn@data$KEN=='",prefname,"')",sep="")
 eval(parse(text=Command))
 Command3<-paste("writePolyShape(",preflist,",'",path,"/",preflist,".shp')",sep="")
 eval(parse(text=Command3))
}
#Main
prefbuilderJP("/Users/****/japan_ver71-1","japan_ver71.shp")

全国市区町村界ShapeFileの県別分解プログラム(旧)

ESRIジャパン社より宿題を出されたのですが作成するのが大変なので、自動作成用のプログラムを作りました。
ShapeFileまでのパスとShapeFile名をパラメータに設定してください。(下記は、C:/japan_ver61フォルダ内にjapan_ver61.shpがある場合)

#function
prefbuilderJP<-function(path,filename){
library(maptools)
path<-path
filename<-filename
File<-paste(path,"/",filename,sep="")
jpn<-read.shape(File)
jpnpoly<-Map2poly(jpn)
jpndf<-jpn$att.data
prefname<-c("北海道","青森県","岩手県","宮城県","秋田県","山形県","福島県",
"茨城県","栃木県","群馬県","埼玉県","千葉県","東京都",
"神奈川県","新潟県","富山県","石川県","福井県","山梨県","長野県",
"岐阜県","静岡県","愛知県","三重県","滋賀県","京都府","大阪府",
"兵庫県","奈良県","和歌山県","鳥取県","島根県",
"岡山県","広島県","山口県",
"徳島県","香川県","愛媛県","高知県",
"福岡県","佐賀県","長崎県","熊本県","大分県","宮崎県","鹿児島県",
"沖縄県")
preflist<-c("hokkaido","aomori","iwate","miyagi","akita","yamagata","fukusima",
"ibaraki","tochigi","gunma","saitama","chiba","tokyo",
"kanagawa","niigata","toyama","isikawa","fukui","yamanasi","nagano",
"gifu","sizuoka","aichi","mie","siga","kyoto","osaka",
"hyogo","nara","wakayama","tottori","simane",
"okayama","hirosima","yamaguti","tokusima","kagawa","ehime","kochi",
"fukuoka","saga","nagasaki","kumamoto","ooita","miyazaki","kagosima","okinawa")
Command<-paste(preflist,"poly<-subset(jpnpoly,jpndf$PREF=='",prefname,"')",sep="")
eval(parse(text=Command))
Command2<-paste(preflist,"df<-subset(jpndf,jpndf$PREF=='",prefname,"')",sep="")
eval(parse(text=Command2))
Command3<-paste("write.polylistShape(",preflist,"poly,",preflist,"df,","'",path,"/",preflist,"')",sep="")
eval(parse(text=Command3))
}
#Main
prefbuilderJP("C:/japan_ver61","japan_ver61.shp")

分解後のデータです。

1995年10月
2002年10月
2004年3月
2006年4月
2007年1月
2007年10月

「本データの作成に当たっては、ESRIジャパン株式会社の全国市区町村界データを使用しました。本データの著作権はESRIジャパン株式会社に帰属します。」

ShapeFileデータ(地域境界・地域メッシュ)

**地域メッシュについての解説** http://www.esrij.com/support/arcview3/material/mesh/index.html

県コード地域名称地域境界ShapeFile地域メッシュ名称地域メッシュShapeFile備考
#日本全図 第1次地域区画
第2次地域区画
#北海道地方
01北海道 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
北海道(北方領土なし)
#東北地方
02青森県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
03岩手県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
04宮城県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
05秋田県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
06山形県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
07福島県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080707/p1]LINK
#関東地方
08茨城県 1kmメッシュ
500mメッシュ
250mメッシュ[[http://d.hatena.ne.jp/murakami_tak/20080706/p1)
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080706/p1]LINK
10群馬県 1kmメッシュ
500mメッシュ
250mメッシュStdMesh05_JGD_10_SHP.zipLINK
11埼玉県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080706/p1]LINK
12千葉都 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080706/p1]LINK
13東京都 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080706/p1]LINK
東京都(島なし)
14神奈川県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080706/p1]LINK
#中部地方
15新潟県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
16富山県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
17石川県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
18福井県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
19山梨県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
20長野県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
21岐阜県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
22静岡県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
23愛知県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
24三重県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080705/p1]LINK
#近畿地方
25滋賀県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
26京都府 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
27大阪府 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
28兵庫県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
29奈良県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
30和歌山県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080704/p1]LINK
#中国地方
31鳥取県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
32島根県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
33岡山県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
34広島県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
35山口県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
#四国地方
36徳島県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
37香川県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
38愛媛県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
39高知県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080703/p1]LINK
#九州・沖縄地方
40福岡県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
41佐賀県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
42長崎県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
43熊本県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
44大分県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
45宮崎県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
46鹿児島県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
47沖縄県 1kmメッシュ
500mメッシュ
250mメッシュ[http://d.hatena.ne.jp/murakami_tak/20080701/p1]LINK
沖縄本島

「本データ(地域境界データ)の作成に当たっては、ESRIジャパン株式会社の全国市区町村界データを使用しました。本データの著作権はESRIジャパン株式会社に帰属します。」[生成元データ:Japan.zip ver4.0:2004/03]
「本データの作成にあたっては、財団法人 地域地盤環境研究所 村上貴志氏のメッシュデータを使用しました。本データの著作権は村上貴志氏に帰属します。」

RでShapeFileの編集・作成

maptoolsでShapeFileを切り出す方法(この方法はmaptoolsからread.shape関数がなくなり使えなくなりました。readShapePoly関数を使用してください。)

R2.0.1J,maptoolsv0.4-13でShapeFileの作成に成功しました。WriteしてもRが落ちなくなりました。

library(maptools)
jpn<-read.shape("japan_jdg.shp")
jpn_poly<-Map2poly(jpn)
jpn_df<-jpn$att.data
hokkaido_poly<-subset(jpn_poly,jpn_df$PREF=="北海道")
hokkaido_df<-subset(jpn_df,jpn_df$PREF=="北海道")
write.polylistShape(hokkaido_poly,hokkaido_df,"hokkaido")

実行環境:WINXPSP2,R2.0.1J,maptools v0.4-13

注)なんでも掲示板の「maptoolsでshapefileの切り出し」を参照してください。

maptools/gpclibで県境描画

#ライブラリ宣言
library(maptools)
library(gpclib)
#ShapeFile読み込み
#読み込むShapeFileの場所は、任意に指定してください
gunma <- read.shape("c:/Program Files/R/rwww/shapefiles/gunma.shp")
#Mapオブジェクトをポリゴンに変換
gunma.poly <- Map2poly(gunma) 
#ポリゴンの数抽出
np<-length(gunma.poly)
#gpclib の座標形式に変換
gunma.union <- as(gunma.poly[[1]],"gpc.poly") #gpclibのオブジェクトに変換
for(i in 2:np){
  poly <- as(gunma.poly[[i]],"gpc.poly") #gpclibのオブジェクトに変換
  gunma.union<-union( gunma.union, poly) #Union(合成)
}
#県境plot(線種:太さ、形式、色:塗りつぶし色、線色)
plot(gunma.union,poly.args= list(lwd=2,lty=1,col="green",border="blue"))
#市町村境との合成
plot(gunma.poly,border="blue",add=TRUE)

sp/maptools/gpclibで県境描画

library(sp)
library(gpclib)
library(maptools)
nc1 <- readShapePoly("C:/GISdat/fukusima.shp", proj4string=CRS("+proj=longlat +datum=NAD27"))
lps <- getSpPPolygonsLabptSlots(nc1)
ID <- cut(lps[,1],breaks=c(min(lps[,1]),max(lps[,1])) , include.lowest=TRUE)
reg4 <- unionSpatialPolygons(nc1, ID)
plot(reg4,col="red")

sp/maptools/gpclibで県境描画後ShapeFileで保存する

library(sp)
library(gpclib)
library(maptools)
nc1 <- readShapePoly("C:/GISdat/fukusima.shp", proj4string=CRS("+proj=longlat +datum=NAD27"))
lps <- getSpPPolygonsLabptSlots(nc1)
ID <- cut(lps[,1],breaks=c(min(lps[,1]),max(lps[,1])) , include.lowest=TRUE)
reg4 <- unionSpatialPolygons(nc1, ID)
getSpPPolygonsIDSlots(reg4)
reg4@polygons[[1]]@ID<-"0"
df<-nc1@data[1,1:length(names(nc1))]
x <- SpatialPolygonsDataFrame(reg4, df)#IDとdfのナンバーを一致させる!
writePolyShape(x, "C:/GISdat/fukusimakk", factor2char = TRUE)

rgdal/maptoolsでKMLからSHPへの変換

rgdalでKMLのreadができるようになったので、KMLからShapeFileへ変換してみた。
注)あらかじめwriteOGRでkmlを作成しておくこと。GoogleEarthとRのベクターオーバーレイ rgdal:writeOGR参照

library(rgdal)
x<-readOGR("c:/GISdata/gunma.kml","gunma")
writeOGR(x2,"c:/GISdata/gunmak","gunmak","ESRI Shapefile")

もしくは

library(maptools)
library(rgdal)
x<-readOGR("c:/GISdata/gunma.kml","gunma")
writePolyShape(x, "C:/GISdata/gunmak", factor2char = TRUE)

helpにも書いてあるが、KMLのバルーン内に書かれている情報はDBFには変換されなかった。readOGRでKMLを読み込むとSpatialPolygonsDataFrameクラスになっており、そこに別途データを追加することはできる。

メッシュshapefileの加工

メッシュShapeFileデータ(世界測地系:第2次地域区画)をダウンロードしてC:直下に展開

jpn<-read.shape("C:/jgd2000_mesh/mesh_jgd2000.shp")
jpnpoly<-Map2poly(jpn)
jpndf<-jpn$att.data
poly<-subset(jpnpoly,substr(jpndf$MESH,1,4)=="5235")#京都および大阪
plot(poly)
poly2<-subset(jpnpoly,jpndf$MESH=="523501")#京都首都
plot(poly2)

R以外のツールを使ってShapeFileを作成

fGISを使って県境のシェープファイルを作成する方法

maptoolsとgpclibでいちいち県境を描画するのが面倒な場合、fGISを使って県境を作っておくのが便利です。
・fGISを下記のサイトからダウンロードしてください。(フリーです)
http://www.forestpal.com/fgis.html
・fGISでShapeFileを開きます。読み込まれたShapeFileをクリックして選択します。(ハイライトします)
・[Edit]メニューから[StartEditing]を選びます。
・[pick tool](赤い矢印)で市区町村を全て[ctrl+click]して選択し、[Edit]メニューの[Union Selected Shapes]を選びます。
・[CloseShape]を選択し、保存します。
・出来上がった県ShapeFileのxxxxx.dbfをExcel等で開いて、1行目に正確な県の情報を入力して保存します。

TatukGISEditorを使って県境のシェープファイルを作成する方法

・TatukGISEditorを下記のサイトからダウンロードしてください。(試用期間ありのデモ版、登録が必要)
http://www.tatukgis.com/Home/home.aspx
・TatukGISEditorを起動し、[Layer]-[Add...]を選びます。
・Select Localize アイコン(矢印に+)で、市区町村を全て[ctrl+click]して選択し、[Shape]-[union shapes]を選びます。
・するとShapes unionウインドウが表示されるので、[Next>>][Next>>]でポリゴンが結合されます。
・[Layer][Export]で出力名を指定してsaveします。
・出来上がった県ShapeFileのxxxxx.dbfをExcel等で開いて、1行目に正確な県の情報を入力して保存します。

ShapeFileのクリーニング

こちらで公開しているShapeFileにはJCODEが0および1999のものが含まれています。これらのコードを消去してきれいにするコードです。
0および1999のJCODEは、湖沼や島データがほとんどのようです。ただし、湖沼データでも市町村のJCODEが割り当てられているものもありました。(日光中禅寺湖など)
その場合には、ボイドにはなっていないようで、手動で消去する必要があります。

library(maptools)
FileName<-"japan_jdg"
jpn<-read.shape(FileName)
jpn_poly<-Map2poly(jpn)
jpn_df<-jpn$att.data
japan_poly<-subset(jpn_poly,jpn_df$JCODE!=0)
japan_df<-subset(jpn_df,jpn_df$JCODE!=0)
japan_poly2<-subset(japan_poly,japan_df$JCODE!=1999)
japan_df2<-subset(japan_df,japan_df$JCODE!=1999)
japan_df2$CITY2<-ifelse(is.na(japan_df2$CITY2),"",as.character(japan_df2$CITY2))
japan_df2$CITY1<-ifelse(is.na(japan_df2$CITY1),"",as.character(japan_df2$CITY1))
japan_df2$TOWN1<-ifelse(is.na(japan_df2$TOWN1),"",as.character(japan_df2$TOWN1))
japan_df2$TOWN2<-ifelse(is.na(japan_df2$TOWN2),"",as.character(japan_df2$TOWN2))
write.polylistShape(japan_poly2,japan_df2,FileName)

「地球地図」の境界(行政域)の2000年ポリゴンデータ(bnda.shp ver1.0)のBNDNET_IDとJCODEの変換テーブル

注)bnda_trans_table2.zipは、

JCODE 都道府県 支庁名    自治体名  備考
01698 北海道   根室支庁  留別村    択捉郡
01695 北海道   根室支庁  色丹村    色丹郡
13381 東京都   三宅支庁  三宅村

のコードを追加しています。
なお、三重北牟婁郡は「北牟婁郡紀伊長島町及び海山町にまたがる入会地(大島等の島嶼)は,所属未定のため」とあり、2005年に紀北町として登録されていますが、
データマッチングさせた2002年時点では所属不明のため、コード付けはしませんでした。

プロジェクションについて

 別のサイトで、こちらからダウンロードしたデータにプロジェクションデータが無いという指摘がされていましたので、とりあえずjapan_jdgのものをアップしておきます。このデータをそれぞれの都道府県名に変更してShapeFileと同じところに置いてください。

コメント欄(過去分)

アクセス数:

29362 人


添付ファイル: filehirosimk.zip 3015件 [詳細] fileStdMesh03_JGD_16_SHP.zip 2177件 [詳細] fileStdMesh03_JGD_22_SHP.zip 2162件 [詳細] fileStdMesh04_JGD_43_SHP.zip 2155件 [詳細] filejapan_ver40.zip 2653件 [詳細] filekantok.zip 3358件 [詳細] filefukusima.zip 2031件 [詳細] fileStdMesh04_JGD_25_SHP.zip 2202件 [詳細] fileStdMesh03_JGD_05_SHP.zip 2278件 [詳細] fileStdMesh04_JGD_44_SHP.zip 2086件 [詳細] fileStdMesh04_JGD_12_SHP.zip 2206件 [詳細] filetottorik.zip 2912件 [詳細] filetokusimk.zip 2959件 [詳細] fileStdMesh03_JGD_32_SHP.zip 2087件 [詳細] fileooita.zip 1905件 [詳細] fileStdMesh03_JGD_11_SHP.zip 2245件 [詳細] filefukuik.zip 2940件 [詳細] filehyogo.zip 2012件 [詳細] fileStdMesh04_JGD_38_SHP.zip 2195件 [詳細] filejapan_ver61.zip 2736件 [詳細] fileStdMesh04_JGD_11_SHP.zip 2225件 [詳細] fileStdMesh03_JGD_46_SHP.zip 2134件 [詳細] filesaitama.zip 2054件 [詳細] fileStdMesh03_JGD_21_SHP.zip 2205件 [詳細] filenara.zip 2013件 [詳細] filechiba.zip 2014件 [詳細] fileStdMesh04_JGD_18_SHP.zip 2083件 [詳細] filesaitamak.zip 3939件 [詳細] filekanagawa.zip 2039件 [詳細] fileStdMesh03_JGD_38_SHP.zip 2146件 [詳細] fileStdMesh04_JGD_46_SHP.zip 2129件 [詳細] fileyamaguti.zip 1886件 [詳細] fileStdMesh03_JGD_40_SHP.zip 2162件 [詳細] fileshiga.zip 1885件 [詳細] fileiwate.zip 1973件 [詳細] fileStdMesh04_JGD_33_SHP.zip 2118件 [詳細] fileStdMesh03_JGD_01_SHP.zip 2875件 [詳細] fileStdMesh04_JGD_16_SHP.zip 2094件 [詳細] fileStdMesh04_JGD_01_SHP.zip 2622件 [詳細] filefukusimk.zip 3290件 [詳細] filenigatak.zip 3095件 [詳細] fileStdMesh03_JGD_28_SHP.zip 2334件 [詳細] fileStdMesh04_JGD_15_SHP.zip 2239件 [詳細] fileshizuokk.zip 3103件 [詳細] fileStdMesh03_JGD_45_SHP.zip 2178件 [詳細] filemie.zip 1970件 [詳細] fileStdMesh04_JGD_28_SHP.zip 2280件 [詳細] fileyamanask.zip 2912件 [詳細] fileStdMesh04_JGD_22_SHP.zip 2219件 [詳細] filetokyohk.zip 3963件 [詳細] filejapan_jdg.prj 3253件 [詳細] fileStdMesh03_JGD_27_SHP.zip 2210件 [詳細] fileStdMesh03_JGD_18_SHP.zip 2132件 [詳細] fileokinawak.zip 68件 [詳細] fileStdMesh04_JGD_31_SHP.zip 2141件 [詳細] fileyamanasi.zip 1921件 [詳細] fileStdMesh03_JGD_17_SHP.zip 2100件 [詳細] fileStdMesh03_JGD_44_SHP.zip 2115件 [詳細] fileStdMesh04_JGD_02_SHP.zip 2189件 [詳細] filefukuoka.zip 2077件 [詳細] filegifu.zip 1977件 [詳細] fileStdMesh04_JGD_06_SHP.zip 2317件 [詳細] fileyamagatk.zip 3109件 [詳細] fileStdMesh03_JGD_20_SHP.zip 2129件 [詳細] fileStdMesh04_JGD_40_SHP.zip 2094件 [詳細] fileStdMesh04_JGD_36_SHP.zip 2103件 [詳細] fileishikawa.zip 1957件 [詳細] filenaganok.zip 3088件 [詳細] filesikokuk.zip 2980件 [詳細] fileStdMesh03_JGD_08_SHP.zip 2270件 [詳細] filetokyoh.zip 968件 [詳細] filetottori.zip 1902件 [詳細] fileyamagutk.zip 2962件 [詳細] filekanagawk.zip 3924件 [詳細] fileiwatek.zip 3106件 [詳細] fileehime.zip 1944件 [詳細] fileStdMesh03_JGD_39_SHP.zip 2133件 [詳細] fileStdMesh03_JGD_26_SHP.zip 2182件 [詳細] filebnda_trans_table.zip 2586件 [詳細] filechibak.zip 3981件 [詳細] filejapan_ver30.zip 2773件 [詳細] fileStdMesh04_JGD_45_SHP.zip 2223件 [詳細] fileStdMesh04_JGD_27_SHP.zip 2228件 [詳細] fileStdMesh04_JGD_41_SHP.zip 2153件 [詳細] fileStdMesh03_JGD_41_SHP.zip 2087件 [詳細] fileStdMesh04_JGD_09_SHP.zip 2215件 [詳細] fileStdMesh04_JGD_39_SHP.zip 2150件 [詳細] filehyogok.zip 3138件 [詳細] fileokayama.zip 2082件 [詳細] fileStdMesh04_JGD_34_SHP.zip 2211件 [詳細] fileStdMesh03_JGD_15_SHP.zip 2188件 [詳細] fileStdMesh04_JGD_20_SHP.zip 2237件 [詳細] fileStdMesh04_JGD_14_SHP.zip 2217件 [詳細] filetochigi.zip 1988件 [詳細] filefukuokak.zip 3173件 [詳細] filejapank.zip 7730件 [詳細] filegifuk.zip 3078件 [詳細] filetoyama.zip 1957件 [詳細] filenagano.zip 2000件 [詳細] fileStdMesh03_JGD_36_SHP.zip 2068件 [詳細] fileStdMesh04_JGD_29_SHP.zip 2075件 [詳細] fileStdMesh03_JGD_34_SHP.zip 2280件 [詳細] filenagasakk.zip 2992件 [詳細] filetokyok.zip 3740件 [詳細] filehirosima.zip 2021件 [詳細] filekyoto.zip 1943件 [詳細] fileStdMesh04_JGD_30_SHP.zip 2035件 [詳細] fileStdMesh04_JGD_21_SHP.zip 2190件 [詳細] fileStdMesh03_JGD_07_SHP.zip 2261件 [詳細] filegunma.zip 2092件 [詳細] fileStdMesh04_JGD_10_SHP.zip 2197件 [詳細] fileaichik.zip 3382件 [詳細] fileishikawk.zip 3013件 [詳細] fileStdMesh03_JGD_25_SHP.zip 2063件 [詳細] fileshizuoka.zip 1978件 [詳細] filekagosima.zip 1919件 [詳細] fileibaragik.zip 3704件 [詳細] fileStdMesh04_JGD_26_SHP.zip 2151件 [詳細] filetokyo.kml 1827件 [詳細] filesimanek.zip 2985件 [詳細] filemiyagi.zip 1971件 [詳細] fileaomori.zip 2029件 [詳細] filesimane.zip 1973件 [詳細] fileStdMesh04_JGD_07_SHP.zip 2266件 [詳細] filewakayama.zip 1972件 [詳細] filekyotok.zip 3079件 [詳細] filehokkaido.zip 2254件 [詳細] filetochigik.zip 3164件 [詳細] fileStdMesh03_JGD_02_SHP.zip 2259件 [詳細] fileokayamak.zip 3081件 [詳細] filenigata.zip 1935件 [詳細] fileStdMesh03_JGD_14_SHP.zip 2228件 [詳細] fileStdMesh03_JGD_33_SHP.zip 2115件 [詳細] fileStdMesh04_JGD_19_SHP.zip 2130件 [詳細] fileStdMesh04_JGD_35_SHP.zip 2149件 [詳細] filehokkaidk.zip 3652件 [詳細] fileosaka.zip 2033件 [詳細] fileStdMesh04_JGD_23_SHP.zip 2186件 [詳細] filemiyazakk.zip 3161件 [詳細] fileStdMesh03_JGD_23_SHP.zip 2191件 [詳細] fileooitak.zip 3014件 [詳細] filegunmak.zip 3901件 [詳細] fileStdMesh04_JGD_05_SHP.zip 2226件 [詳細] filekagawa.zip 1960件 [詳細] filesagak.zip 2943件 [詳細] fileStdMesh04_JGD_04_SHP.zip 2263件 [詳細] filebnda_trans_table2.zip 1535件 [詳細] fileStdMesh04_JGD_13_SHP.zip 2402件 [詳細] filekumamoto.zip 1966件 [詳細] filechubuk.zip 3045件 [詳細] filekagosimk.zip 3046件 [詳細] fileStdMesh04_JGD_47_SHP.zip 2249件 [詳細] fileokinawhk.zip 67件 [詳細] fileStdMesh01.zip 2999件 [詳細] filekochik.zip 2924件 [詳細] filekinkik.zip 3155件 [詳細] fileokinawah.zip 1854件 [詳細] fileStdMesh03_JGD_19_SHP.zip 2156件 [詳細] fileStdMesh03_JGD_29_SHP.zip 2122件 [詳細] fileStdMesh03_JGD_03_SHP.zip 2296件 [詳細] filewakayamk.zip 3056件 [詳細] fileStdMesh04_JGD_03_SHP.zip 2361件 [詳細] fileStdMesh02.zip 2806件 [詳細] fileaichi.zip 2103件 [詳細] fileStdMesh04_JGD_42_SHP.zip 2126件 [詳細] filetokyok.kml 1829件 [詳細] filetohokuk.zip 3322件 [詳細] fileokinawa.zip 1941件 [詳細] fileakita.zip 2035件 [詳細] fileStdMesh03_JGD_04_SHP.zip 2223件 [詳細] fileStdMesh04_JGD_24_SHP.zip 2189件 [詳細] filehokkaih.zip 2048件 [詳細] filesaga.zip 2032件 [詳細] filemiyazaki.zip 1924件 [詳細] filefukui.zip 1968件 [詳細] fileStdMesh03_JGD_37_SHP.zip 2145件 [詳細] fileosakak.zip 3193件 [詳細] fileStdMesh03_JGD_24_SHP.zip 2105件 [詳細] filekyusyuk.zip 3089件 [詳細] fileibaragi.zip 2077件 [詳細] filekagawak.zip 2908件 [詳細] filejapan_ver10.zip 2982件 [詳細] fileaomorik.zip 3426件 [詳細] fileStdMesh04_JGD_17_SHP.zip 2141件 [詳細] filehokkaihk.zip 3125件 [詳細] fileshigak.zip 2956件 [詳細] fileStdMesh04_JGD_08_SHP.zip 2211件 [詳細] fileStdMesh03_JGD_12_SHP.zip 2115件 [詳細] fileStdMesh04_JGD_32_SHP.zip 2135件 [詳細] fileStdMesh03_JGD_35_SHP.zip 2133件 [詳細] filetoyamak.zip 3005件 [詳細] filetokusima.zip 1991件 [詳細] filenagasaki.zip 2021件 [詳細] filemiek.zip 3038件 [詳細] fileStdMesh03_JGD_43_SHP.zip 2130件 [詳細] fileStdMesh03_JGD_42_SHP.zip 2118件 [詳細] filemiyagik.zip 3180件 [詳細] filenarak.zip 2945件 [詳細] fileakitak.zip 3379件 [詳細] filejapan_ver62.zip 2826件 [詳細] fileStdMesh03_JGD_09_SHP.zip 1588件 [詳細] filejapan_ver52.zip 2720件 [詳細] fileStdMesh03_JGD_06_SHP.zip 2289件 [詳細] fileStdMesh03_JGD_10_SHP.zip 2281件 [詳細] fileStdMesh03_JGD_30_SHP.zip 2119件 [詳細] filekumamotk.zip 2967件 [詳細] fileStdMesh03_JGD_47_SHP.zip 2170件 [詳細] fileehimek.zip 2984件 [詳細] fileStdMesh03_JGD_31_SHP.zip 2119件 [詳細] filekochi.zip 1970件 [詳細] filetokyo.zip 2154件 [詳細] fileStdMesh03_JGD_13_SHP.zip 2419件 [詳細] filechugokuk.zip 2989件 [詳細] fileyamagata.zip 1933件 [詳細] fileStdMesh04_JGD_37_SHP.zip 2106件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:17