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

コメント欄(過去分)

アクセス数:

28771 人


添付ファイル: filehirosimk.zip 2881件 [詳細] fileStdMesh03_JGD_16_SHP.zip 2067件 [詳細] fileStdMesh03_JGD_22_SHP.zip 2032件 [詳細] fileStdMesh04_JGD_43_SHP.zip 2028件 [詳細] filejapan_ver40.zip 2547件 [詳細] filekantok.zip 3252件 [詳細] filefukusima.zip 1967件 [詳細] fileStdMesh04_JGD_25_SHP.zip 2094件 [詳細] fileStdMesh03_JGD_05_SHP.zip 2154件 [詳細] fileStdMesh04_JGD_44_SHP.zip 1973件 [詳細] fileStdMesh04_JGD_12_SHP.zip 2095件 [詳細] filetottorik.zip 2789件 [詳細] filetokusimk.zip 2828件 [詳細] fileStdMesh03_JGD_32_SHP.zip 1975件 [詳細] fileooita.zip 1868件 [詳細] fileStdMesh03_JGD_11_SHP.zip 2135件 [詳細] filefukuik.zip 2809件 [詳細] filehyogo.zip 1967件 [詳細] fileStdMesh04_JGD_38_SHP.zip 2082件 [詳細] filejapan_ver61.zip 2627件 [詳細] fileStdMesh04_JGD_11_SHP.zip 2109件 [詳細] fileStdMesh03_JGD_46_SHP.zip 2016件 [詳細] filesaitama.zip 1994件 [詳細] fileStdMesh03_JGD_21_SHP.zip 2066件 [詳細] filenara.zip 1945件 [詳細] filechiba.zip 1965件 [詳細] fileStdMesh04_JGD_18_SHP.zip 1971件 [詳細] filesaitamak.zip 3787件 [詳細] filekanagawa.zip 2004件 [詳細] fileStdMesh03_JGD_38_SHP.zip 2032件 [詳細] fileStdMesh04_JGD_46_SHP.zip 2014件 [詳細] fileyamaguti.zip 1839件 [詳細] fileStdMesh03_JGD_40_SHP.zip 2050件 [詳細] fileshiga.zip 1852件 [詳細] fileiwate.zip 1940件 [詳細] fileStdMesh04_JGD_33_SHP.zip 2007件 [詳細] fileStdMesh03_JGD_01_SHP.zip 2748件 [詳細] fileStdMesh04_JGD_16_SHP.zip 1982件 [詳細] fileStdMesh04_JGD_01_SHP.zip 2508件 [詳細] filefukusimk.zip 3158件 [詳細] filenigatak.zip 2941件 [詳細] fileStdMesh03_JGD_28_SHP.zip 2225件 [詳細] fileStdMesh04_JGD_15_SHP.zip 2125件 [詳細] fileshizuokk.zip 2977件 [詳細] fileStdMesh03_JGD_45_SHP.zip 2050件 [詳細] filemie.zip 1938件 [詳細] fileStdMesh04_JGD_28_SHP.zip 2165件 [詳細] fileyamanask.zip 2799件 [詳細] fileStdMesh04_JGD_22_SHP.zip 2104件 [詳細] filetokyohk.zip 3839件 [詳細] filejapan_jdg.prj 3121件 [詳細] fileStdMesh03_JGD_27_SHP.zip 2087件 [詳細] fileStdMesh03_JGD_18_SHP.zip 2021件 [詳細] fileokinawak.zip 2903件 [詳細] fileStdMesh04_JGD_31_SHP.zip 2018件 [詳細] fileyamanasi.zip 1870件 [詳細] fileStdMesh03_JGD_17_SHP.zip 1983件 [詳細] fileStdMesh03_JGD_44_SHP.zip 2005件 [詳細] fileStdMesh04_JGD_02_SHP.zip 2075件 [詳細] filefukuoka.zip 2009件 [詳細] filegifu.zip 1935件 [詳細] fileStdMesh04_JGD_06_SHP.zip 2202件 [詳細] fileyamagatk.zip 2957件 [詳細] fileStdMesh03_JGD_20_SHP.zip 2008件 [詳細] fileStdMesh04_JGD_40_SHP.zip 1982件 [詳細] fileStdMesh04_JGD_36_SHP.zip 1995件 [詳細] fileishikawa.zip 1924件 [詳細] filenaganok.zip 2931件 [詳細] filesikokuk.zip 2863件 [詳細] fileStdMesh03_JGD_08_SHP.zip 2146件 [詳細] filetokyoh.zip 929件 [詳細] filetottori.zip 1843件 [詳細] fileyamagutk.zip 2821件 [詳細] filekanagawk.zip 3823件 [詳細] fileiwatek.zip 2991件 [詳細] fileehime.zip 1881件 [詳細] fileStdMesh03_JGD_39_SHP.zip 2020件 [詳細] fileStdMesh03_JGD_26_SHP.zip 2061件 [詳細] filebnda_trans_table.zip 2465件 [詳細] filechibak.zip 3873件 [詳細] filejapan_ver30.zip 2660件 [詳細] fileStdMesh04_JGD_45_SHP.zip 2116件 [詳細] fileStdMesh04_JGD_27_SHP.zip 2104件 [詳細] fileStdMesh04_JGD_41_SHP.zip 2024件 [詳細] fileStdMesh03_JGD_41_SHP.zip 1973件 [詳細] fileStdMesh04_JGD_09_SHP.zip 2104件 [詳細] fileStdMesh04_JGD_39_SHP.zip 2037件 [詳細] filehyogok.zip 3005件 [詳細] fileokayama.zip 2020件 [詳細] fileStdMesh04_JGD_34_SHP.zip 2098件 [詳細] fileStdMesh03_JGD_15_SHP.zip 2078件 [詳細] fileStdMesh04_JGD_20_SHP.zip 2119件 [詳細] fileStdMesh04_JGD_14_SHP.zip 2104件 [詳細] filetochigi.zip 1939件 [詳細] filefukuokak.zip 3039件 [詳細] filejapank.zip 7614件 [詳細] filegifuk.zip 2978件 [詳細] filetoyama.zip 1918件 [詳細] filenagano.zip 1930件 [詳細] fileStdMesh03_JGD_36_SHP.zip 1955件 [詳細] fileStdMesh04_JGD_29_SHP.zip 1946件 [詳細] fileStdMesh03_JGD_34_SHP.zip 2168件 [詳細] filenagasakk.zip 2838件 [詳細] filetokyok.zip 3612件 [詳細] filehirosima.zip 1972件 [詳細] filekyoto.zip 1908件 [詳細] fileStdMesh04_JGD_30_SHP.zip 1924件 [詳細] fileStdMesh04_JGD_21_SHP.zip 2079件 [詳細] fileStdMesh03_JGD_07_SHP.zip 2147件 [詳細] filegunma.zip 2012件 [詳細] fileStdMesh04_JGD_10_SHP.zip 2074件 [詳細] fileaichik.zip 3270件 [詳細] fileishikawk.zip 2883件 [詳細] fileStdMesh03_JGD_25_SHP.zip 1951件 [詳細] fileshizuoka.zip 1938件 [詳細] filekagosima.zip 1884件 [詳細] fileibaragik.zip 3576件 [詳細] fileStdMesh04_JGD_26_SHP.zip 2027件 [詳細] filetokyo.kml 1785件 [詳細] filesimanek.zip 2863件 [詳細] filemiyagi.zip 1940件 [詳細] fileaomori.zip 1976件 [詳細] filesimane.zip 1937件 [詳細] fileStdMesh04_JGD_07_SHP.zip 2153件 [詳細] filewakayama.zip 1933件 [詳細] filekyotok.zip 2970件 [詳細] filehokkaido.zip 2207件 [詳細] filetochigik.zip 3126件 [詳細] fileStdMesh03_JGD_02_SHP.zip 2153件 [詳細] fileokayamak.zip 2926件 [詳細] filenigata.zip 1863件 [詳細] fileStdMesh03_JGD_14_SHP.zip 2103件 [詳細] fileStdMesh03_JGD_33_SHP.zip 1999件 [詳細] fileStdMesh04_JGD_19_SHP.zip 2011件 [詳細] fileStdMesh04_JGD_35_SHP.zip 2012件 [詳細] filehokkaidk.zip 3506件 [詳細] fileosaka.zip 1997件 [詳細] fileStdMesh04_JGD_23_SHP.zip 2077件 [詳細] filemiyazakk.zip 3042件 [詳細] fileStdMesh03_JGD_23_SHP.zip 2069件 [詳細] fileooitak.zip 2893件 [詳細] filegunmak.zip 3736件 [詳細] fileStdMesh04_JGD_05_SHP.zip 2111件 [詳細] filekagawa.zip 1927件 [詳細] filesagak.zip 2798件 [詳細] fileStdMesh04_JGD_04_SHP.zip 2147件 [詳細] filebnda_trans_table2.zip 1376件 [詳細] fileStdMesh04_JGD_13_SHP.zip 2286件 [詳細] filekumamoto.zip 1927件 [詳細] filechubuk.zip 2922件 [詳細] filekagosimk.zip 2943件 [詳細] fileStdMesh04_JGD_47_SHP.zip 2139件 [詳細] fileokinawhk.zip 2795件 [詳細] fileStdMesh01.zip 2887件 [詳細] filekochik.zip 2824件 [詳細] filekinkik.zip 3057件 [詳細] fileokinawah.zip 1795件 [詳細] fileStdMesh03_JGD_19_SHP.zip 2049件 [詳細] fileStdMesh03_JGD_29_SHP.zip 2009件 [詳細] fileStdMesh03_JGD_03_SHP.zip 2177件 [詳細] filewakayamk.zip 2911件 [詳細] fileStdMesh04_JGD_03_SHP.zip 2226件 [詳細] fileStdMesh02.zip 2670件 [詳細] fileaichi.zip 2061件 [詳細] fileStdMesh04_JGD_42_SHP.zip 2012件 [詳細] filetokyok.kml 1784件 [詳細] filetohokuk.zip 3197件 [詳細] fileokinawa.zip 1875件 [詳細] fileakita.zip 1991件 [詳細] fileStdMesh03_JGD_04_SHP.zip 2110件 [詳細] fileStdMesh04_JGD_24_SHP.zip 2064件 [詳細] filehokkaih.zip 2002件 [詳細] filesaga.zip 1965件 [詳細] filemiyazaki.zip 1892件 [詳細] filefukui.zip 1909件 [詳細] fileStdMesh03_JGD_37_SHP.zip 2019件 [詳細] fileosakak.zip 3071件 [詳細] fileStdMesh03_JGD_24_SHP.zip 1974件 [詳細] filekyusyuk.zip 2968件 [詳細] fileibaragi.zip 2028件 [詳細] filekagawak.zip 2809件 [詳細] filejapan_ver10.zip 2872件 [詳細] fileaomorik.zip 3314件 [詳細] fileStdMesh04_JGD_17_SHP.zip 2028件 [詳細] filehokkaihk.zip 2992件 [詳細] fileshigak.zip 2837件 [詳細] fileStdMesh04_JGD_08_SHP.zip 2093件 [詳細] fileStdMesh03_JGD_12_SHP.zip 2002件 [詳細] fileStdMesh04_JGD_32_SHP.zip 2026件 [詳細] fileStdMesh03_JGD_35_SHP.zip 2020件 [詳細] filetoyamak.zip 2880件 [詳細] filetokusima.zip 1946件 [詳細] filenagasaki.zip 1955件 [詳細] filemiek.zip 2937件 [詳細] fileStdMesh03_JGD_43_SHP.zip 2016件 [詳細] fileStdMesh03_JGD_42_SHP.zip 2002件 [詳細] filemiyagik.zip 3053件 [詳細] filenarak.zip 2793件 [詳細] fileakitak.zip 3268件 [詳細] filejapan_ver62.zip 2713件 [詳細] fileStdMesh03_JGD_09_SHP.zip 1538件 [詳細] filejapan_ver52.zip 2610件 [詳細] fileStdMesh03_JGD_06_SHP.zip 2162件 [詳細] fileStdMesh03_JGD_10_SHP.zip 2171件 [詳細] fileStdMesh03_JGD_30_SHP.zip 2001件 [詳細] filekumamotk.zip 2863件 [詳細] fileStdMesh03_JGD_47_SHP.zip 2060件 [詳細] fileehimek.zip 2850件 [詳細] fileStdMesh03_JGD_31_SHP.zip 2010件 [詳細] filekochi.zip 1936件 [詳細] filetokyo.zip 2116件 [詳細] fileStdMesh03_JGD_13_SHP.zip 2310件 [詳細] filechugokuk.zip 2876件 [詳細] fileyamagata.zip 1883件 [詳細] fileStdMesh04_JGD_37_SHP.zip 2001件 [詳細]

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