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と同じところに置いてください。

コメント欄(過去分)

アクセス数:

19681 人


添付ファイル: fileshizuoka.zip 1675件 [詳細] fileaomorik.zip 2762件 [詳細] fileokayama.zip 1753件 [詳細] fileStdMesh04_JGD_24_SHP.zip 1576件 [詳細] fileakita.zip 1733件 [詳細] filetochigi.zip 1657件 [詳細] filehirosima.zip 1708件 [詳細] fileishikawk.zip 2381件 [詳細] fileooita.zip 1614件 [詳細] filejapan_ver62.zip 2024件 [詳細] fileibaragi.zip 1765件 [詳細] fileakitak.zip 2725件 [詳細] filegunma.zip 1735件 [詳細] fileiwate.zip 1669件 [詳細] fileStdMesh04_JGD_44_SHP.zip 1472件 [詳細] filefukuokak.zip 2535件 [詳細] fileStdMesh04_JGD_29_SHP.zip 1463件 [詳細] filehokkaihk.zip 2455件 [詳細] fileshigak.zip 2335件 [詳細] fileStdMesh04_JGD_22_SHP.zip 1609件 [詳細] fileStdMesh04_JGD_38_SHP.zip 1581件 [詳細] filegifu.zip 1666件 [詳細] filejapan_ver61.zip 2087件 [詳細] fileStdMesh04_JGD_28_SHP.zip 1676件 [詳細] fileStdMesh04_JGD_47_SHP.zip 1642件 [詳細] fileyamanask.zip 2300件 [詳細] filefukuik.zip 2298件 [詳細] filehyogo.zip 1706件 [詳細] filejapan_jdg.prj 2501件 [詳細] filekochik.zip 2330件 [詳細] filefukui.zip 1636件 [詳細] fileokinawak.zip 2406件 [詳細] fileStdMesh04_JGD_41_SHP.zip 1522件 [詳細] fileStdMesh04_JGD_31_SHP.zip 1515件 [詳細] fileStdMesh04_JGD_42_SHP.zip 1513件 [詳細] filesaitama.zip 1729件 [詳細] fileyamaguti.zip 1579件 [詳細] filekagosima.zip 1618件 [詳細] filejapan_ver40.zip 1999件 [詳細] fileStdMesh04_JGD_17_SHP.zip 1533件 [詳細] fileyamanasi.zip 1618件 [詳細] filefukusimk.zip 2633件 [詳細] filetoyama.zip 1654件 [詳細] filekumamoto.zip 1662件 [詳細] fileStdMesh04_JGD_18_SHP.zip 1488件 [詳細] filekagawak.zip 2305件 [詳細] fileStdMesh04_JGD_39_SHP.zip 1530件 [詳細] filesikokuk.zip 2373件 [詳細] fileStdMesh04_JGD_20_SHP.zip 1601件 [詳細] filewakayamk.zip 2382件 [詳細] fileaichi.zip 1797件 [詳細] fileStdMesh04_JGD_34_SHP.zip 1604件 [詳細] filetokusimk.zip 2322件 [詳細] fileokinawa.zip 1615件 [詳細] filehyogok.zip 2471件 [詳細] fileStdMesh04_JGD_40_SHP.zip 1501件 [詳細] filenagano.zip 1666件 [詳細] filejapank.zip 6583件 [詳細] filechiba.zip 1695件 [詳細] fileshizuokk.zip 2486件 [詳細] filetokyohk.zip 3322件 [詳細] filekanagawa.zip 1742件 [詳細] filetokyok.kml 1446件 [詳細] filesaga.zip 1701件 [詳細] fileStdMesh04_JGD_37_SHP.zip 1502件 [詳細] filegifuk.zip 2474件 [詳細] filetottori.zip 1568件 [詳細] filekantok.zip 2728件 [詳細] fileaichik.zip 2746件 [詳細] filebnda_trans_table.zip 1931件 [詳細] filenara.zip 1686件 [詳細] filemiyagik.zip 2501件 [詳細] fileStdMesh04_JGD_45_SHP.zip 1624件 [詳細] fileStdMesh04_JGD_27_SHP.zip 1610件 [詳細] filenagasakk.zip 2324件 [詳細] filetokyok.zip 3093件 [詳細] filechugokuk.zip 2386件 [詳細] filejapan_ver52.zip 2045件 [詳細] filekyoto.zip 1646件 [詳細] fileStdMesh04_JGD_30_SHP.zip 1436件 [詳細] filekumamotk.zip 2358件 [詳細] fileStdMesh04_JGD_21_SHP.zip 1578件 [詳細] fileehimek.zip 2333件 [詳細] filekochi.zip 1670件 [詳細] filetokyo.zip 1851件 [詳細] filechubuk.zip 2397件 [詳細] filehirosimk.zip 2377件 [詳細] fileokinawah.zip 1522件 [詳細] fileishikawa.zip 1667件 [詳細] filechibak.zip 3359件 [詳細] filejapan_ver30.zip 2099件 [詳細] fileokayamak.zip 2412件 [詳細] fileyamagatk.zip 2397件 [詳細] filekanagawk.zip 3306件 [詳細] fileibaragik.zip 3061件 [詳細] filenaganok.zip 2424件 [詳細] filetochigik.zip 2856件 [詳細] fileStdMesh04_JGD_19_SHP.zip 1506件 [詳細] fileiwatek.zip 2448件 [詳細] filehokkaido.zip 1950件 [詳細] fileyamagutk.zip 2325件 [詳細] fileStdMesh04_JGD_43_SHP.zip 1519件 [詳細] filekyotok.zip 2469件 [詳細] filetokyoh.zip 664件 [詳細] filewakayama.zip 1664件 [詳細] filesimane.zip 1664件 [詳細] filetohokuk.zip 2646件 [詳細] fileStdMesh04_JGD_35_SHP.zip 1501件 [詳細] fileehime.zip 1618件 [詳細] fileosakak.zip 2562件 [詳細] filekagawa.zip 1658件 [詳細] filegunmak.zip 3195件 [詳細] fileooitak.zip 2388件 [詳細] filekinkik.zip 2551件 [詳細] filekyusyuk.zip 2440件 [詳細] filemiyazakk.zip 2535件 [詳細] fileStdMesh04_JGD_23_SHP.zip 1585件 [詳細] filesaitamak.zip 3266件 [詳細] fileStdMesh04_JGD_46_SHP.zip 1524件 [詳細] fileosaka.zip 1742件 [詳細] fileshiga.zip 1590件 [詳細] filemiyazaki.zip 1632件 [詳細] fileStdMesh04_JGD_16_SHP.zip 1495件 [詳細] filehokkaih.zip 1725件 [詳細] filemie.zip 1674件 [詳細] filehokkaidk.zip 2935件 [詳細] fileStdMesh04_JGD_36_SHP.zip 1506件 [詳細] fileaomori.zip 1707件 [詳細] filebnda_trans_table2.zip 303件 [詳細] filemiyagi.zip 1679件 [詳細] filetoyamak.zip 2374件 [詳細] fileStdMesh04_JGD_32_SHP.zip 1521件 [詳細] fileStdMesh04_JGD_33_SHP.zip 1509件 [詳細] filenigata.zip 1597件 [詳細] filesagak.zip 2303件 [詳細] filenigatak.zip 2426件 [詳細] fileStdMesh04_JGD_26_SHP.zip 1528件 [詳細] fileStdMesh04_JGD_25_SHP.zip 1594件 [詳細] filenagasaki.zip 1689件 [詳細] filekagosimk.zip 2433件 [詳細] filefukuoka.zip 1719件 [詳細] fileyamagata.zip 1627件 [詳細] filefukusima.zip 1706件 [詳細] fileokinawhk.zip 2302件 [詳細] filenarak.zip 2289件 [詳細] filetokyo.kml 1476件 [詳細] filetottorik.zip 2290件 [詳細] filetokusima.zip 1676件 [詳細] filemiek.zip 2430件 [詳細] filesimanek.zip 2359件 [詳細] filejapan_ver10.zip 2318件 [詳細] fileStdMesh04_JGD_14_SHP.zip 1615件 [詳細] fileStdMesh04_JGD_09_SHP.zip 1612件 [詳細] fileStdMesh03_JGD_12_SHP.zip 1510件 [詳細] fileStdMesh03_JGD_22_SHP.zip 1546件 [詳細] fileStdMesh04_JGD_11_SHP.zip 1603件 [詳細] fileStdMesh03_JGD_07_SHP.zip 1630件 [詳細] fileStdMesh03_JGD_05_SHP.zip 1623件 [詳細] fileStdMesh03_JGD_44_SHP.zip 1515件 [詳細] fileStdMesh04_JGD_03_SHP.zip 1676件 [詳細] fileStdMesh03_JGD_28_SHP.zip 1720件 [詳細] fileStdMesh03_JGD_29_SHP.zip 1507件 [詳細] fileStdMesh04_JGD_13_SHP.zip 1768件 [詳細] fileStdMesh04_JGD_05_SHP.zip 1572件 [詳細] fileStdMesh01.zip 2328件 [詳細] fileStdMesh03_JGD_10_SHP.zip 1628件 [詳細] fileStdMesh03_JGD_37_SHP.zip 1510件 [詳細] fileStdMesh03_JGD_23_SHP.zip 1560件 [詳細] fileStdMesh03_JGD_15_SHP.zip 1577件 [詳細] fileStdMesh02.zip 2099件 [詳細] fileStdMesh03_JGD_41_SHP.zip 1483件 [詳細] fileStdMesh04_JGD_15_SHP.zip 1634件 [詳細] fileStdMesh03_JGD_24_SHP.zip 1496件 [詳細] fileStdMesh03_JGD_25_SHP.zip 1470件 [詳細] fileStdMesh04_JGD_12_SHP.zip 1621件 [詳細] fileStdMesh03_JGD_38_SHP.zip 1541件 [詳細] fileStdMesh03_JGD_40_SHP.zip 1574件 [詳細] fileStdMesh03_JGD_18_SHP.zip 1527件 [詳細] fileStdMesh03_JGD_26_SHP.zip 1568件 [詳細] fileStdMesh03_JGD_13_SHP.zip 1810件 [詳細] fileStdMesh03_JGD_43_SHP.zip 1538件 [詳細] fileStdMesh03_JGD_36_SHP.zip 1465件 [詳細] fileStdMesh03_JGD_47_SHP.zip 1569件 [詳細] fileStdMesh03_JGD_34_SHP.zip 1669件 [詳細] fileStdMesh04_JGD_01_SHP.zip 1975件 [詳細] fileStdMesh03_JGD_30_SHP.zip 1514件 [詳細] fileStdMesh03_JGD_01_SHP.zip 2183件 [詳細] fileStdMesh03_JGD_09_SHP.zip 1279件 [詳細] fileStdMesh04_JGD_08_SHP.zip 1598件 [詳細] fileStdMesh03_JGD_16_SHP.zip 1585件 [詳細] fileStdMesh03_JGD_11_SHP.zip 1644件 [詳細] fileStdMesh03_JGD_32_SHP.zip 1472件 [詳細] fileStdMesh04_JGD_04_SHP.zip 1609件 [詳細] fileStdMesh04_JGD_07_SHP.zip 1633件 [詳細] fileStdMesh03_JGD_04_SHP.zip 1582件 [詳細] fileStdMesh03_JGD_31_SHP.zip 1521件 [詳細] fileStdMesh03_JGD_19_SHP.zip 1561件 [詳細] fileStdMesh03_JGD_46_SHP.zip 1514件 [詳細] fileStdMesh04_JGD_02_SHP.zip 1531件 [詳細] fileStdMesh04_JGD_10_SHP.zip 1577件 [詳細] fileStdMesh03_JGD_33_SHP.zip 1502件 [詳細] fileStdMesh03_JGD_14_SHP.zip 1610件 [詳細] fileStdMesh03_JGD_45_SHP.zip 1562件 [詳細] fileStdMesh03_JGD_17_SHP.zip 1504件 [詳細] fileStdMesh03_JGD_06_SHP.zip 1644件 [詳細] fileStdMesh03_JGD_03_SHP.zip 1637件 [詳細] fileStdMesh03_JGD_21_SHP.zip 1569件 [詳細] fileStdMesh03_JGD_08_SHP.zip 1639件 [詳細] fileStdMesh03_JGD_35_SHP.zip 1531件 [詳細] fileStdMesh03_JGD_42_SHP.zip 1507件 [詳細] fileStdMesh03_JGD_02_SHP.zip 1638件 [詳細] fileStdMesh03_JGD_39_SHP.zip 1533件 [詳細] fileStdMesh04_JGD_06_SHP.zip 1663件 [詳細] fileStdMesh03_JGD_27_SHP.zip 1586件 [詳細] fileStdMesh03_JGD_20_SHP.zip 1510件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-01 (日) 01:15:59