GoogleEarthとR
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
&color(black,#CCFFCC){LINK:[[[GoogleEarthとR]]][[[ShapeFi...
----
GoogleEarth [http://earth.google.com/]はGoogleが無料で公...
Rを用いて、インタラクティブな操作によって3D-GISを作成する...
GUI部分をGoogleEarthにまかせて、バックエンド処理をRで行う...
----
目次
#contents
----
&color(black){論文引用・書籍等に引用する場合の著作権につ...
----
*目的 [#v583419f]
GoogleEarth [http://earth.google.com/]はGoogleが無料で公...
現在、Windows版・Mac版・Linux版が公開されています。~
Rを用いて、インタラクティブな操作によって3D-GISを作成する...
しかし、GUI部分をGoogleEarthにまかせて、バックエンド処理...
なお地理データについては[[ShapeFileライブラリ]]にて公開し...
COLOR(red){「本ページにて公開しているShapeFileデータの作...
COLOR(red){本データの著作権はESRIジャパン株式会社に帰属し...
~
ESRIJapan様が公開されている全国市区町村境界データ~
[全国市区町村境界データ]http://www.esrij.com/products/gis...
[shapefileの仕様書]http://www.esrij.com/products/gis_data...
*コメント欄 (最新）[#y5430fd0]
#comment(below)
- iOS版のGEが３D対応になりました・・・がメモリ要求高杉！ ...
- 次期GEの３D機能がすごい -- &new{2012-06-07 (木) 09:36:...
- Google Maps はWebGL の採用で、やがて、WebGL と一体化か...
- [[GExplorer:http://planetinaction.com/gexplorer/index.h...
- GE 6.1 リリース -- &new{2011-09-21 (水) 11:53:39};
- KMZ LoaderはiOSのGEの共有フォルダ内にInBoxフォルダを生...
- 自作KMZを表示させたところ、どうやら色指定の順番が変わっ...
- KMZ LoaderはTimespans,Tours,ComplexPolygonには対応して...
- iPad/iPhone向けにKMZ Loaderが出ている。自作KMZをiOSのGE...
- Updates to all versions of Google Earth coming this sum...
- Google Earth Builder が出るらしい -- [[Okinawa]] &new{2...
- 最近、ArcGIS Explorer の add in が充実しているようだ。R...
- Google Maps 5.1 for Android リリース。iOS のアップデー...
- ↓友人のAndroidでみましたが、ほとんどGEですね。ぐりぐり...
- Google Maps 5.0 for Android リリース。 -- &new{2010-12...
- ↓↓Galaxy Tab 版が公開されているとか。Android 優先かな。...
- ESRIへのリンクを張り直しました -- [[okinawa]] &new{2010...
- GoogleMapsが3Dに対応するらしい。表示データもベクター化...
- ↓一般向けじゃないね -- &new{2010-12-06 (月) 13:14:48};
- Google Earth Engine 登場 -- [[okinawa]] &new{2010-12-04...
- GE 6.0 リリース。 -- &new{2010-11-30 (火) 09:38:05};
- iOSのGEってAppの中にファイル共有でデータが入れられるよ...
- Google Earth for iPhone updated with retina display, oc...
- The Google Earth COM API is being phased out だそうです...
- ウィキリークスによるアフガン戦争日記のKMLファイルは衝撃...
- お天気レイヤの雲をチェックすると地球に雨が降るギミック...
- ArcGIS for iOS(iPad/iPhone/iPod Touch) 無料リリース。 -...
- GE5.2 GE3iPad 両方試してみました。GE5.2はブラウザ部分の...
- ↓ちょっと表示が遅いかな -- &new{2010-06-16 (水) 09:58:...
- GE iPad 対応版リリース -- &new{2010-06-15 (火) 13:02:2...
- GE 5.2 リリース。 -- &new{2010-06-15 (火) 11:19:52};
- [[ArcGIS online:http://explorer.arcgis.com/]]。Bing は...
- ↓単に緯度経度をリンクさせて表示が切り替わってるだけっぽ...
- ↓APIも共通？ -- &new{2010-04-27 (火) 18:18:49};
- ↓ですね！ようやくでました。これでMapとEarthの境目がなく...
- Earth View 公開 -- &new{2010-04-27 (火) 13:38:24};
- iPad用をはやく触ってみたいですね。あと１ヵ月！ -- [[oki...
- [[Android 2.1版「Google Earth」公開:http://internet.wat...
- R を動かしたかったら、 slate PC。 -- &new{2010-01-09 (...
- iSlateではGEが大きく表示されるのかな？ -- [[okinawa]] &...
- Nexus One のGEではボイスコマンドが使えるらしい。でもiPh...
- Google は開発用の sim free の端末をGoogle Store? で、す...
- Google直販か？とのこと。どうやって売るのかな。 -- [[oki...
- これでiPhoneの縛りもゆるくなってくるかな。 -- [[okinawa...
- Google Phone が出てくる。これでマーケティングが見えてき...
- 「Go 言語にＲなどが移植されると・・・」＜ーちょっと言っ...
- ↓Android と Chrome OS は将来的には統一されるようですが...
- クロムOSにGoogleEarthが載ってくるとすごいけどな。 -- [[...
- Androidは技術的には問題ないですが、マーケティングが見え...
- ↓↓来年は Android がすごいような、予測ではＵＳＡで２年後...
- Rユーザー会2009発表スライドUP http://www.slideshare.net...
- すべてのものがiPhoneにシフトしてきてますね。元来地図系...
- Bing Maps もiPhone に対応するとか。 -- &new{2009-12-04...
- iPhone 用GE plug-in でないかな -- &new{2009-12-03 (木...
- GE5.1リリース。バグフィックス版でベータがとれました。 -...
- GE for iPhone2.0 追加＞マイマップはNetworkLinkのみKMLで...
- GoogleEarth for iPhone2.0が公開されています！なんとマイ...
下記の画像は、以前作ったgunma2.kmlをマイマップに登録してi...
また、meuse.kmzのようなラスターデータとの組み合わせもうま...
#ref(GoogleEarthとR/gunma2.jpg,50%)~
- route me というオープンソースのものはどうでしょうか。た...
- 現状のiphoneのマップでナビをやろうとすると地図データの...
- APPLELINKAGEより。Android 2.0向けの無料GPSナビアプリ「G...
- /.からの引用ですが、「海上自衛隊の護衛艦「くらま」と韓...
- 私のMacBookでは今までGEで太陽を見ることができなかったの...
- ジオコーディングもかなり速くなってますね！実用的なスピ...
- [[GE 5.1 公開:http://internet.watch.impress.co.jp/docs/...
- ArcGIS Explorer 9 使ってみました。機能的にはかなり良く...
- rgdalのWriteOGRにKMLのsampleが追加されています。 -- [[o...
- ↓デモとスペック等を見ただけですが、SDKもあるしGISviewer...
- [[ArcGIS Explorer 900:http://blogs.esri.com/Info/blogs/...
- なんだ、GE はもうかぐやのデータ使っている。[[http://int...
- そういえば、かぐやのデータが１１月に公開。ＧＥへはWMS(...
- GoogleEarthにMoon(月）追加 。月のshapefileってあるのか...
- rgdalでreadOGRを使ってKMLをRに読み込むことができるよう...
- GoogleNativeClient（GNC)でRをコンパイルすれば、ユニバー...
- 既報ですが、Google I/O 2009後に発表されていた「GoogleNa...
- http://planetinaction.com/ がすごい！ -- [[okinawa]] &n...
- このままでいくと、GoogleEarth ver6か7あたりでスタンドア...
- GoogleEarth APIが更新されているようです。GoogleMap内でG...
とうとう、GoogleMapとEarthの境目がなくなってきましたね。h...
- CoolApplicationsにKMLFACTBOOK追加。KML自動生成の集大成...
- [[O3D:http://japan.cnet.com/news/media/story/0,20000560...
- GoogleからO3DなるWeb3D plug-inが公開されています。その...
- rgdalですが、R2.8.*からKML2.2対応になっています。それ以...
- gx:タグ付きのやつですね。[[kmlラボ]]ではすでに対応して...
- "Google Earth 5.0 KML Extensions"ってどうだろう。 -- &...
- ↓GoogleOceanの次のネタかな・・・。 -- [[okinawa]] &new{...
- これまた旬な話題ですね。個別の位置情報データをGoogleの...
また、位置情報データを共有するのであれば、GPS機器から位置...
Googleは地図情報だけではなく、物（車）や人の動的な位置情...
- Google Maps Data API には、GE ユーザーにとってどんなメ...
- rcomが（また）新しくなっています。バージョン注意！ -- [...
- http:/www.nin.com がGEpluginと連動するiphone appを作成...
- ↓レスありがとうございます。 -- &new{2009-04-04 (土) 01...
- 補足：GEではkml内部にCollada(daeファイル）を包含して画...
- ↓SketchUpではVRMLは取り込めないようですね。出力はできる...
- 流れとしては VRML -> Collada -> Kml ですかね。SketchU...
- VRML ⇔ KML コンバータってないでしょうか？ -- [[仮想現実...
- GoogleEarth Pluginがバージョンアップし、GE5と同等になり...
- 2009/03/31現在 R2.8.1においてrcomをインストールしても...
- しばらく変換がないなぁと思っていたけど、maptools 便利な...
- kmlLine,kmlPolygonの実行結果を追加しました。 -- [[okina...
- ↓この関数を使うと、ShapeFileからダイレクトにkmlがつくれ...
- maptoolsにkmLine,kmlPolygonが追加されました！ -- [[okin...
- 既報ですが、GE5ではバルーン内のHTMLはWebkit対応のようで...
- GE5.0でも以前としてポリゴンホール問題は解決していません...
- ついでにGoogleMars(火星）も選べるようになりました。 -- ...
- GPSデータを取り込む機能が使えるようになっています。また...
- GE5.0ではGoogleOcean以外にもかなり機能が追加されている...
- GoogleEarth5.0が出ました！予想通りGoogleOceanが追加され...
- コメント欄更新しました。 -- [[okinawa]] &new{2009-01-28...
- New View of Ocean Floor in Google Earth! Google Oceanの...
- SyNetパッケージ内にポイントデータをKML出力するoutgearth...
- Google が[[KML gadget:http://www.gmodules.com/ig/creato...
*GoogleEarthダウンロード&関連情報リンク[#b0f3bfb6]
**GoogleEarth&GoogleEathPluginダウンロード [#k84279c4]
http://earth.google.co.jp/~
http://code.google.com/apis/earth/ New!~
[[GoogleEarthPlugin用リンクコード作成:http://www.takitwit...
**KMLリファレンスマニュアル&GoogleEarth COM API [#lde5dff7]
http://code.google.com/apis/kml/documentation/index.html~
http://code.google.com/intl/en/apis/kml/documentation/kml...
http://earth.google.com/comapi/~
**参考 [#c1086c14]
[[GoogleEarthBlog:http://www.gearthblog.com/]]~
[[GoogleMap:http://maps.google.co.jp/maps]]~
[[巨匠net:http://www.kyosho.net/blog/modules/bwiki/index....
[[R and GoogleEarth:http://www.omegahat.org/GoogleEarth/C...
~
**CoolApplications [#s9ae9ffe]
***KMLFACTBOOK: [#o1e321f6]
-http://www.kmlfactbook.org/~
***EarthAtlas: [#c91c6dc5]
-http://earthatlas.info/?kml=http://www.nature.com/nature...
***GoogleSketchUp: [#k52483d8]
-SketchUp HomePage http://sketchup.google.com/intl/ja/
-GoogleEarthと連動する3D-CAD すごいです。
***MapWindowGIS&Shape2Earth:~ [#fee46ab7]
-MapWindowGIS HomePage http://www.mapwindow.org/
-Shape2Earthのページ http://shape2earth.com/
-MapWindowGISとShape2Earthを使って、KMLを作ってみました。...
注）shape2earthは７日間無料で、その後お金をとられます。う...
#ref(saitama2.kml)~
***Unype: [#z1a322b0]
-Skypeを使ってGEをネット上で「マルチに」連動させるプログ...
-Unype HomePage http://www.unype.com/~
*Rを用いたGoogleEarthの活用 [#q6a502e4]
**rcom パッケージ [#jabc644f]
rcom:http://cran.md.tsukuba.ac.jp/web/packages/rcom/rcom....
***rcomを使ってRからGoogleEarthを直接コントロールする(Win...
[[RDCOM/RCOM解説]]参照。~
rcomは常に最新版にupdateしておいてください。~
~
rcomを使うとRからGEが簡単にコントロールできるようになりま...
バージョンの取得:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
comGetProperty(x,"VersionAppType") #アプリケーションタイプ
comGetProperty(x,"VersionMajor") #バージョン（メジャー番...
comGetProperty(x,"VersionMinor") #バージョン（マイナー番...
comGetProperty(x,"VersionBuild") #バージョン（ビルド番号)
視点の移動:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
cam<-comCreateObject("GoogleEarth.CameraInfoGE")
comSetProperty(cam,"FocusPointLatitude","35.3874") #フォ...
comSetProperty(cam,"FocusPointLongitude","139.4285") #フ...
comSetProperty(cam,"Range","100") #フォーカスからの距離...
comSetProperty(cam,"Tilt","70") #傾き（度）
comSetProperty(cam,"Azimuth","-49") #方位（度）
comInvoke(x,"SetCamera",cam,"0.1") #実行
カメラの位置取得:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
cam0<-comInvoke(x,"GetCamera","1")
comGetProperty(cam0,"FocusPointLatitude") #フォーカス−緯...
comGetProperty(cam0,"FocusPointLongitude") #フォーカス−...
comGetProperty(cam0,"FocusPointAltitude") #フォーカス−高...
comGetProperty(cam0,"FocusPointAltitudeMode") #フォーカ...
comGetProperty(cam0,"Range") #フォーカスからの距離（上空...
comGetProperty(cam0,"Tilt") #傾き（度）
comGetProperty(cam0,"Azimuth") #方位（度）
サーチ:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
search<-comCreateObject("GoogleEarth.SearchControllerGE")
comInvoke( search,"Search","東京タワー")
KMLの図形等の直接書き込み:~
library(rcom)
KMLData<-paste('<?xml version="1.0" encoding="UTF-8"?> ',
'<kml xmlns="http://earth.google.com/kml/2.2">',
'<Document>',
'<name>poly.kml</name>',
'<Placemark>',
'<name>poly</name>',
'<styleUrl>#msn_ylw-pushpin</styleUrl>',
'<Polygon>',
'<tessellate>1</tessellate>',
'<altitudeMode>relativeToGround</altitudeMode>',
'<outerBoundaryIs>',
'<LinearRing>',
'<coordinates>',
'142.528104678677,36.84729384409629,22606 142.045158460...
'</coordinates>',
'</LinearRing>',
'</outerBoundaryIs>',
'</Polygon>',
'</Placemark>',
'</Document>',
'</kml>',sep='')
KMLData2 <-paste("<?xml version=\"1.0\" encoding=\"UTF-8...
"<kml xmlns=\"http://earth.google.com/kml/2.1\">",
"<Placemark>",
"<name>Geneva</name>",
"<LookAt>",
"<longitude>139.4285</longitude>",
"<latitude>35.3874</latitude>",
"<altitude>0</altitude>",
"<range>316.3662914479763</range>",
"<tilt>0</tilt>",
"<heading>6.199453434125936</heading>",
"</LookAt>",
"<Point>",
"<coordinates>6.156019183879536,46.20743386584116,0</coo...
"</Point>",
"</Placemark>",
"</kml>",sep="")
GEI<-comCreateObject("GoogleEarth.ApplicationGE")
comInvoke(GEI,"LoadKmlData",KMLData)
comInvoke(GEI,"LoadKmlData",KMLData2)
RからGEへのShapeFileポリゴンの直接書き込み:~
#ref(shp2kmlDirectver02.txt)~
LoadKmlDataで大きなKMLを渡すとGEがハングしますので、細切...
事前にGEを起動して、群馬県あたりを表示しておいてください。~
また、この方法ではフォルダ名やファイル名に日本語は使えな...
** sp：maptools：rgdalパッケージ [#scc8e24d]
[[sp(空間データ用クラスおよびメソッド)パッケージ中のオブ...
[[maptools(Maptools)パッケージ中のオブジェクト一覧]]~
[[rgdal(GDAL(Geospatial Data Abstraction Library, 地理空...
maptools:http://cran.md.tsukuba.ac.jp/web/packages/maptoo...
sp:http://cran.md.tsukuba.ac.jp/web/packages/sp/sp.pdf~
rgdal:http://cran.md.tsukuba.ac.jp/web/packages/rgdal/rgd...
***RでShapeFileからkmlファイルを直接作成する方法（基本編...
[[空間的なデータの分析]]よりGISdata.zipをダウンロードし、...
#ref(shp2kmlver03.txt)~
#ref(GoogleEarthとR/shp2kml03.jpg,30%)~
凡例オーバーレイ付き~
#ref(shp2kmlver035.txt)~
#ref(GoogleEarthとR/shp2kmlver035.JPG,30%)~
**ラスターオーバーレイ [#id44ecf3]
***maptools:kmlOverlay [#y658cd2d]
~
SpatialPointsDataFrameデータを用いて、PNG・KMLを出力し、G...
KMLと作成されたPNGはC:直下に落ちてきますので、kmlOverlay....
library(maptools)
library(rgdal)
opt_exask <- options(example.ask=FALSE)
qk <- SpatialPointsDataFrame(quakes[, c(2:1)], quakes)
proj4string(qk) <- CRS("+proj=longlat")
tf <- "c:/kmlOverlay"
SGqk <- GE_SpatialGrid(qk)#<=ここがミソ
png(file=paste(tf, ".png", sep=""), width=SGqk$width, he...
bg="transparent")
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
plot(qk, xlim=SGqk$xlim, ylim=SGqk$ylim, setParUsrBB=TRU...
dev.off()
kmlOverlay(SGqk, paste(tf, ".kml", sep=""), paste(tf, "....
#ref(GoogleEarthとR/kmlOverlay.JPG,30%)~
***kmlOverlayNode（自作S4クラス） [#nb80dccb]
kmlOverlayでは機能が足りないので作成しました。~
kmlOverlayNodeクラスには、SpatialPointsDataFrameとGE_SGク...
また、show()とwritekml()メソッドを設定しました。show()は...
#kmlOverlayNodeClass ver0.1.4
setClass("kmlOverlayNode",
representation = representation(sppdf="SpatialPointsDa...
item="character",
range="numeric",
kmlpath="character",
pngpath="character",
color="character",
pch="numeric",
pointsize="numeric",
GE_SG="GE_SG"),
prototype = prototype(sppdf=NULL,
item="",
range=0,
kmlpath="c:/",
pngpath="c:/",
color="green",
pch=19,
pointsize=24,
GE_SG=NULL))
setMethod("show",signature(object="kmlOverlayNode"),
function(object){
sppdf<-object@sppdf
i<-object@item
r<-object@range
kp<-object@kmlpath
pp<-object@pngpath
col<-object@color
ps<-object@pointsize
pch<-object@pch
gesg<-object@GE_SG
cat("kmlOverlayNode::","\n")
cat("\nSpatialPointsDataFrame:","\n")
str(sppdf)
cat("\nitem name:",i)
cat("\nrange:",r)
cat("\nkmlpath:",kp)
cat("\npngpath:",pp)
cat("\ncolor:",col)
cat("\npch:",pch)
cat("\npointsize:",ps)
cat("\nGE_SG:","\n")
str(gesg)
})
writekml<-function(x)x
setGeneric("writekml")
setMethod("writekml",signature(x="kmlOverlayNode"),
function(x){
sxml<-'<?xml version="1.0" encoding="UTF-8"?>'
skml<-'<kml xmlns="http://earth.google.com/kml/2.2">';...
sGroundOverlay<-"<GroundOverlay>";eGroundOverlay<-"</G...
sname<-"<name>";ename<-"</name>"
nametag<-paste(sname,x@item,"(",x@color,")",ename,sep=...
sIcon<-"<Icon>";eIcon<-"</Icon>"
pngfilename<<-paste(x@pngpath,x@item,".png",sep="")
pngfile<-paste("<href>",pngfilename,"</href>",sep="")
viewBoundScale<-"<viewBoundScale>0.75</viewBoundScale>"
altitude<-paste("<altitude>",x@range,"</altitude>",sep...
altitudeMode<-"<altitudeMode>absolute</altitudeMode>"
sLatLonBox<-"<LatLonBox>";eLatLonBox<-"</LatLonBox>"
north<-paste("<north>",x@GE_SG$ylim[['max']],"</north>...
south<-paste("<south>",x@GE_SG$ylim[['min']],"</south>...
east<-paste("<east>",x@GE_SG$xlim[['max']],"</east>",s...
west<-paste("<west>",x@GE_SG$xlim[['min']],"</west>",s...
outkml<-c(sxml,skml,sGroundOverlay,nametag,sIcon,pngfi...
outfile<-paste(x@kmlpath,x@item,".kml",sep="")
write(outkml,outfile)
png(file=paste(x@pngpath,x@item, ".png", sep=""), widt...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
plot(x@sppdf,pch=x@pch,cex=0.05*sqrt(x@sppdf[[x@item]]...
dev.off()
})
更新履歴：~
2008/04/07 ver0.1.4 メソッドのwrite()をwritekml()に変更。...
***kmlOverlayNodeクラスを利用したサンプル [#ua23f806]
（事前にkmlOverlayNodeクラスを作成しておくこと）~
library(maptools)
library(rgdal)
qk <- SpatialPointsDataFrame(quakes[, c(2:1)], quakes)
proj4string(qk) <- CRS("+proj=longlat")
SGqk <- GE_SpatialGrid(qk)
kmlOVN<-new("kmlOverlayNode")
kmlOVN@sppdf<-qk
kmlOVN@GE_SG<-SGqk
kmlOVN@item<-"mag"
kmlOVN@range<-0
kmlOVN@pch<-3
kmlOVN@pointsize<-24*5
kmlOVN@color<-"red"
show(kmlOVN)
writekml(kmlOVN)
**ベクターオーバーレイ [#qe193475]
***maptools:kmlLine [#ued787b2]
maptoolsのサンプルを実行。tempファイル内にkmlが作成される...
#ref(GoogleEarthとR/kmlLine1.PNG,30%)~
***maptools:kmlPolygon [#e47aa9e8]
maptoolsのサンプルを実行。tempファイル内にkmlが作成される...
#ref(GoogleEarthとR/kmlPolygon1.PNG,30%)~
ごらんのようにポリゴンホールにもきちんと対応しています。~
#ref(GoogleEarthとR/kmlPolygon2.PNG,30%)~
***rgdal:writeOGR [#a477f780]
[[空間的なデータの分析]]からGISdata.zipをダウンロードし、...
ShapeFileからSpatialPolygonsDataFrameオブジェクトを作成し...
KMLはC:直下に落ちてきますので、kmlOverlayVector.kmlをダブ...
library(maptools)
library(rgdal)
x<-readShapePoly("c:/GISdata/gunma.shp")
x@data$PREF<-iconv(x@data$PREF,"","utf-8")
x@data$CITY1<-iconv(x@data$CITY1,"","utf-8")
x@data$CITY2<-iconv(x@data$CITY2,"","utf-8")
x@data$TOWN1<-iconv(x@data$TOWN1,"","utf-8")
x@data$TOWN2<-iconv(x@data$TOWN2,"","utf-8")
tf <- "c:/kmlOverlay"
writeOGR(x, paste(tf, "Vector.kml", sep=""), "gunma", "K...
#ref(GoogleEarthとR/writeogr2.JPG,30%)~
**XMLパッケージ [#r080edf7]
***XMLパッケージでwriteOGRで出力されたkmlデータを再構成＝...
writeOGRで出力されたkmlデータをXMLパッケージを用いて再構...
(構造決めうちなので、[[ShapeFileライブラリ]]のデータをwri...
注）R2.7.2は日本語が文字化けします。R2.6.2ですと日本語も...
kmlAltitudeNode<-function(doc,data,fillcolor,linecolor){
library(XML)
#岡田先生の流用
findDoc <- function(x) {
if(xmlName(x) == "Document") {
return(x)
}
for(m in xmlChildren(x)) {
n <- findDoc(m)
if(!is.null(n)) {
return(n)
}
}
return(NULL)
}
node0 <- findDoc(xmlRoot(doc))
len1<-length(node0[[1]])
for(i in 2:len1){
#altitude
node1<-node0[[1]][[i]][[2]][[1]]
node1<-addChildren(node1,xmlNode("extrude","1"),xmlN...
#fillcolor
node2<-node0[[1]][[i]][[3]][[2]]
node2<-xmlNode("PolyStyle",xmlNode("color",fillcolor[...
#linicolor
node3<-node0[[1]][[i]][[3]][[1]]
node3<-xmlNode("LineStyle",xmlNode("color",linecolor))
#polygon
len2<-length(node0[[1]][[i]][[2]][[1]])
for(j in 1:len2){
x1<-xmlValue(node1[[j]][[1]][[1]])
x2<-rev(unlist(strsplit(x1," ")))
x3<-paste(x2,data[[i-1]],sep=",",collapse=" ")
node1[[j]][[1]][[1]]<-xmlNode("coordinates",x3)
}
node0[[1]][[i]][[2]][[1]]<-node1
node0[[1]][[i]][[3]][[2]]<-node2
node0[[1]][[i]][[3]][[1]]<-node3
}
return(node0)
}
#sample
library(XML)
doc <- xmlTreeParse("c:/kmlOverlayVector.kml")
data<-sample(1000:10000,39)
fillcolor<-c("ff000000","ffff0000","ff00ff00","ff0000ff"...
linecolor<-"NA"
x<-kmlAltitudeNode(doc,data,fillcolor,linecolor)
saveXML(x,"c:/test.kml")
#ref(GoogleEarthとR/xml1.JPG,30%)~
**Examples [#q62094ba]
***meuse川の土壌汚染に関するデータを用いた3D-BubblePlot [...
spパッケージではおなじみのdata(meuse)を用いてGoogleEarth...
土壌内の重金属の種類はレイヤごとに分割して、高度を変化さ...
#ref(GoogleEarthとR/meuse.JPG,30%)~
#ref(GoogleEarthとR/meuse2.JPG,30%)~
#ref(GoogleEarthとR/meuse3.JPG,30%)~
#ref(meuse.kmz)~
library(maptools)
library(rgdal)
data(meuse)
fkml<-function(itemname="",Range=0,north=0,south=0,east=...
sxml<-'<?xml version="1.0" encoding="UTF-8"?>'
skml<-'<kml xmlns="http://earth.google.com/kml/2.2">';ek...
sGroundOverlay<-"<GroundOverlay>";eGroundOverlay<-"</Gro...
sname<-"<name>";ename<-"</name>"
nametag<-paste(sname,itemname,ename,sep="")
sIcon<-"<Icon>";eIcon<-"</Icon>"
pngfilename<<-paste("c:/",itemname,".png",sep="")
pngfile<-paste("<href>",pngfilename,"</href>",sep="")
viewBoundScale<-"<viewBoundScale>0.75</viewBoundScale>"
altitude<-paste("<altitude>",Range,"</altitude>",sep="")
altitudeMode<-"<altitudeMode>absolute</altitudeMode>"
sLatLonBox<-"<LatLonBox>";eLatLonBox<-"</LatLonBox>"
north<-paste("<north>",north,"</north>",sep="")
south<-paste("<south>",south,"</south>",sep="")
east<-paste("<east>",east,"</east>",sep="")
west<-paste("<west>",west,"</west>",sep="")
outkml<-c(sxml,skml,sGroundOverlay,nametag,sIcon,pngfil...
outfile<-paste("c:/",itemname,".kml",sep="")
write(outkml,outfile)
}
meuse2<-SpatialPointsDataFrame(meuse[,c(1:2)],meuse)
proj4string(meuse2) <- CRS("+init=epsg:28992")
meuse3<-spTransform(meuse2,CRS("+proj=longlat"))
SGmeuse <- GE_SpatialGrid(meuse3)
itemname<-"cadmium"
fkml(itemname=itemname,Range=110,north=SGmeuse$ylim["max...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"zinc"
fkml(itemname=itemname,Range=80,north=SGmeuse$ylim["max"...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"lead"
fkml(itemname=itemname,Range=90,north=SGmeuse$ylim["max"...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"copper"
fkml(itemname=itemname,Range=100,north=SGmeuse$ylim["max...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
出来上がった、zinc.kml,cadmium.kml,copper.kml,lead.kmlをG...
***kmlOverlayNodeクラスで処理した場合 [#u1770c49]
kmlOverlayNodeクラス（自作）を利用した作成した場合のコー...
library(maptools)
library(rgdal)
data(meuse)
meuse2<-SpatialPointsDataFrame(meuse[,c(1:2)],meuse)#Spa...
proj4string(meuse2) <- CRS("+init=epsg:28992")#プロジェ...
meuse3<-spTransform(meuse2,CRS("+proj=longlat"))#緯度・...
SGmeuse <- GE_SpatialGrid(meuse3)#GE上に投影するグリッド...
kmlOVN<-new("kmlOverlayNode")#kmlOverlayNodeのインスタン...
kmlOVN@sppdf<-meuse3#バブルプロット用データの設定
kmlOVN@GE_SG<-SGmeuse#グリッドデータの設定
items<-c("zinc","lead","copper","cadmium")#表示用アイテ...
colors<-c("green","cyan","yellow","orange")#バブルポイン...
ranges<-c(80,90,100,110)#GEにオーバーレイするレイヤの高...
kmlOVN@pointsize<-24#バブルポイントの大きさ（デフォルト...
i<-0
for(i in 1:4){
kmlOVN@item<-items[i]
kmlOVN@color<-colors[i]
kmlOVN@range<-ranges[i]
show(kmlOVN)#インスタンスの内容の確認
writekml(kmlOVN)#kml出力実行
}
***meuse川の土壌汚染3D-BubblePlotのGoogleMapでの表示 [#oe...
http://maps.google.co.jp/maps?f=q&hl=ja&geocode=&q=http:%...
***ipodTouchでmeuse川の土壌汚染3D-BubblePlotの表示 [#d9b9...
上記のURLをipodTouchのsafariからアクセスしただけです。ち...
ipodTouchでも同様に表示できています。いや〜それにしてもip...
#ref(GoogleEarthとR/ipodtouch.jpg,50%)~
***GoogleEarthPluginを利用したHTMLの作成 [#c54ee354]
Webで利用できるGoogleEarthです。GoogleEarthPluginは上記...
ここでは、RでGoogleEarthPluginを利用したHTMLを作成しま...
***GoogleEarthPluginの起動(HTML) [#zc573fe0]
#ref(GoogleEarthとR/geplugin1.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
JS1<-c('<script>google.load("earth", "1");','var ge = nu...
JS2<-c('function init() {','google.earth.createInstance(...
JS3<-c('function initCallback(object) {','ge = object;',...
JS4<-c('function failureCallback(object) {','}','</scrip...
h5<-c("</head>","<body onload='init()' id='body'>","<cen...
h6<-c("<div id='map3d_container'","style='border: 1px so...
h7<-c("<div id='map3d' style='height: 100%;'>","</div>",...
text<-c(h0,h1,h2,h3,JS1,JS2,JS3,JS4,h5,h6,h7)
write(text,"c:/geplugin1.html")
C:直下に落ちてきます。
#ref(geplugin1.html)
***GoogleEarthPluginでmeuse川データ表示1 [#g9b83a07]
#ref(GoogleEarthとR/geplugin2.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
JS1<-c('<script>google.load("earth", "1");','var ge = nu...
JS2<-c('function init() {','google.earth.createInstance(...
JS3<-c('function initCallback(object) {','ge = object;',...
JS4<-c('function failureCallback(object) {','}','</scrip...
h5<-c("</head>","<body onload='init()' id='body'>","<cen...
h6<-c('<iframe src="http://www.takitwithme.com/geiframe....
h7<-c("</center>","</body>","</html>")
text<-c(h0,h1,h2,h3,JS1,JS2,JS3,JS4,h5,h6,h7)
write(text,"c:/geplugin2.html")
C:直下に落ちてきます。
#ref(geplugin2.html)
#ref(geplugin2.hta)
***GoogleEarthPluginでmeuse川データ表示2 [#q70b1592]
#ref(GoogleEarthとR/meuse3d.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
h4<-c("<script>")
JS1<-c('google.load("earth", "1");','var ge = null;','fu...
JS2<-c('function initCallback(object) {','ge = object;',...
JS3<-c("function failureCallback(object) {","}")
JS4<-c("function finished(object) {","if (!object) {","a...
f1<-c("</script>","</head>","<body onload='init()' bgcol...
f2<-c("<div>",'<font style="font-family:arial;font-size:...
f3<-c("<table>","<tr valign=top><td>","<div id='map3d_co...
f4<-c('</td></tr>','</table>','</body>','</html>')
text<-c(h0,h1,h2,h3,h4,JS1,JS2,JS3,JS4,f1,f2,f3,f4)
write(text,"c:/geplugin3.html")
#ref(geplugin3.html)
#ref(geplugin3.hta)
*その他 [#x2530cdc]
**GERライブラリ (内容が古くなっています）[#z38d7bbb]
GoogleEarth上で塗りわけ地図（主題図）を表示させるためのラ...
R(D)COMを用いてExcelと連動できるGERexcel.xlsつき。~
~
実行環境：~
OS:WINXPSP2,WIN2000~
R:R2.4.1,maptoolsv0.6-3~
GERexcel.xlsを利用する場合は、RSrv201が必要~
R(D)COMのダウンロードサイト(http://sunsite.univie.ac.at/r...
Excel:2000~
GoogleEarth:4(2722)~
~
利用データ：~
okinawaDATA.csv:厚生労働省が公開しているデータ(平均寿命20...
okinawa.shp:ESRIジャパン株式会社の全国市区町村界データ~
「本データの作成に当たっては、ESRIジャパン株式会社の全国...
~
#ref(GoogleEarthとR/GERexcel.jpg,50%)~
#ref(geroot032.zip)~
#ref(japanae2000.zip)~
~
更新履歴：~
2006/12/19 GERLib ver0.3.2 第3版公開~
2006/09/26 GERLib ver0.3.1 第2版公開(Excel対応)~
2005/12/01 japanae2000.zip 公開~
2005/11/24 GERLib ver0.2.0 公開初版~
~
-2006/12/19 細かいバグを取り、若干修正。~
-2006/09/26 ExcelからGEの操作ができるように改良しました。~
-2005/12/01 japanae2000.zipは、平均寿命2000年男性および女...
添付しているshapecleanerでクリーニングしてから利用してく...
-注）平均寿命2000年男性および女性のデータは厚生労働省が公...
http://www.mhlw.go.jp/toukei/saikin/hw/life/ckts00/xls/hy...
-2005/11/24 まだまだ不完全ですが、とりあえず公開します。~
**COLOR(blue){SIZE(20){ギャラリー}} [#x7e2e265]
1.埼玉県１９９５年平均寿命男性(2005/10/23更新)~
#ref(GoogleEarthとR/saitamaAEM1995.JPG,50%)~
#ref(saitama.kmz)~
~
2.千葉県１９９５年平均寿命男性(2005/10/23更新)~
#ref(chiba.kmz)~
プリズムマップ
#ref(chibaprizm.kmz) ~
~
3.群馬県１９９５年平均寿命男性(2005/10/23更新)~
#ref(gunma.kmz)~
~
4.関東１９９５年平均寿命男性~
#ref(GoogleEarthとR/kanto.JPG,50%)~
#ref(kantoinjapan.kmz)~
~
5.日本全図２０００年平均寿命男性(最新データです）(3Dポリ...
#ref(GoogleEarthとR/japanaem2000.JPG,50%)~
http://bbs.keyhole.com/ubb/download.php?Number=165657~
ちょっとまだ不完全ですがＵＰしてみました。今回のものは凡...
~
6.日本全図２０００年平均寿命女性~
http://bbs.keyhole.com/ubb/download.php?Number=169274~
~
解説）上記の図の凡例はクオンタイルを用いて１６分割してい...
追伸）１９９５年および２０００年の市区町村別生命表は、す...
~
7.沖縄県市町村の３大死因クラスターの分布~
沖縄県市町村の３大死因（がん・脳血管疾患・心疾患）のＳＭ...
~
赤い地域は、死亡比が増加している地域です。青い地域は男性...
~
#ref(GoogleEarthとR/3clust.JPG,50%)~
#ref(3大死因cluster2.kml)~
~
**日本県境データ [#e819ab35]
~
#ref(JapanPrefecture.kmz)~
#ref(GoogleEarthとR/jp.JPG,50%)~
~
GoogleEarthのPlaces内のJapan Prefectureを右クリックし、Ed...
~
**ＧＥインタラクティブファンクション [#i0241218]
GECOM_APIマニュアルが公開されました( http://earth.google....
(1)インタラクティブにポリゴンの色を変化させる~
インタラクティブにポリゴンの色を変化させるためのGoogleEar...
赤い玉と黄色い玉の上にマウスポインタを置いてみてください。~
この方法をうまく使うと、塗りわけ色の色階級を逐次変化させ...
#ref(change-polygon-color.kml)
~
(2)KEYHOLElib(GoogleEarthAPI)を用いて、IEとGEを連動させる...
~
IEとGEを連動させるサンプルです。IEから利用してください。~
起動するとＩＥのセキュリティチェックが働きますが、許可し...
また、RDCOMが必要なプログラムもありますので事前にRDCOM2.0...
（htmlとhtaの両方を用意しましたので、使い分けてください。...
-moveToCoordinates :表示されているボタンを押すとGEが自動...
#ref(moveToCoordinates.html)~
#ref(moveToCoordinates.hta)~
-ScreenShot :白黒のスクリーンショットを任意の解像度で取り...
#ref(ScreenShot.html)~
#ref(ScreenShot.hta)~
-getCoods :GE上のCoordinateのlatitude・longitudeを抽出し...
#ref(getCoods.html)~
#ref(getCoods.hta)~
-getCoodsToRplot :getCoodsで抽出したlatitude・longitudeを...
#ref(getCoodsToRplot.html)~
#ref(getCoodsToRplot.hta)~
~
*コメント欄アーカイブ [#w721a388]
**コメント欄(2008) [#t3d5aede]
- GEbrogのThe Year 2008 in Google Earthを見ました。ことし...
- はい、そうです。ただ、今のところ高度0の場合に有効のよう...
- ↓↓"AltitudeMode"タグの要素値に、"clampToAltitude" を入...
- 追伸。今後RでのKML作成についてはrgdal&XMLパッケージを用...
- しかしTMEの作者はこんな「かくし仕様」をどうやって調べた...
- ↓確認しました。確かに正常に描画されるようになりました。...
- ポリゴンのホール(というより、色の塗り面から地面が浮き出...
- TMEに[[ポリゴンのホール（穴）]]への対策が書かれています...
- EveryTrail Now a Layer in Google Earth! -- iPhone appの...
- TMEの作者がGooglePlexでプレゼンしたそうです。この人もGo...
- Google Earth Plus Discontinuedだそうだ。まあ、free版と...
- TMEのドキュメントを見てますが、ノウハウがばっちり詰まっ...
- やたー！また楽しみが増えますね！ -- [[okinawa]] &new{20...
- [[Thematic Mapping Engine:http://thematicmapping.org/en...
- みなさ〜ん！おまたせ〜！The Earth Browser Plug-in is no...
- 現在は存在してません。研究途上でGoogleEarthと似た仕組み...
- ↓"Google Human being"ってサイトはどこにあるのでしょうか...
- Ancient Rome in 3D for Google Earthを見て。CNET Japan ...
感想としては、観光というより高品質な教材に見える。（ただ...
日本では電子教材市場がどの程度存在するのか判らないが、ア...
そういう意味では↓の「今昔マップ２」のKML出力はGEの利用と...
- [[時系列地形図閲覧ソフト「今昔マップ2」:http://ktgis.ne...
- ↓FOSS4G2008 TOKYO 行ってきました。Ｒの話題はまったくあ...
- 追伸、iphone/ipod touch GEはオフラインでも動くようです...
- キターーーーーーーー！！！！iphone/ipod touch GoogleEar...
- Thematic Mapping EngineはグラフィカルにKMLを作成してい...
- ↓"Thematic Mapping Engine"の違いはなんでしょうか？ -- ...
- [[kmlライブラリ]]を公開しました。 -- [[okinawa]] &new{2...
- ↓この方法は、プログラムをガリガリ組まなくても良い方法な...
- 「writeOGRで出力されたkmlデータをXMLパッケージで再構成...
- ↓すごく面白そう！ -- [[okinawa]] &new{2008-10-15 (水) 1...
- 来月東大CSISで開催予定の[[FOSS4G2008 TOKYO :http://www....
- httpサーバー側にデータを投げれれば、どれを使ってもいい...
- ↓レスありがとうごおざいます。[[rapache:http://biostat.m...
- できると思いますが、結局サーバーサービスになってしまう...
- Google Earh API + ExtJS を使った[[Earth Atlas:http://bl...
- 初めて気が付いたのですが、GE(WIN)インストールするとgpsb...
- Mandaraを使ってみた。KML出力もきれいにできるんですね。...
- お〜！かなりいいかんじになりましたね。かゆいところに手...
- 地理教育で利用されている[[Mandara:http://www5c.biglobe....
- WriteOGRのコードをUTF-8に対応するように変更しました。こ...
- やっとtouchをverUpできました！ -- [[okinawa]] &new{2008...
- iphone3Gがとうとうでました。でもtouch用firmware2.0はい...
- shapefileライブラリで紹介しているが、全国基準地域メッシ...
- AGE480について。描画は高速化している。マウスコントロー...
- [[ArcGIS Explorer サポート:http://www.esri.com/software...
- GoogleEarthplug-inの新しいバージョン（Mac&LinuxOS,Multi...
- ソフトバンクiphone月8300円か。ざっと計算して２０万。買...
- R ver3.0か・・・。R教授は何か考えてるんだろうか。 -- [[...
- [[Firefox3の灯:http://tomoshibi.mozilla.jp/]]。夜景がき...
- .Callの向こう岸：shapefileの仕様には3Dのフォーマットも...
- 個人的メモ２．よく考えてみたらGEpluginでColladaファイル...
- 個人的メモ。GoogleEarthは2005/06/28に公開された。もうす...
- まあ、待て。まずはターミナル画面から・・・。 -- [[okina...
- R for iPhone そろそろ話題に．．． -- &new{2008-06-10 (...
- iphone登場しました。８Gで$199です。安い！ -- [[okinawa]...
- 下記TMEで使われているGE上にグラフを書く手法は、Google C...
- Thematic Mapping Engine http://blog.thematicmapping.org...
- GoogleEarth Blogより Thematic Mapping Engine (TME)とGE...
- GoogleEarth Blogより 「Disney World 3D for Google Eart...
- そうですね。軽くないと「ごろ寝deR」ができないし。 -- [[...
- iphone もいいけど、 Willcom のUMLPC(0.5kgは重いなぁ)の...
- iphoneはソフトバンクから！発売は年内。 -- [[okinawa]] &...
- keyですが、ローカルIPでもOKのようです。もしかして、起動...
- だんだんわかってきました。まずkeyが「サイト専用」なので...
- FireFoxで動作確認してたけど、IE6だとうまく動かないなぁ...
- GoogleEarthPluginのRコード修正。 -- [[okinawa]] &new{20...
- GoogleEarthPluginでmeuse川データ表示2追加！（人のサイト...
- こちらに来られている方の中には、okinawaはXMLパッケージ...
- MacとLinuxの方はGEpluginがいまだ利用できないので、悔し...
- GEpluginをいろいろいじっていたのだが、これまでのGE(KML)...
- GEplugin対応のサイトが続々登場しているようですね。from ...
- htmlじゃなくてhtaでもそのまま動きますね。MiniEarthが作...
- 「GoogleEarthPlugin?を利用したHTMLの作成」更新 -- [[oki...
- meuse川のkmzを表示させるHTML追加 -- [[okinawa]] &new{20...
- 一度起動すれば、オフラインにしても動いてますね。画面の...
- 「GoogleEarthPluginを利用したHTMLの作成」を追加！ -- [[...
- 忘れてました。ここです。http://code.google.com/apis/ear...
- meuse川のkmzをGEpluginでFirefoxに読み込ませてみました。...
#ref(GoogleEarthとR/geplugin.JPG,50%)~
- プログラムはJavaScriptですね。R2HTMLが使えるかな？ -- [...
- こここれはーー！！！やったー！！！Web内でGEが動いてます...
- Google is releasing a Google Earth plug-in! 動きがあり...
- libkml ver0.2が出ています。今日と明日(5/28,29)に開催さ...
- ESRI and Google Collaborateの続報。ESRIのArcGIS Server ...
- iPhone Earth！ Earthscape社製でGoogle純正ではないもの...
- Google Geo Search APIを一般に公開！ESRI and Google Col...
- ipodTouchでmeuse川の土壌汚染3D-BubblePlotの表示の追加 -...
- 確かに。 -- [[okinawa]] &new{2008-05-08 (木) 14:46:39};
- KML のカラースタイル設定は、なぜ RGBA ではなくて、ABGR...
- GE4.3バグフィックス版Update -- [[okinawa]] &new{2008-05...
- Googleが「GoogleOcean」を開発中！とうとう「深さ」が使え...
- 実はipod touchを購入して、GoogleMapを使ってみてるんです...
- ↓KML の座標形式はGMLに非常に近いので、GML の名前空間を...
- 追伸、KMLは正式にOGC(R)KML2.2としてOGCの管理下に入るよ...
- OGCですね。以前より共同でKML2.2を策定してたので、正式に...
- ↓国際標準といってもISOじゃないね。 -- &new{2008-04-17 ...
- 祝！KMLファイルフォーマット国際標準認定 -- [[okinawa]] ...
- これからは GeoRSS が重要。GE も対応している。 -- &new{...
- GE4.3リリース！ -- [[okinawa]] &new{2008-04-16 (水) 08:...
- kmlOverlayNodeクラスのMethod write()をwritekml()に変更...
- kmlOverlay (maptools)を用いたラスターオーバーレイにkmlO...
- meuse川のコードをkmlOverlayNodeクラス(自作)で処理した場...
- meuse川の土壌汚染3D-BubblePlotのGoogleMapでの表示追加...
- meuse川の土壌汚染に関するデータ（data(meuse)）を用いた3...
- libkml続報。SWIGに対応していると書いてありますので・・...
- GoogleからKMLパース用ライブラリlibkmlが出たようです！こ...
- GoogleSky on GoogleMap! ついにきましたね！ http://www....
- ESRI が ArcGIS Explorer 用 Explorer API (ArcGIS Explore...
- 面白いサイト発見しました。2006年度下期未踏ソフトウェア...
- [[ＲでＧＩＳ]]からの股引きですが、http://www.bias-proje...
- rgdalのwriteOGRの件ですが、どうやら「私のXPだけ」がおか...
- そういえばmaptoolsにreadGPSコマンドがありますね。今度は...
- rgdalのwriteOGRが正常に動くようになっています。<MultiPo...
**コメント欄(2007) [#mf0844d5]
- 驚いた！Googleによると、いつのまにか東京が「10cm」？解...
- 驚いた。新ArcGISExplorerかなりいいですね。KMLもうまく取...
- [[ArcGIS Explorer:http://resources.esri.com/arcgisexplo...
- 今日なにげなくAppleScriptの用語説明を開いてたら、Mac版G...
- どこに問題があるのかは特定できていません。ただ、<MultiP...
- ↓これはOGRライブラリーに問題があるのですか？ -- &new{2...
- rgdalのwriteOGRを利用してShapeFileからKMLに変換した場合...
- 個人的にはGEであろうがGMであろうがKMLの表示媒体として利...
- Google Maps の最近の機能アップ(Wiki ライクなコラボレー...
- Androidの感想。基本的に携帯電話なのですが、こんな電話だ...
- Android続報。きちんと日本語表示にも対応してるようだ。（...
#ref(GoogleEarthとR/android.JPG,50%)~
- YouTubeのGoogle Androidの動画を見ましたが、GEっぽいもの...
- 53です。 -- [[okinawa]] &new{2007-11-07 (水) 13:48:10};
- ところで、MS の Virtual Earth はどうよ？ -- &new{2007-...
- Googleがとうとう携帯用のソリューションを発表しました。G...
- Google Sketchup 6 日本語版公開！ -- [[okinawa]] &new{20...
- 冗長なコードが多く、スクロールが疲れるのでtxtで添付する...
- 作成した画像もアップしました。 -- [[okinawa]] &new{2007...
- RでShapeFileからkmlファイルを直接作成する方法（基本編）...
- youtube面白いですが、海の中にもあるのはどうしてだろう？...
- 改良しました。（目次からうまく飛びます） -- [[okinawa]]...
- コメント欄はもう少し上か、一番下にあるのがいいのではな...
- [[「Google Earth」にYouTube動画の再生機能を追加:http://...
- どういたしまして。ちょうどRCOMに取り組んでいたところな...
- okinawa さん、貴重な情報ありがとうございます。このよう...
- RからGEへのShapeFileポリゴンの直接書き込み追加。遅いけ...
- KML図形等の直接書き込みをUP。やればできる！ -- [[okinaw...
- 視点の移動、カメラの位置、サーチ追加。 -- [[okinawa]] &...
- GoogleEarth COM でググって見てください。何人かの方が色...
- ↓面白そうなんですけど、できれば図形の直接書き込み、始点...
- 「rcomを使ってRからGoogleEarthを直接コントロールする」...
- 立体的な矢印は、VRMLだと円錐と円筒でできるのですが、KML...
- ラインの幅はできたように思います。立体的な矢印は、標準...
- 失礼しました。ところで、ＫＭＬではラインに幅（横・上下...
- この欄の最初のほうに同じ質問がありますが・・・。 -- [[o...
- R を使って放物線をＫＭＬ出力できないかと考えております...
- writeOGRが吐き出すKMLを直接変数に取り込めれば、岡田先生...
- ↓なんだか面倒。R 内ですべて解決できないものか。 -- &ne...
- writeOGRで作成したKMLをGEで再保存すると、標高データがco...
- 遅くなったがkmlOverlayとwriteOGRをアップ。いいかんじで...
- GoogleEarthアップデート。主にバグ取り版です。 -- [[okin...
- GoogleearthBlogより、GE Free&Plusのライセンスの変更があ...
- bootcampでMacBookにubuntuを入れて、Linux版GEをインスト...
- Sky は本日法大で開催された[[日本国際地図学会:http://www...
- GoogleEarth アップデート Sky表示が可能に！ とうとう宇...
- Microsoft Virtual Earth will be supporting KML in a Sep...
- CSISでRが認知されてきているのはとてもうれしい限りですね...
- 東大 CSIS のCSIS SYMPOSIUM 2007 での丸山先生の講演[[「R...
- そういえばspのクラスって3dに対応してるのかしら？ -- [[o...
- maptoolsのS3MapクラスとS4SpatialPolygonsDataFrameクラス...
- ｒｇｄａｌのＫＭＬ出力は属性値を高さに使えない平面図の...
- グーグルアースを楽しむBlog@N-OでYahoo!PipesでKMLを作るT...
- 基本的にSOAPもRESTも「同じようなもの」と考えています。...
- SOAP ですか、 REST のような軽いものはどうですか？ -- &...
- そう、GeoWebですね。Rは機能的にはGeoMashUp空間統計解析...
- 「R and Google Earth」がOMEGAHAT内にあるのを見つけまし...
- 「単体のアプリとしてのGISと言うより、Web等を利用した一...
- GE Maniacsより＞フリーのGISソフト「Mandara」がKML出力対...
- 最近では単体のアプリとしてのGISと言うより、Web等を利用...
- 「ソフトウエアデザイン」の最新号に開発者の一人のインタ...
- 本当ですか？GML,G-XML,KMLいろいろあるが、やはりGoogle力...
- KML 3.0 で、OpenGISの実装仕様になるそうだ。 -- [[world_...
- [[グーグルアース レールウェイ:http://www.hobidas.com/b...
- KML2.2はGoogleとOGCが共同でフォーマットを策定していると...
- GoogleEarthもGoogeMapも何故このように使われるようになっ...
- GEではないのだが、兄弟のGoogleMapに大幅な進歩があったの...
- KML 2.2 beta リリース。 -- [[okinawa]] &new{2007-05-31 ...
-[[KML 2.1 Reference - An OGC Best Practice:http://portal...
-GEWin版のレジストリの中身を調べていて気がついたのですが...
-元々そうだったのかもしれませんが、GEはだんだん3Dブラウザ...
-GoogleEarthバージョンアップ(4.1b)しました。ファイルメニ...
-おお！これで、Rのグラフィック出力(PNG)をGEへ直接吐き出せ...
-maptools でもＧＥ対応！！ -- &new{2007-03-26 (月) 23:41...
-スタンフォード大学からなかなかすごいものが出てきました。...
-GEBlogより。Google Earth + Unype + Skype = Multi-User Go...
-長年の懸案であったGDAL/OGRを学ぶ必要が出てきた。rgdalも...
-MacOSX10.4.8&VMwareFusion For MacでUbuntu Edgyを動かし、...
-SPOT Image が Google Earth に高解像度２．５ｍの衛星画像...
-shape2earthが再公開されました。( http://www.shape2earth....
-ようやくkml2.1のスキーマファイル(.xsd)が正式に公開されま...
-いつのまにかGE4のβが取れてGE4(2722)が正式版になってまし...
-rgdal でも、KML出力ができますね。 -- [[wanderer]] &new{2...
-Macで使えるAppleRemote(赤外線コントローラ）を使ってGEを...
-Google Earth バージョンアップ (Build : 2722) p.s Inte...
**コメント欄(2006) [#if390ced]
-最近GEを使っていて思うのですが、GEはGISだけではなく、Rの...
-新しいGEでは、透過度の一括変更の扱いが変わったようです. ...
-GERライブラリver0.3.2UP R2.4.1に対応.細かな修正。 -- [[o...
-ギャラリーにＲ研究会でデモに用いたデータを追加しました。...
-New Google Earth 4 beta - 16-December-2006 -- [[okinawa]...
-Rとは直接関係ないけれど、オープンソースＧＩＳの普及促進...
-AGEでshapefileを読み込むにはプロジェクションが必要のよう...
-AGE使ってみました。なれもあると思いますが、GEに比べて表...
-でましたね ArcGIS Explorer。まだ触っていませんが、選択...
-ESRIより Google Earth 対抗ソフト？, ArcGIS Explorer がSD...
-東京大学生産技術研究所の相良先生がCSVアドレスマッチング...
-GE上で「情報を取得」などを行ってから再びKMLに書き出すと...
placemark2GeoData <- function(rootNode) {
findDoc <- function(x) {
if(xmlName(x) == "Document") {
return(x)
}
for(m in xmlChildren(x)) {
n <- findDoc(m)
if(!is.null(n)) {
return(n)
}
}
return(NULL)
}
ininode <- findDoc(rootNode)
namev <- vector()
addrv <- vector()
longv <- vector()
lattv <- vector()
for(node in xmlChildren(ininode)) {
if(xmlName(node) == "Placemark") {
n <- NULL
a <- NULL
gd <- NULL
for(i in xmlChildren(node)) {
if(xmlName(i) == "name") {
n <- xmlValue(i$children[[1]])
} else if(xmlName(i) == "address") {
a <- xmlValue(i$children[[1]])
} else if(xmlName(i) == "Point") {
gd <- strsplit(xmlValue(i$children[[1]]$children[[...
}
}
if(!(is.null(gd) | is.null(a) | is.null(n)) ) {
namev <- append(namev, n)
addrv <- append(addrv, a)
longv <- append(longv, gd[1])
lattv <- append(lattv, gd[2])
}
}
}
return(data.frame(Name=namev, Address=addrv, Longitude=...
}
こんな風に使います
> doc <- xmlTreeParse("ih.kml")
> hospg <- placemark2GeoData(xmlRoot(doc)) # これでLong,...
> merge(hospg,hospd,by="Name")
ちゃんとデバッグはまだしてないのでバグがあるかもしれませ...
-原因がわかりました. 番地とか, 正規にはある部分を削るとガ...
-（データが無いと0なので） と書かれていますよ -- &new{20...
-えっ！ジオコーディングが不完全な場所もあるんですか。 -- ...
-sink(file("hospd.kml",encoding="utf-8",open="w")) に治せ...
-だれか作るかな〜とは思ってたのですが、早速出てきましたね...
-XMLパッケージを使って住所を含むデータフレームからkmlを生...
一応手順を...
# hospdは $Addrに住所, $Nameに名前が入っているデータフレ...
>library(XML)
>makePlacemark <- function(x) {
addr=xmlNode("address", xmlTextNode(hospd$Addr[x]));
name=xmlNode("name", xmlTextNode(hospd$Name[x]));
return(xmlNode("Placemark",addr,name));
}
>addrList <- lapply(1:nrow(hospd), makePlacemark)
>d<-xmlNode("Document")
>for(i in 1:length(addrList)) { d$children[[i]] <- addrL...
>p <- xmlNode("kml", d)
>sink("hospd.kml")
>print(p)
>sink()
これでKMLはできるので、GEで読込めます。MacOS Xではこれだ...
-GEのいくつかのサイトで公表されていますが、プレイスマーク...
-GE4betaがバージョンアップしました。パスおよびポリゴンの...
-真っ白な画像を地球全体に貼り付けたらいかがでしょうか？ -...
-Google Earth/Maps 背景衛星・地図画像が消せたらいいのに -...
-GEBlogでも取り上げられていますが、GECOMのマニュアルが（...
-GERライブラリ不具合情報追加。 -- [[okinawa]] &new{2006-0...
-GERライブラリ（ver0.3.1）公開しました。 -- [[okinawa]] &...
-patchとGoogleMapOverlayは役目を終えたと思いますので、一...
-<あまりネットに出てないネタ>昨日気がついたのですが、GE4b...
-ついにGE日本語版の正式サイトがオープンしました！( http:/...
-本日より２日間、沖縄で開催されている国際人間ドック学会に...
-<GE Maniacsより>日本において新たなレイヤが追加されました...
GE4bがバージョンアップされました。表示フォント部分が改善...
-<GE Maniacsより> GE plug-in for FireFox(&IE) KeyholeAPI...
-アクセスカウンタが先週末から異常にあがりだしてるんですが...
-KMLの日本語解説は、ここです。（ http://bubble.atnifty.co...
-もっと具体的に示していただけないと回答できません。（ポリ...
-数値や文字列です。 -- [[GE effect]] &new{2006-07-27 (木)...
-属性とは、たとえばどんな属性のことですか？ -- [[okinawa]...
-KMLには属性は保存できるのでしょうか？ -- [[GE effect]] &...
-GE4bちょっとVerUP。いくつかの機能追加とバグ鳥。 -- [[oki...
-KML2.1のチュートリアル公開！( http://earth.google.com/km...
-MapWindowGISのサイトには日本語の掲示板もあり、Excelで利...
-MapWindowGISのスクリプトはVB.netやC#だし、プラグインはVB...
-MapWindowGIS使ってみましたが、これは使えます！GE周りの環...
-MapWindowGISって国際化対応のようですね、日本語のファイル...
-GEManiacさんがMapWindowGISを用いたShape2Earthの記事を書...
-なかなか面白いアプリですね。パリを見たら，歩道を歩いてい...
-教えていただいたレジストリパッチをＵＰしました。ありがと...
-日本語化データを利用させていただいたお礼に、日本語化した...
[HKEY_CURRENT_USER\Software\Google\Google Earth Plus\Ren...
"GuiFontFamily"="MS UI Gothic"
"GuiFontSize"=dword:0000000a
-GEManiacさんからの引用ですが、（ http://www.googleearth...
-GE4bは一部では日本語化されているとの話がでていますが、私...
-KMLが2.1になってました。3Dテクスチャが追加されて、色々機...
-Google SketchUp MacOSX版リリースされました. -- [[okinawa...
-早速いじってますが、ナビゲーションが画面で直接操作できる...
-Xの設定が十分ではなかったので泣きそうな速度でしたが, き...
-Linux版も出てます！ -- [[okinawa]] &new{2006-06-14 (水) ...
-おっと先をこされちゃった！ -- [[okinawa]] &new{2006-06-1...
-[[Google Earth 4」ベータ版公開:http://internet.watch.imp...
-ここのところいいネタがあまりないGE&Rであるが、GE側で衛星...
-GE-GRAPH （ http://paginas.terra.com.br/informatica/sgr...
-Rita やKatrina の影響を GoogleEarth で可視化を扱った htt...
-これで MetaCarta (テキストマイニング for GIS)とSpotFire...
-いつのまにやら、GEに日本の県境が表示されるようになってま...
-ユーザー喜びの声( http://virtual.haru.gs/up/src/uho0589....
-3DCADのSketchUpがGoogleに買収されてたのですが、Freeにな...
-日本語フォント用レジストリパッチUPしました。kml内に日本...
-exciteの自動翻訳を利用してページの（日本語=>英語）翻訳が...
-getCoodsToRplot追加! getCoodsでGEから抽出したlatitude・...
-ＧＥインタラクティブファンクションの項目にgetCoodsを追加...
-ＧＥインタラクティブファンクションの項目に新しいGE-API連...
-GEforMac未対応カードの情報です。( http://earth.google.co...
-GEforMacがOSX10.3.9に対応！(ビデオカードによってはうまく...
-GEでオリンピックを見よう！(http://services.google.com/ea...
-Google,VW,NVIDIAがカーナビＧＥを本当に開発中！（http://g...
-[[ShapeFileライブラリ]]の項に書きましたが、地球地図のbnd...
-「Web上でKMLファイルを作成する」をUPしました。 -- [[okin...
-「インタラクティブにポリゴンの色を変化させる」をUPしまし...
-冗長になってきましたので、時系列の表示を逆にして新規を上...
-GEMacはOSX10.3.9以前のOSもサポートするようになるとのこと...
-1.25GHz G4 PowerBookでもかなりさくさくです。2月になった...
-GEMacさくさく動くんですか！自分のPowerBookはOSX10.3なの...
-MacWorldに合わせたのかもしれませんね> GE Mac. 今や旧世代...
-おっと！いつのまにやらIntelMacがぞろぞろと発売！まさかこ...
-GoogleEarth for MacOSX(10.4)beta正式版がでました！http:/...
-GoogleEarth for MacOSX はIntelMacOSXでも動くようです。ht...
-R for Tiger-x86が出たみたいです http://research.att.com...
**コメント欄(2005) [#if390ced]
-すみません、既出の内容は理解していたのですが、時計回りだ...
-ポリゴン点が反時計回り順ですと、黒くなるようです。（kml...
-「日本全図２０００年平均寿命男性」に見られるようなきれい...
-続報！GE for MacOSX pre-betaが圧縮形式で出回ってました。...
-GoogleEarth for MacOSX テスト版の記事がでています！MacOS...
-すごいの発見！飛行機の現在の飛行状況が一目でわかる。 ( h...
-ありがとうございます！！ -- [[質問者]] &new{2005-12-02 (...
-できます。( http://bubble.atnifty.com/GIS/KML/orbit.kml ...
-よくＴＶの航空会社のＣＭで放送している、流動量(Rのパッケ...
-GoogleEarthをIEからコントロールする！(http://members.hom...
-平均寿命２０００年男女データおよび凡例データを公開しまし...
-応用編のライブラリを公開しました。 -- [[okinawa]] &new{2...
-あっ！不完全だったGoogleMapも完全に世界測地系になってま...
-残念ながら、わかりません -- [[okinawa]] &new{2005-11-21 ...
-世界測地系と日本測地系を切り替える具体的な高度を教えてく...
-GoogleEarthのバージョンが3.0.0762になりました。バグ鳥版...
-GE Maniacsに紹介されました。 http://virtual.haru.gs/ind...
-応用編のshp2kmlのコードは、仕様が固まった時点で公開した...
-日本の県境データ(JapanPrefecture.kmz)をUPしました。Googl...
-ちずろぐが面白い！( http://bubble.air-nifty.com/mapper/...
-GoogleEarthのバージョンが3.0.0739になりました。大きいオ...
-訂正、１９９５年、２０００年市区町村別生命表は、すでにベ...
-日本測地系と世界測地系のOverlayのコードを直接リンクする...
-GoogleMapが世界測地系になりました。以前公開していたloadg...
-shp2kml内のコードも変更しました。 -- [[okinawa]] &new{20...
-日本全図平均寿命女性２０００年UP! 沖縄女性はダントツ！ -...
-上記の現象は、ＧＥのポリゴン点が時計回りか反時計回りかに...
-日本全図平均寿命男性２０００年UP! -- [[okinawa]] &new{20...
-注！Google Earth (3.0.0693)BETA5にアップグレードすると、...
-関東UP! -- [[okinawa]] &new{2005-10-18 (火) 15:25:06};
-群馬県UP! -- [[okinawa]] &new{2005-10-12 (水) 13:23:05};
-なんらかのスケールファクターを取り入れたらどうでしょうか...
-max,min間の差が8才程度なので、高低差をきれいに出すのが難...
-すごーい！！こういうのをプリズムマップというのですが、属...
-千葉県UPしました。属性値をポリゴンの高さに割り当てていま...
-属性値を高さで表示させることはできませんか？ -- &new{20...
-Ｒのコードがちょっと複雑になりますが、もちろんできます。...
-特に意味はありません。富士山より高くしただけです。 -- [[...
-高さを""4,000"にしているのは意味があるのでしょうか？ -- ...
-すごいです！応用編も簡単にできるのであれば市販GIS並みで...
-kml->shpもお願いします。m(__)m -- &new{2005-10-03 (月) ...
*アクセス数： [#k695fc2a]
&counter;
人
終了行:
&color(black,#CCFFCC){LINK:[[[GoogleEarthとR]]][[[ShapeFi...
----
GoogleEarth [http://earth.google.com/]はGoogleが無料で公...
Rを用いて、インタラクティブな操作によって3D-GISを作成する...
GUI部分をGoogleEarthにまかせて、バックエンド処理をRで行う...
----
目次
#contents
----
&color(black){論文引用・書籍等に引用する場合の著作権につ...
----
*目的 [#v583419f]
GoogleEarth [http://earth.google.com/]はGoogleが無料で公...
現在、Windows版・Mac版・Linux版が公開されています。~
Rを用いて、インタラクティブな操作によって3D-GISを作成する...
しかし、GUI部分をGoogleEarthにまかせて、バックエンド処理...
なお地理データについては[[ShapeFileライブラリ]]にて公開し...
COLOR(red){「本ページにて公開しているShapeFileデータの作...
COLOR(red){本データの著作権はESRIジャパン株式会社に帰属し...
~
ESRIJapan様が公開されている全国市区町村境界データ~
[全国市区町村境界データ]http://www.esrij.com/products/gis...
[shapefileの仕様書]http://www.esrij.com/products/gis_data...
*コメント欄 (最新）[#y5430fd0]
#comment(below)
- iOS版のGEが３D対応になりました・・・がメモリ要求高杉！ ...
- 次期GEの３D機能がすごい -- &new{2012-06-07 (木) 09:36:...
- Google Maps はWebGL の採用で、やがて、WebGL と一体化か...
- [[GExplorer:http://planetinaction.com/gexplorer/index.h...
- GE 6.1 リリース -- &new{2011-09-21 (水) 11:53:39};
- KMZ LoaderはiOSのGEの共有フォルダ内にInBoxフォルダを生...
- 自作KMZを表示させたところ、どうやら色指定の順番が変わっ...
- KMZ LoaderはTimespans,Tours,ComplexPolygonには対応して...
- iPad/iPhone向けにKMZ Loaderが出ている。自作KMZをiOSのGE...
- Updates to all versions of Google Earth coming this sum...
- Google Earth Builder が出るらしい -- [[Okinawa]] &new{2...
- 最近、ArcGIS Explorer の add in が充実しているようだ。R...
- Google Maps 5.1 for Android リリース。iOS のアップデー...
- ↓友人のAndroidでみましたが、ほとんどGEですね。ぐりぐり...
- Google Maps 5.0 for Android リリース。 -- &new{2010-12...
- ↓↓Galaxy Tab 版が公開されているとか。Android 優先かな。...
- ESRIへのリンクを張り直しました -- [[okinawa]] &new{2010...
- GoogleMapsが3Dに対応するらしい。表示データもベクター化...
- ↓一般向けじゃないね -- &new{2010-12-06 (月) 13:14:48};
- Google Earth Engine 登場 -- [[okinawa]] &new{2010-12-04...
- GE 6.0 リリース。 -- &new{2010-11-30 (火) 09:38:05};
- iOSのGEってAppの中にファイル共有でデータが入れられるよ...
- Google Earth for iPhone updated with retina display, oc...
- The Google Earth COM API is being phased out だそうです...
- ウィキリークスによるアフガン戦争日記のKMLファイルは衝撃...
- お天気レイヤの雲をチェックすると地球に雨が降るギミック...
- ArcGIS for iOS(iPad/iPhone/iPod Touch) 無料リリース。 -...
- GE5.2 GE3iPad 両方試してみました。GE5.2はブラウザ部分の...
- ↓ちょっと表示が遅いかな -- &new{2010-06-16 (水) 09:58:...
- GE iPad 対応版リリース -- &new{2010-06-15 (火) 13:02:2...
- GE 5.2 リリース。 -- &new{2010-06-15 (火) 11:19:52};
- [[ArcGIS online:http://explorer.arcgis.com/]]。Bing は...
- ↓単に緯度経度をリンクさせて表示が切り替わってるだけっぽ...
- ↓APIも共通？ -- &new{2010-04-27 (火) 18:18:49};
- ↓ですね！ようやくでました。これでMapとEarthの境目がなく...
- Earth View 公開 -- &new{2010-04-27 (火) 13:38:24};
- iPad用をはやく触ってみたいですね。あと１ヵ月！ -- [[oki...
- [[Android 2.1版「Google Earth」公開:http://internet.wat...
- R を動かしたかったら、 slate PC。 -- &new{2010-01-09 (...
- iSlateではGEが大きく表示されるのかな？ -- [[okinawa]] &...
- Nexus One のGEではボイスコマンドが使えるらしい。でもiPh...
- Google は開発用の sim free の端末をGoogle Store? で、す...
- Google直販か？とのこと。どうやって売るのかな。 -- [[oki...
- これでiPhoneの縛りもゆるくなってくるかな。 -- [[okinawa...
- Google Phone が出てくる。これでマーケティングが見えてき...
- 「Go 言語にＲなどが移植されると・・・」＜ーちょっと言っ...
- ↓Android と Chrome OS は将来的には統一されるようですが...
- クロムOSにGoogleEarthが載ってくるとすごいけどな。 -- [[...
- Androidは技術的には問題ないですが、マーケティングが見え...
- ↓↓来年は Android がすごいような、予測ではＵＳＡで２年後...
- Rユーザー会2009発表スライドUP http://www.slideshare.net...
- すべてのものがiPhoneにシフトしてきてますね。元来地図系...
- Bing Maps もiPhone に対応するとか。 -- &new{2009-12-04...
- iPhone 用GE plug-in でないかな -- &new{2009-12-03 (木...
- GE5.1リリース。バグフィックス版でベータがとれました。 -...
- GE for iPhone2.0 追加＞マイマップはNetworkLinkのみKMLで...
- GoogleEarth for iPhone2.0が公開されています！なんとマイ...
下記の画像は、以前作ったgunma2.kmlをマイマップに登録してi...
また、meuse.kmzのようなラスターデータとの組み合わせもうま...
#ref(GoogleEarthとR/gunma2.jpg,50%)~
- route me というオープンソースのものはどうでしょうか。た...
- 現状のiphoneのマップでナビをやろうとすると地図データの...
- APPLELINKAGEより。Android 2.0向けの無料GPSナビアプリ「G...
- /.からの引用ですが、「海上自衛隊の護衛艦「くらま」と韓...
- 私のMacBookでは今までGEで太陽を見ることができなかったの...
- ジオコーディングもかなり速くなってますね！実用的なスピ...
- [[GE 5.1 公開:http://internet.watch.impress.co.jp/docs/...
- ArcGIS Explorer 9 使ってみました。機能的にはかなり良く...
- rgdalのWriteOGRにKMLのsampleが追加されています。 -- [[o...
- ↓デモとスペック等を見ただけですが、SDKもあるしGISviewer...
- [[ArcGIS Explorer 900:http://blogs.esri.com/Info/blogs/...
- なんだ、GE はもうかぐやのデータ使っている。[[http://int...
- そういえば、かぐやのデータが１１月に公開。ＧＥへはWMS(...
- GoogleEarthにMoon(月）追加 。月のshapefileってあるのか...
- rgdalでreadOGRを使ってKMLをRに読み込むことができるよう...
- GoogleNativeClient（GNC)でRをコンパイルすれば、ユニバー...
- 既報ですが、Google I/O 2009後に発表されていた「GoogleNa...
- http://planetinaction.com/ がすごい！ -- [[okinawa]] &n...
- このままでいくと、GoogleEarth ver6か7あたりでスタンドア...
- GoogleEarth APIが更新されているようです。GoogleMap内でG...
とうとう、GoogleMapとEarthの境目がなくなってきましたね。h...
- CoolApplicationsにKMLFACTBOOK追加。KML自動生成の集大成...
- [[O3D:http://japan.cnet.com/news/media/story/0,20000560...
- GoogleからO3DなるWeb3D plug-inが公開されています。その...
- rgdalですが、R2.8.*からKML2.2対応になっています。それ以...
- gx:タグ付きのやつですね。[[kmlラボ]]ではすでに対応して...
- "Google Earth 5.0 KML Extensions"ってどうだろう。 -- &...
- ↓GoogleOceanの次のネタかな・・・。 -- [[okinawa]] &new{...
- これまた旬な話題ですね。個別の位置情報データをGoogleの...
また、位置情報データを共有するのであれば、GPS機器から位置...
Googleは地図情報だけではなく、物（車）や人の動的な位置情...
- Google Maps Data API には、GE ユーザーにとってどんなメ...
- rcomが（また）新しくなっています。バージョン注意！ -- [...
- http:/www.nin.com がGEpluginと連動するiphone appを作成...
- ↓レスありがとうございます。 -- &new{2009-04-04 (土) 01...
- 補足：GEではkml内部にCollada(daeファイル）を包含して画...
- ↓SketchUpではVRMLは取り込めないようですね。出力はできる...
- 流れとしては VRML -> Collada -> Kml ですかね。SketchU...
- VRML ⇔ KML コンバータってないでしょうか？ -- [[仮想現実...
- GoogleEarth Pluginがバージョンアップし、GE5と同等になり...
- 2009/03/31現在 R2.8.1においてrcomをインストールしても...
- しばらく変換がないなぁと思っていたけど、maptools 便利な...
- kmlLine,kmlPolygonの実行結果を追加しました。 -- [[okina...
- ↓この関数を使うと、ShapeFileからダイレクトにkmlがつくれ...
- maptoolsにkmLine,kmlPolygonが追加されました！ -- [[okin...
- 既報ですが、GE5ではバルーン内のHTMLはWebkit対応のようで...
- GE5.0でも以前としてポリゴンホール問題は解決していません...
- ついでにGoogleMars(火星）も選べるようになりました。 -- ...
- GPSデータを取り込む機能が使えるようになっています。また...
- GE5.0ではGoogleOcean以外にもかなり機能が追加されている...
- GoogleEarth5.0が出ました！予想通りGoogleOceanが追加され...
- コメント欄更新しました。 -- [[okinawa]] &new{2009-01-28...
- New View of Ocean Floor in Google Earth! Google Oceanの...
- SyNetパッケージ内にポイントデータをKML出力するoutgearth...
- Google が[[KML gadget:http://www.gmodules.com/ig/creato...
*GoogleEarthダウンロード&関連情報リンク[#b0f3bfb6]
**GoogleEarth&GoogleEathPluginダウンロード [#k84279c4]
http://earth.google.co.jp/~
http://code.google.com/apis/earth/ New!~
[[GoogleEarthPlugin用リンクコード作成:http://www.takitwit...
**KMLリファレンスマニュアル&GoogleEarth COM API [#lde5dff7]
http://code.google.com/apis/kml/documentation/index.html~
http://code.google.com/intl/en/apis/kml/documentation/kml...
http://earth.google.com/comapi/~
**参考 [#c1086c14]
[[GoogleEarthBlog:http://www.gearthblog.com/]]~
[[GoogleMap:http://maps.google.co.jp/maps]]~
[[巨匠net:http://www.kyosho.net/blog/modules/bwiki/index....
[[R and GoogleEarth:http://www.omegahat.org/GoogleEarth/C...
~
**CoolApplications [#s9ae9ffe]
***KMLFACTBOOK: [#o1e321f6]
-http://www.kmlfactbook.org/~
***EarthAtlas: [#c91c6dc5]
-http://earthatlas.info/?kml=http://www.nature.com/nature...
***GoogleSketchUp: [#k52483d8]
-SketchUp HomePage http://sketchup.google.com/intl/ja/
-GoogleEarthと連動する3D-CAD すごいです。
***MapWindowGIS&Shape2Earth:~ [#fee46ab7]
-MapWindowGIS HomePage http://www.mapwindow.org/
-Shape2Earthのページ http://shape2earth.com/
-MapWindowGISとShape2Earthを使って、KMLを作ってみました。...
注）shape2earthは７日間無料で、その後お金をとられます。う...
#ref(saitama2.kml)~
***Unype: [#z1a322b0]
-Skypeを使ってGEをネット上で「マルチに」連動させるプログ...
-Unype HomePage http://www.unype.com/~
*Rを用いたGoogleEarthの活用 [#q6a502e4]
**rcom パッケージ [#jabc644f]
rcom:http://cran.md.tsukuba.ac.jp/web/packages/rcom/rcom....
***rcomを使ってRからGoogleEarthを直接コントロールする(Win...
[[RDCOM/RCOM解説]]参照。~
rcomは常に最新版にupdateしておいてください。~
~
rcomを使うとRからGEが簡単にコントロールできるようになりま...
バージョンの取得:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
comGetProperty(x,"VersionAppType") #アプリケーションタイプ
comGetProperty(x,"VersionMajor") #バージョン（メジャー番...
comGetProperty(x,"VersionMinor") #バージョン（マイナー番...
comGetProperty(x,"VersionBuild") #バージョン（ビルド番号)
視点の移動:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
cam<-comCreateObject("GoogleEarth.CameraInfoGE")
comSetProperty(cam,"FocusPointLatitude","35.3874") #フォ...
comSetProperty(cam,"FocusPointLongitude","139.4285") #フ...
comSetProperty(cam,"Range","100") #フォーカスからの距離...
comSetProperty(cam,"Tilt","70") #傾き（度）
comSetProperty(cam,"Azimuth","-49") #方位（度）
comInvoke(x,"SetCamera",cam,"0.1") #実行
カメラの位置取得:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
cam0<-comInvoke(x,"GetCamera","1")
comGetProperty(cam0,"FocusPointLatitude") #フォーカス−緯...
comGetProperty(cam0,"FocusPointLongitude") #フォーカス−...
comGetProperty(cam0,"FocusPointAltitude") #フォーカス−高...
comGetProperty(cam0,"FocusPointAltitudeMode") #フォーカ...
comGetProperty(cam0,"Range") #フォーカスからの距離（上空...
comGetProperty(cam0,"Tilt") #傾き（度）
comGetProperty(cam0,"Azimuth") #方位（度）
サーチ:~
library(rcom)
x<-comCreateObject("GoogleEarth.ApplicationGE")
search<-comCreateObject("GoogleEarth.SearchControllerGE")
comInvoke( search,"Search","東京タワー")
KMLの図形等の直接書き込み:~
library(rcom)
KMLData<-paste('<?xml version="1.0" encoding="UTF-8"?> ',
'<kml xmlns="http://earth.google.com/kml/2.2">',
'<Document>',
'<name>poly.kml</name>',
'<Placemark>',
'<name>poly</name>',
'<styleUrl>#msn_ylw-pushpin</styleUrl>',
'<Polygon>',
'<tessellate>1</tessellate>',
'<altitudeMode>relativeToGround</altitudeMode>',
'<outerBoundaryIs>',
'<LinearRing>',
'<coordinates>',
'142.528104678677,36.84729384409629,22606 142.045158460...
'</coordinates>',
'</LinearRing>',
'</outerBoundaryIs>',
'</Polygon>',
'</Placemark>',
'</Document>',
'</kml>',sep='')
KMLData2 <-paste("<?xml version=\"1.0\" encoding=\"UTF-8...
"<kml xmlns=\"http://earth.google.com/kml/2.1\">",
"<Placemark>",
"<name>Geneva</name>",
"<LookAt>",
"<longitude>139.4285</longitude>",
"<latitude>35.3874</latitude>",
"<altitude>0</altitude>",
"<range>316.3662914479763</range>",
"<tilt>0</tilt>",
"<heading>6.199453434125936</heading>",
"</LookAt>",
"<Point>",
"<coordinates>6.156019183879536,46.20743386584116,0</coo...
"</Point>",
"</Placemark>",
"</kml>",sep="")
GEI<-comCreateObject("GoogleEarth.ApplicationGE")
comInvoke(GEI,"LoadKmlData",KMLData)
comInvoke(GEI,"LoadKmlData",KMLData2)
RからGEへのShapeFileポリゴンの直接書き込み:~
#ref(shp2kmlDirectver02.txt)~
LoadKmlDataで大きなKMLを渡すとGEがハングしますので、細切...
事前にGEを起動して、群馬県あたりを表示しておいてください。~
また、この方法ではフォルダ名やファイル名に日本語は使えな...
** sp：maptools：rgdalパッケージ [#scc8e24d]
[[sp(空間データ用クラスおよびメソッド)パッケージ中のオブ...
[[maptools(Maptools)パッケージ中のオブジェクト一覧]]~
[[rgdal(GDAL(Geospatial Data Abstraction Library, 地理空...
maptools:http://cran.md.tsukuba.ac.jp/web/packages/maptoo...
sp:http://cran.md.tsukuba.ac.jp/web/packages/sp/sp.pdf~
rgdal:http://cran.md.tsukuba.ac.jp/web/packages/rgdal/rgd...
***RでShapeFileからkmlファイルを直接作成する方法（基本編...
[[空間的なデータの分析]]よりGISdata.zipをダウンロードし、...
#ref(shp2kmlver03.txt)~
#ref(GoogleEarthとR/shp2kml03.jpg,30%)~
凡例オーバーレイ付き~
#ref(shp2kmlver035.txt)~
#ref(GoogleEarthとR/shp2kmlver035.JPG,30%)~
**ラスターオーバーレイ [#id44ecf3]
***maptools:kmlOverlay [#y658cd2d]
~
SpatialPointsDataFrameデータを用いて、PNG・KMLを出力し、G...
KMLと作成されたPNGはC:直下に落ちてきますので、kmlOverlay....
library(maptools)
library(rgdal)
opt_exask <- options(example.ask=FALSE)
qk <- SpatialPointsDataFrame(quakes[, c(2:1)], quakes)
proj4string(qk) <- CRS("+proj=longlat")
tf <- "c:/kmlOverlay"
SGqk <- GE_SpatialGrid(qk)#<=ここがミソ
png(file=paste(tf, ".png", sep=""), width=SGqk$width, he...
bg="transparent")
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
plot(qk, xlim=SGqk$xlim, ylim=SGqk$ylim, setParUsrBB=TRU...
dev.off()
kmlOverlay(SGqk, paste(tf, ".kml", sep=""), paste(tf, "....
#ref(GoogleEarthとR/kmlOverlay.JPG,30%)~
***kmlOverlayNode（自作S4クラス） [#nb80dccb]
kmlOverlayでは機能が足りないので作成しました。~
kmlOverlayNodeクラスには、SpatialPointsDataFrameとGE_SGク...
また、show()とwritekml()メソッドを設定しました。show()は...
#kmlOverlayNodeClass ver0.1.4
setClass("kmlOverlayNode",
representation = representation(sppdf="SpatialPointsDa...
item="character",
range="numeric",
kmlpath="character",
pngpath="character",
color="character",
pch="numeric",
pointsize="numeric",
GE_SG="GE_SG"),
prototype = prototype(sppdf=NULL,
item="",
range=0,
kmlpath="c:/",
pngpath="c:/",
color="green",
pch=19,
pointsize=24,
GE_SG=NULL))
setMethod("show",signature(object="kmlOverlayNode"),
function(object){
sppdf<-object@sppdf
i<-object@item
r<-object@range
kp<-object@kmlpath
pp<-object@pngpath
col<-object@color
ps<-object@pointsize
pch<-object@pch
gesg<-object@GE_SG
cat("kmlOverlayNode::","\n")
cat("\nSpatialPointsDataFrame:","\n")
str(sppdf)
cat("\nitem name:",i)
cat("\nrange:",r)
cat("\nkmlpath:",kp)
cat("\npngpath:",pp)
cat("\ncolor:",col)
cat("\npch:",pch)
cat("\npointsize:",ps)
cat("\nGE_SG:","\n")
str(gesg)
})
writekml<-function(x)x
setGeneric("writekml")
setMethod("writekml",signature(x="kmlOverlayNode"),
function(x){
sxml<-'<?xml version="1.0" encoding="UTF-8"?>'
skml<-'<kml xmlns="http://earth.google.com/kml/2.2">';...
sGroundOverlay<-"<GroundOverlay>";eGroundOverlay<-"</G...
sname<-"<name>";ename<-"</name>"
nametag<-paste(sname,x@item,"(",x@color,")",ename,sep=...
sIcon<-"<Icon>";eIcon<-"</Icon>"
pngfilename<<-paste(x@pngpath,x@item,".png",sep="")
pngfile<-paste("<href>",pngfilename,"</href>",sep="")
viewBoundScale<-"<viewBoundScale>0.75</viewBoundScale>"
altitude<-paste("<altitude>",x@range,"</altitude>",sep...
altitudeMode<-"<altitudeMode>absolute</altitudeMode>"
sLatLonBox<-"<LatLonBox>";eLatLonBox<-"</LatLonBox>"
north<-paste("<north>",x@GE_SG$ylim[['max']],"</north>...
south<-paste("<south>",x@GE_SG$ylim[['min']],"</south>...
east<-paste("<east>",x@GE_SG$xlim[['max']],"</east>",s...
west<-paste("<west>",x@GE_SG$xlim[['min']],"</west>",s...
outkml<-c(sxml,skml,sGroundOverlay,nametag,sIcon,pngfi...
outfile<-paste(x@kmlpath,x@item,".kml",sep="")
write(outkml,outfile)
png(file=paste(x@pngpath,x@item, ".png", sep=""), widt...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
plot(x@sppdf,pch=x@pch,cex=0.05*sqrt(x@sppdf[[x@item]]...
dev.off()
})
更新履歴：~
2008/04/07 ver0.1.4 メソッドのwrite()をwritekml()に変更。...
***kmlOverlayNodeクラスを利用したサンプル [#ua23f806]
（事前にkmlOverlayNodeクラスを作成しておくこと）~
library(maptools)
library(rgdal)
qk <- SpatialPointsDataFrame(quakes[, c(2:1)], quakes)
proj4string(qk) <- CRS("+proj=longlat")
SGqk <- GE_SpatialGrid(qk)
kmlOVN<-new("kmlOverlayNode")
kmlOVN@sppdf<-qk
kmlOVN@GE_SG<-SGqk
kmlOVN@item<-"mag"
kmlOVN@range<-0
kmlOVN@pch<-3
kmlOVN@pointsize<-24*5
kmlOVN@color<-"red"
show(kmlOVN)
writekml(kmlOVN)
**ベクターオーバーレイ [#qe193475]
***maptools:kmlLine [#ued787b2]
maptoolsのサンプルを実行。tempファイル内にkmlが作成される...
#ref(GoogleEarthとR/kmlLine1.PNG,30%)~
***maptools:kmlPolygon [#e47aa9e8]
maptoolsのサンプルを実行。tempファイル内にkmlが作成される...
#ref(GoogleEarthとR/kmlPolygon1.PNG,30%)~
ごらんのようにポリゴンホールにもきちんと対応しています。~
#ref(GoogleEarthとR/kmlPolygon2.PNG,30%)~
***rgdal:writeOGR [#a477f780]
[[空間的なデータの分析]]からGISdata.zipをダウンロードし、...
ShapeFileからSpatialPolygonsDataFrameオブジェクトを作成し...
KMLはC:直下に落ちてきますので、kmlOverlayVector.kmlをダブ...
library(maptools)
library(rgdal)
x<-readShapePoly("c:/GISdata/gunma.shp")
x@data$PREF<-iconv(x@data$PREF,"","utf-8")
x@data$CITY1<-iconv(x@data$CITY1,"","utf-8")
x@data$CITY2<-iconv(x@data$CITY2,"","utf-8")
x@data$TOWN1<-iconv(x@data$TOWN1,"","utf-8")
x@data$TOWN2<-iconv(x@data$TOWN2,"","utf-8")
tf <- "c:/kmlOverlay"
writeOGR(x, paste(tf, "Vector.kml", sep=""), "gunma", "K...
#ref(GoogleEarthとR/writeogr2.JPG,30%)~
**XMLパッケージ [#r080edf7]
***XMLパッケージでwriteOGRで出力されたkmlデータを再構成＝...
writeOGRで出力されたkmlデータをXMLパッケージを用いて再構...
(構造決めうちなので、[[ShapeFileライブラリ]]のデータをwri...
注）R2.7.2は日本語が文字化けします。R2.6.2ですと日本語も...
kmlAltitudeNode<-function(doc,data,fillcolor,linecolor){
library(XML)
#岡田先生の流用
findDoc <- function(x) {
if(xmlName(x) == "Document") {
return(x)
}
for(m in xmlChildren(x)) {
n <- findDoc(m)
if(!is.null(n)) {
return(n)
}
}
return(NULL)
}
node0 <- findDoc(xmlRoot(doc))
len1<-length(node0[[1]])
for(i in 2:len1){
#altitude
node1<-node0[[1]][[i]][[2]][[1]]
node1<-addChildren(node1,xmlNode("extrude","1"),xmlN...
#fillcolor
node2<-node0[[1]][[i]][[3]][[2]]
node2<-xmlNode("PolyStyle",xmlNode("color",fillcolor[...
#linicolor
node3<-node0[[1]][[i]][[3]][[1]]
node3<-xmlNode("LineStyle",xmlNode("color",linecolor))
#polygon
len2<-length(node0[[1]][[i]][[2]][[1]])
for(j in 1:len2){
x1<-xmlValue(node1[[j]][[1]][[1]])
x2<-rev(unlist(strsplit(x1," ")))
x3<-paste(x2,data[[i-1]],sep=",",collapse=" ")
node1[[j]][[1]][[1]]<-xmlNode("coordinates",x3)
}
node0[[1]][[i]][[2]][[1]]<-node1
node0[[1]][[i]][[3]][[2]]<-node2
node0[[1]][[i]][[3]][[1]]<-node3
}
return(node0)
}
#sample
library(XML)
doc <- xmlTreeParse("c:/kmlOverlayVector.kml")
data<-sample(1000:10000,39)
fillcolor<-c("ff000000","ffff0000","ff00ff00","ff0000ff"...
linecolor<-"NA"
x<-kmlAltitudeNode(doc,data,fillcolor,linecolor)
saveXML(x,"c:/test.kml")
#ref(GoogleEarthとR/xml1.JPG,30%)~
**Examples [#q62094ba]
***meuse川の土壌汚染に関するデータを用いた3D-BubblePlot [...
spパッケージではおなじみのdata(meuse)を用いてGoogleEarth...
土壌内の重金属の種類はレイヤごとに分割して、高度を変化さ...
#ref(GoogleEarthとR/meuse.JPG,30%)~
#ref(GoogleEarthとR/meuse2.JPG,30%)~
#ref(GoogleEarthとR/meuse3.JPG,30%)~
#ref(meuse.kmz)~
library(maptools)
library(rgdal)
data(meuse)
fkml<-function(itemname="",Range=0,north=0,south=0,east=...
sxml<-'<?xml version="1.0" encoding="UTF-8"?>'
skml<-'<kml xmlns="http://earth.google.com/kml/2.2">';ek...
sGroundOverlay<-"<GroundOverlay>";eGroundOverlay<-"</Gro...
sname<-"<name>";ename<-"</name>"
nametag<-paste(sname,itemname,ename,sep="")
sIcon<-"<Icon>";eIcon<-"</Icon>"
pngfilename<<-paste("c:/",itemname,".png",sep="")
pngfile<-paste("<href>",pngfilename,"</href>",sep="")
viewBoundScale<-"<viewBoundScale>0.75</viewBoundScale>"
altitude<-paste("<altitude>",Range,"</altitude>",sep="")
altitudeMode<-"<altitudeMode>absolute</altitudeMode>"
sLatLonBox<-"<LatLonBox>";eLatLonBox<-"</LatLonBox>"
north<-paste("<north>",north,"</north>",sep="")
south<-paste("<south>",south,"</south>",sep="")
east<-paste("<east>",east,"</east>",sep="")
west<-paste("<west>",west,"</west>",sep="")
outkml<-c(sxml,skml,sGroundOverlay,nametag,sIcon,pngfil...
outfile<-paste("c:/",itemname,".kml",sep="")
write(outkml,outfile)
}
meuse2<-SpatialPointsDataFrame(meuse[,c(1:2)],meuse)
proj4string(meuse2) <- CRS("+init=epsg:28992")
meuse3<-spTransform(meuse2,CRS("+proj=longlat"))
SGmeuse <- GE_SpatialGrid(meuse3)
itemname<-"cadmium"
fkml(itemname=itemname,Range=110,north=SGmeuse$ylim["max...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"zinc"
fkml(itemname=itemname,Range=80,north=SGmeuse$ylim["max"...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"lead"
fkml(itemname=itemname,Range=90,north=SGmeuse$ylim["max"...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
itemname<-"copper"
fkml(itemname=itemname,Range=100,north=SGmeuse$ylim["max...
png(file=paste("c:/",itemname, ".png", sep=""), width=SG...
par(mar=c(0,0,0,0), xaxs="i", yaxs="i")
text<-paste('plot(meuse3,pch=19,cex=0.05*sqrt(meuse3$',i...
eval(parse(text=text))
dev.off()
出来上がった、zinc.kml,cadmium.kml,copper.kml,lead.kmlをG...
***kmlOverlayNodeクラスで処理した場合 [#u1770c49]
kmlOverlayNodeクラス（自作）を利用した作成した場合のコー...
library(maptools)
library(rgdal)
data(meuse)
meuse2<-SpatialPointsDataFrame(meuse[,c(1:2)],meuse)#Spa...
proj4string(meuse2) <- CRS("+init=epsg:28992")#プロジェ...
meuse3<-spTransform(meuse2,CRS("+proj=longlat"))#緯度・...
SGmeuse <- GE_SpatialGrid(meuse3)#GE上に投影するグリッド...
kmlOVN<-new("kmlOverlayNode")#kmlOverlayNodeのインスタン...
kmlOVN@sppdf<-meuse3#バブルプロット用データの設定
kmlOVN@GE_SG<-SGmeuse#グリッドデータの設定
items<-c("zinc","lead","copper","cadmium")#表示用アイテ...
colors<-c("green","cyan","yellow","orange")#バブルポイン...
ranges<-c(80,90,100,110)#GEにオーバーレイするレイヤの高...
kmlOVN@pointsize<-24#バブルポイントの大きさ（デフォルト...
i<-0
for(i in 1:4){
kmlOVN@item<-items[i]
kmlOVN@color<-colors[i]
kmlOVN@range<-ranges[i]
show(kmlOVN)#インスタンスの内容の確認
writekml(kmlOVN)#kml出力実行
}
***meuse川の土壌汚染3D-BubblePlotのGoogleMapでの表示 [#oe...
http://maps.google.co.jp/maps?f=q&hl=ja&geocode=&q=http:%...
***ipodTouchでmeuse川の土壌汚染3D-BubblePlotの表示 [#d9b9...
上記のURLをipodTouchのsafariからアクセスしただけです。ち...
ipodTouchでも同様に表示できています。いや〜それにしてもip...
#ref(GoogleEarthとR/ipodtouch.jpg,50%)~
***GoogleEarthPluginを利用したHTMLの作成 [#c54ee354]
Webで利用できるGoogleEarthです。GoogleEarthPluginは上記...
ここでは、RでGoogleEarthPluginを利用したHTMLを作成しま...
***GoogleEarthPluginの起動(HTML) [#zc573fe0]
#ref(GoogleEarthとR/geplugin1.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
JS1<-c('<script>google.load("earth", "1");','var ge = nu...
JS2<-c('function init() {','google.earth.createInstance(...
JS3<-c('function initCallback(object) {','ge = object;',...
JS4<-c('function failureCallback(object) {','}','</scrip...
h5<-c("</head>","<body onload='init()' id='body'>","<cen...
h6<-c("<div id='map3d_container'","style='border: 1px so...
h7<-c("<div id='map3d' style='height: 100%;'>","</div>",...
text<-c(h0,h1,h2,h3,JS1,JS2,JS3,JS4,h5,h6,h7)
write(text,"c:/geplugin1.html")
C:直下に落ちてきます。
#ref(geplugin1.html)
***GoogleEarthPluginでmeuse川データ表示1 [#g9b83a07]
#ref(GoogleEarthとR/geplugin2.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
JS1<-c('<script>google.load("earth", "1");','var ge = nu...
JS2<-c('function init() {','google.earth.createInstance(...
JS3<-c('function initCallback(object) {','ge = object;',...
JS4<-c('function failureCallback(object) {','}','</scrip...
h5<-c("</head>","<body onload='init()' id='body'>","<cen...
h6<-c('<iframe src="http://www.takitwithme.com/geiframe....
h7<-c("</center>","</body>","</html>")
text<-c(h0,h1,h2,h3,JS1,JS2,JS3,JS4,h5,h6,h7)
write(text,"c:/geplugin2.html")
C:直下に落ちてきます。
#ref(geplugin2.html)
#ref(geplugin2.hta)
***GoogleEarthPluginでmeuse川データ表示2 [#q70b1592]
#ref(GoogleEarthとR/meuse3d.JPG,50%)~
h0<-c('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Tran...
<meta http-equiv="content-type" content="text/html; cha...
h1<-c("<html>","<head>","<title>Hello Google Earth!</tit...
h2<-c("<!-- *** Replace the key below below with your ow...
h3<-c('<script src="http://www.google.com/jsapi?key=ABQI...
h4<-c("<script>")
JS1<-c('google.load("earth", "1");','var ge = null;','fu...
JS2<-c('function initCallback(object) {','ge = object;',...
JS3<-c("function failureCallback(object) {","}")
JS4<-c("function finished(object) {","if (!object) {","a...
f1<-c("</script>","</head>","<body onload='init()' bgcol...
f2<-c("<div>",'<font style="font-family:arial;font-size:...
f3<-c("<table>","<tr valign=top><td>","<div id='map3d_co...
f4<-c('</td></tr>','</table>','</body>','</html>')
text<-c(h0,h1,h2,h3,h4,JS1,JS2,JS3,JS4,f1,f2,f3,f4)
write(text,"c:/geplugin3.html")
#ref(geplugin3.html)
#ref(geplugin3.hta)
*その他 [#x2530cdc]
**GERライブラリ (内容が古くなっています）[#z38d7bbb]
GoogleEarth上で塗りわけ地図（主題図）を表示させるためのラ...
R(D)COMを用いてExcelと連動できるGERexcel.xlsつき。~
~
実行環境：~
OS:WINXPSP2,WIN2000~
R:R2.4.1,maptoolsv0.6-3~
GERexcel.xlsを利用する場合は、RSrv201が必要~
R(D)COMのダウンロードサイト(http://sunsite.univie.ac.at/r...
Excel:2000~
GoogleEarth:4(2722)~
~
利用データ：~
okinawaDATA.csv:厚生労働省が公開しているデータ(平均寿命20...
okinawa.shp:ESRIジャパン株式会社の全国市区町村界データ~
「本データの作成に当たっては、ESRIジャパン株式会社の全国...
~
#ref(GoogleEarthとR/GERexcel.jpg,50%)~
#ref(geroot032.zip)~
#ref(japanae2000.zip)~
~
更新履歴：~
2006/12/19 GERLib ver0.3.2 第3版公開~
2006/09/26 GERLib ver0.3.1 第2版公開(Excel対応)~
2005/12/01 japanae2000.zip 公開~
2005/11/24 GERLib ver0.2.0 公開初版~
~
-2006/12/19 細かいバグを取り、若干修正。~
-2006/09/26 ExcelからGEの操作ができるように改良しました。~
-2005/12/01 japanae2000.zipは、平均寿命2000年男性および女...
添付しているshapecleanerでクリーニングしてから利用してく...
-注）平均寿命2000年男性および女性のデータは厚生労働省が公...
http://www.mhlw.go.jp/toukei/saikin/hw/life/ckts00/xls/hy...
-2005/11/24 まだまだ不完全ですが、とりあえず公開します。~
**COLOR(blue){SIZE(20){ギャラリー}} [#x7e2e265]
1.埼玉県１９９５年平均寿命男性(2005/10/23更新)~
#ref(GoogleEarthとR/saitamaAEM1995.JPG,50%)~
#ref(saitama.kmz)~
~
2.千葉県１９９５年平均寿命男性(2005/10/23更新)~
#ref(chiba.kmz)~
プリズムマップ
#ref(chibaprizm.kmz) ~
~
3.群馬県１９９５年平均寿命男性(2005/10/23更新)~
#ref(gunma.kmz)~
~
4.関東１９９５年平均寿命男性~
#ref(GoogleEarthとR/kanto.JPG,50%)~
#ref(kantoinjapan.kmz)~
~
5.日本全図２０００年平均寿命男性(最新データです）(3Dポリ...
#ref(GoogleEarthとR/japanaem2000.JPG,50%)~
http://bbs.keyhole.com/ubb/download.php?Number=165657~
ちょっとまだ不完全ですがＵＰしてみました。今回のものは凡...
~
6.日本全図２０００年平均寿命女性~
http://bbs.keyhole.com/ubb/download.php?Number=169274~
~
解説）上記の図の凡例はクオンタイルを用いて１６分割してい...
追伸）１９９５年および２０００年の市区町村別生命表は、す...
~
7.沖縄県市町村の３大死因クラスターの分布~
沖縄県市町村の３大死因（がん・脳血管疾患・心疾患）のＳＭ...
~
赤い地域は、死亡比が増加している地域です。青い地域は男性...
~
#ref(GoogleEarthとR/3clust.JPG,50%)~
#ref(3大死因cluster2.kml)~
~
**日本県境データ [#e819ab35]
~
#ref(JapanPrefecture.kmz)~
#ref(GoogleEarthとR/jp.JPG,50%)~
~
GoogleEarthのPlaces内のJapan Prefectureを右クリックし、Ed...
~
**ＧＥインタラクティブファンクション [#i0241218]
GECOM_APIマニュアルが公開されました( http://earth.google....
(1)インタラクティブにポリゴンの色を変化させる~
インタラクティブにポリゴンの色を変化させるためのGoogleEar...
赤い玉と黄色い玉の上にマウスポインタを置いてみてください。~
この方法をうまく使うと、塗りわけ色の色階級を逐次変化させ...
#ref(change-polygon-color.kml)
~
(2)KEYHOLElib(GoogleEarthAPI)を用いて、IEとGEを連動させる...
~
IEとGEを連動させるサンプルです。IEから利用してください。~
起動するとＩＥのセキュリティチェックが働きますが、許可し...
また、RDCOMが必要なプログラムもありますので事前にRDCOM2.0...
（htmlとhtaの両方を用意しましたので、使い分けてください。...
-moveToCoordinates :表示されているボタンを押すとGEが自動...
#ref(moveToCoordinates.html)~
#ref(moveToCoordinates.hta)~
-ScreenShot :白黒のスクリーンショットを任意の解像度で取り...
#ref(ScreenShot.html)~
#ref(ScreenShot.hta)~
-getCoods :GE上のCoordinateのlatitude・longitudeを抽出し...
#ref(getCoods.html)~
#ref(getCoods.hta)~
-getCoodsToRplot :getCoodsで抽出したlatitude・longitudeを...
#ref(getCoodsToRplot.html)~
#ref(getCoodsToRplot.hta)~
~
*コメント欄アーカイブ [#w721a388]
**コメント欄(2008) [#t3d5aede]
- GEbrogのThe Year 2008 in Google Earthを見ました。ことし...
- はい、そうです。ただ、今のところ高度0の場合に有効のよう...
- ↓↓"AltitudeMode"タグの要素値に、"clampToAltitude" を入...
- 追伸。今後RでのKML作成についてはrgdal&XMLパッケージを用...
- しかしTMEの作者はこんな「かくし仕様」をどうやって調べた...
- ↓確認しました。確かに正常に描画されるようになりました。...
- ポリゴンのホール(というより、色の塗り面から地面が浮き出...
- TMEに[[ポリゴンのホール（穴）]]への対策が書かれています...
- EveryTrail Now a Layer in Google Earth! -- iPhone appの...
- TMEの作者がGooglePlexでプレゼンしたそうです。この人もGo...
- Google Earth Plus Discontinuedだそうだ。まあ、free版と...
- TMEのドキュメントを見てますが、ノウハウがばっちり詰まっ...
- やたー！また楽しみが増えますね！ -- [[okinawa]] &new{20...
- [[Thematic Mapping Engine:http://thematicmapping.org/en...
- みなさ〜ん！おまたせ〜！The Earth Browser Plug-in is no...
- 現在は存在してません。研究途上でGoogleEarthと似た仕組み...
- ↓"Google Human being"ってサイトはどこにあるのでしょうか...
- Ancient Rome in 3D for Google Earthを見て。CNET Japan ...
感想としては、観光というより高品質な教材に見える。（ただ...
日本では電子教材市場がどの程度存在するのか判らないが、ア...
そういう意味では↓の「今昔マップ２」のKML出力はGEの利用と...
- [[時系列地形図閲覧ソフト「今昔マップ2」:http://ktgis.ne...
- ↓FOSS4G2008 TOKYO 行ってきました。Ｒの話題はまったくあ...
- 追伸、iphone/ipod touch GEはオフラインでも動くようです...
- キターーーーーーーー！！！！iphone/ipod touch GoogleEar...
- Thematic Mapping EngineはグラフィカルにKMLを作成してい...
- ↓"Thematic Mapping Engine"の違いはなんでしょうか？ -- ...
- [[kmlライブラリ]]を公開しました。 -- [[okinawa]] &new{2...
- ↓この方法は、プログラムをガリガリ組まなくても良い方法な...
- 「writeOGRで出力されたkmlデータをXMLパッケージで再構成...
- ↓すごく面白そう！ -- [[okinawa]] &new{2008-10-15 (水) 1...
- 来月東大CSISで開催予定の[[FOSS4G2008 TOKYO :http://www....
- httpサーバー側にデータを投げれれば、どれを使ってもいい...
- ↓レスありがとうごおざいます。[[rapache:http://biostat.m...
- できると思いますが、結局サーバーサービスになってしまう...
- Google Earh API + ExtJS を使った[[Earth Atlas:http://bl...
- 初めて気が付いたのですが、GE(WIN)インストールするとgpsb...
- Mandaraを使ってみた。KML出力もきれいにできるんですね。...
- お〜！かなりいいかんじになりましたね。かゆいところに手...
- 地理教育で利用されている[[Mandara:http://www5c.biglobe....
- WriteOGRのコードをUTF-8に対応するように変更しました。こ...
- やっとtouchをverUpできました！ -- [[okinawa]] &new{2008...
- iphone3Gがとうとうでました。でもtouch用firmware2.0はい...
- shapefileライブラリで紹介しているが、全国基準地域メッシ...
- AGE480について。描画は高速化している。マウスコントロー...
- [[ArcGIS Explorer サポート:http://www.esri.com/software...
- GoogleEarthplug-inの新しいバージョン（Mac&LinuxOS,Multi...
- ソフトバンクiphone月8300円か。ざっと計算して２０万。買...
- R ver3.0か・・・。R教授は何か考えてるんだろうか。 -- [[...
- [[Firefox3の灯:http://tomoshibi.mozilla.jp/]]。夜景がき...
- .Callの向こう岸：shapefileの仕様には3Dのフォーマットも...
- 個人的メモ２．よく考えてみたらGEpluginでColladaファイル...
- 個人的メモ。GoogleEarthは2005/06/28に公開された。もうす...
- まあ、待て。まずはターミナル画面から・・・。 -- [[okina...
- R for iPhone そろそろ話題に．．． -- &new{2008-06-10 (...
- iphone登場しました。８Gで$199です。安い！ -- [[okinawa]...
- 下記TMEで使われているGE上にグラフを書く手法は、Google C...
- Thematic Mapping Engine http://blog.thematicmapping.org...
- GoogleEarth Blogより Thematic Mapping Engine (TME)とGE...
- GoogleEarth Blogより 「Disney World 3D for Google Eart...
- そうですね。軽くないと「ごろ寝deR」ができないし。 -- [[...
- iphone もいいけど、 Willcom のUMLPC(0.5kgは重いなぁ)の...
- iphoneはソフトバンクから！発売は年内。 -- [[okinawa]] &...
- keyですが、ローカルIPでもOKのようです。もしかして、起動...
- だんだんわかってきました。まずkeyが「サイト専用」なので...
- FireFoxで動作確認してたけど、IE6だとうまく動かないなぁ...
- GoogleEarthPluginのRコード修正。 -- [[okinawa]] &new{20...
- GoogleEarthPluginでmeuse川データ表示2追加！（人のサイト...
- こちらに来られている方の中には、okinawaはXMLパッケージ...
- MacとLinuxの方はGEpluginがいまだ利用できないので、悔し...
- GEpluginをいろいろいじっていたのだが、これまでのGE(KML)...
- GEplugin対応のサイトが続々登場しているようですね。from ...
- htmlじゃなくてhtaでもそのまま動きますね。MiniEarthが作...
- 「GoogleEarthPlugin?を利用したHTMLの作成」更新 -- [[oki...
- meuse川のkmzを表示させるHTML追加 -- [[okinawa]] &new{20...
- 一度起動すれば、オフラインにしても動いてますね。画面の...
- 「GoogleEarthPluginを利用したHTMLの作成」を追加！ -- [[...
- 忘れてました。ここです。http://code.google.com/apis/ear...
- meuse川のkmzをGEpluginでFirefoxに読み込ませてみました。...
#ref(GoogleEarthとR/geplugin.JPG,50%)~
- プログラムはJavaScriptですね。R2HTMLが使えるかな？ -- [...
- こここれはーー！！！やったー！！！Web内でGEが動いてます...
- Google is releasing a Google Earth plug-in! 動きがあり...
- libkml ver0.2が出ています。今日と明日(5/28,29)に開催さ...
- ESRI and Google Collaborateの続報。ESRIのArcGIS Server ...
- iPhone Earth！ Earthscape社製でGoogle純正ではないもの...
- Google Geo Search APIを一般に公開！ESRI and Google Col...
- ipodTouchでmeuse川の土壌汚染3D-BubblePlotの表示の追加 -...
- 確かに。 -- [[okinawa]] &new{2008-05-08 (木) 14:46:39};
- KML のカラースタイル設定は、なぜ RGBA ではなくて、ABGR...
- GE4.3バグフィックス版Update -- [[okinawa]] &new{2008-05...
- Googleが「GoogleOcean」を開発中！とうとう「深さ」が使え...
- 実はipod touchを購入して、GoogleMapを使ってみてるんです...
- ↓KML の座標形式はGMLに非常に近いので、GML の名前空間を...
- 追伸、KMLは正式にOGC(R)KML2.2としてOGCの管理下に入るよ...
- OGCですね。以前より共同でKML2.2を策定してたので、正式に...
- ↓国際標準といってもISOじゃないね。 -- &new{2008-04-17 ...
- 祝！KMLファイルフォーマット国際標準認定 -- [[okinawa]] ...
- これからは GeoRSS が重要。GE も対応している。 -- &new{...
- GE4.3リリース！ -- [[okinawa]] &new{2008-04-16 (水) 08:...
- kmlOverlayNodeクラスのMethod write()をwritekml()に変更...
- kmlOverlay (maptools)を用いたラスターオーバーレイにkmlO...
- meuse川のコードをkmlOverlayNodeクラス(自作)で処理した場...
- meuse川の土壌汚染3D-BubblePlotのGoogleMapでの表示追加...
- meuse川の土壌汚染に関するデータ（data(meuse)）を用いた3...
- libkml続報。SWIGに対応していると書いてありますので・・...
- GoogleからKMLパース用ライブラリlibkmlが出たようです！こ...
- GoogleSky on GoogleMap! ついにきましたね！ http://www....
- ESRI が ArcGIS Explorer 用 Explorer API (ArcGIS Explore...
- 面白いサイト発見しました。2006年度下期未踏ソフトウェア...
- [[ＲでＧＩＳ]]からの股引きですが、http://www.bias-proje...
- rgdalのwriteOGRの件ですが、どうやら「私のXPだけ」がおか...
- そういえばmaptoolsにreadGPSコマンドがありますね。今度は...
- rgdalのwriteOGRが正常に動くようになっています。<MultiPo...
**コメント欄(2007) [#mf0844d5]
- 驚いた！Googleによると、いつのまにか東京が「10cm」？解...
- 驚いた。新ArcGISExplorerかなりいいですね。KMLもうまく取...
- [[ArcGIS Explorer:http://resources.esri.com/arcgisexplo...
- 今日なにげなくAppleScriptの用語説明を開いてたら、Mac版G...
- どこに問題があるのかは特定できていません。ただ、<MultiP...
- ↓これはOGRライブラリーに問題があるのですか？ -- &new{2...
- rgdalのwriteOGRを利用してShapeFileからKMLに変換した場合...
- 個人的にはGEであろうがGMであろうがKMLの表示媒体として利...
- Google Maps の最近の機能アップ(Wiki ライクなコラボレー...
- Androidの感想。基本的に携帯電話なのですが、こんな電話だ...
- Android続報。きちんと日本語表示にも対応してるようだ。（...
#ref(GoogleEarthとR/android.JPG,50%)~
- YouTubeのGoogle Androidの動画を見ましたが、GEっぽいもの...
- 53です。 -- [[okinawa]] &new{2007-11-07 (水) 13:48:10};
- ところで、MS の Virtual Earth はどうよ？ -- &new{2007-...
- Googleがとうとう携帯用のソリューションを発表しました。G...
- Google Sketchup 6 日本語版公開！ -- [[okinawa]] &new{20...
- 冗長なコードが多く、スクロールが疲れるのでtxtで添付する...
- 作成した画像もアップしました。 -- [[okinawa]] &new{2007...
- RでShapeFileからkmlファイルを直接作成する方法（基本編）...
- youtube面白いですが、海の中にもあるのはどうしてだろう？...
- 改良しました。（目次からうまく飛びます） -- [[okinawa]]...
- コメント欄はもう少し上か、一番下にあるのがいいのではな...
- [[「Google Earth」にYouTube動画の再生機能を追加:http://...
- どういたしまして。ちょうどRCOMに取り組んでいたところな...
- okinawa さん、貴重な情報ありがとうございます。このよう...
- RからGEへのShapeFileポリゴンの直接書き込み追加。遅いけ...
- KML図形等の直接書き込みをUP。やればできる！ -- [[okinaw...
- 視点の移動、カメラの位置、サーチ追加。 -- [[okinawa]] &...
- GoogleEarth COM でググって見てください。何人かの方が色...
- ↓面白そうなんですけど、できれば図形の直接書き込み、始点...
- 「rcomを使ってRからGoogleEarthを直接コントロールする」...
- 立体的な矢印は、VRMLだと円錐と円筒でできるのですが、KML...
- ラインの幅はできたように思います。立体的な矢印は、標準...
- 失礼しました。ところで、ＫＭＬではラインに幅（横・上下...
- この欄の最初のほうに同じ質問がありますが・・・。 -- [[o...
- R を使って放物線をＫＭＬ出力できないかと考えております...
- writeOGRが吐き出すKMLを直接変数に取り込めれば、岡田先生...
- ↓なんだか面倒。R 内ですべて解決できないものか。 -- &ne...
- writeOGRで作成したKMLをGEで再保存すると、標高データがco...
- 遅くなったがkmlOverlayとwriteOGRをアップ。いいかんじで...
- GoogleEarthアップデート。主にバグ取り版です。 -- [[okin...
- GoogleearthBlogより、GE Free&Plusのライセンスの変更があ...
- bootcampでMacBookにubuntuを入れて、Linux版GEをインスト...
- Sky は本日法大で開催された[[日本国際地図学会:http://www...
- GoogleEarth アップデート Sky表示が可能に！ とうとう宇...
- Microsoft Virtual Earth will be supporting KML in a Sep...
- CSISでRが認知されてきているのはとてもうれしい限りですね...
- 東大 CSIS のCSIS SYMPOSIUM 2007 での丸山先生の講演[[「R...
- そういえばspのクラスって3dに対応してるのかしら？ -- [[o...
- maptoolsのS3MapクラスとS4SpatialPolygonsDataFrameクラス...
- ｒｇｄａｌのＫＭＬ出力は属性値を高さに使えない平面図の...
- グーグルアースを楽しむBlog@N-OでYahoo!PipesでKMLを作るT...
- 基本的にSOAPもRESTも「同じようなもの」と考えています。...
- SOAP ですか、 REST のような軽いものはどうですか？ -- &...
- そう、GeoWebですね。Rは機能的にはGeoMashUp空間統計解析...
- 「R and Google Earth」がOMEGAHAT内にあるのを見つけまし...
- 「単体のアプリとしてのGISと言うより、Web等を利用した一...
- GE Maniacsより＞フリーのGISソフト「Mandara」がKML出力対...
- 最近では単体のアプリとしてのGISと言うより、Web等を利用...
- 「ソフトウエアデザイン」の最新号に開発者の一人のインタ...
- 本当ですか？GML,G-XML,KMLいろいろあるが、やはりGoogle力...
- KML 3.0 で、OpenGISの実装仕様になるそうだ。 -- [[world_...
- [[グーグルアース レールウェイ:http://www.hobidas.com/b...
- KML2.2はGoogleとOGCが共同でフォーマットを策定していると...
- GoogleEarthもGoogeMapも何故このように使われるようになっ...
- GEではないのだが、兄弟のGoogleMapに大幅な進歩があったの...
- KML 2.2 beta リリース。 -- [[okinawa]] &new{2007-05-31 ...
-[[KML 2.1 Reference - An OGC Best Practice:http://portal...
-GEWin版のレジストリの中身を調べていて気がついたのですが...
-元々そうだったのかもしれませんが、GEはだんだん3Dブラウザ...
-GoogleEarthバージョンアップ(4.1b)しました。ファイルメニ...
-おお！これで、Rのグラフィック出力(PNG)をGEへ直接吐き出せ...
-maptools でもＧＥ対応！！ -- &new{2007-03-26 (月) 23:41...
-スタンフォード大学からなかなかすごいものが出てきました。...
-GEBlogより。Google Earth + Unype + Skype = Multi-User Go...
-長年の懸案であったGDAL/OGRを学ぶ必要が出てきた。rgdalも...
-MacOSX10.4.8&VMwareFusion For MacでUbuntu Edgyを動かし、...
-SPOT Image が Google Earth に高解像度２．５ｍの衛星画像...
-shape2earthが再公開されました。( http://www.shape2earth....
-ようやくkml2.1のスキーマファイル(.xsd)が正式に公開されま...
-いつのまにかGE4のβが取れてGE4(2722)が正式版になってまし...
-rgdal でも、KML出力ができますね。 -- [[wanderer]] &new{2...
-Macで使えるAppleRemote(赤外線コントローラ）を使ってGEを...
-Google Earth バージョンアップ (Build : 2722) p.s Inte...
**コメント欄(2006) [#if390ced]
-最近GEを使っていて思うのですが、GEはGISだけではなく、Rの...
-新しいGEでは、透過度の一括変更の扱いが変わったようです. ...
-GERライブラリver0.3.2UP R2.4.1に対応.細かな修正。 -- [[o...
-ギャラリーにＲ研究会でデモに用いたデータを追加しました。...
-New Google Earth 4 beta - 16-December-2006 -- [[okinawa]...
-Rとは直接関係ないけれど、オープンソースＧＩＳの普及促進...
-AGEでshapefileを読み込むにはプロジェクションが必要のよう...
-AGE使ってみました。なれもあると思いますが、GEに比べて表...
-でましたね ArcGIS Explorer。まだ触っていませんが、選択...
-ESRIより Google Earth 対抗ソフト？, ArcGIS Explorer がSD...
-東京大学生産技術研究所の相良先生がCSVアドレスマッチング...
-GE上で「情報を取得」などを行ってから再びKMLに書き出すと...
placemark2GeoData <- function(rootNode) {
findDoc <- function(x) {
if(xmlName(x) == "Document") {
return(x)
}
for(m in xmlChildren(x)) {
n <- findDoc(m)
if(!is.null(n)) {
return(n)
}
}
return(NULL)
}
ininode <- findDoc(rootNode)
namev <- vector()
addrv <- vector()
longv <- vector()
lattv <- vector()
for(node in xmlChildren(ininode)) {
if(xmlName(node) == "Placemark") {
n <- NULL
a <- NULL
gd <- NULL
for(i in xmlChildren(node)) {
if(xmlName(i) == "name") {
n <- xmlValue(i$children[[1]])
} else if(xmlName(i) == "address") {
a <- xmlValue(i$children[[1]])
} else if(xmlName(i) == "Point") {
gd <- strsplit(xmlValue(i$children[[1]]$children[[...
}
}
if(!(is.null(gd) | is.null(a) | is.null(n)) ) {
namev <- append(namev, n)
addrv <- append(addrv, a)
longv <- append(longv, gd[1])
lattv <- append(lattv, gd[2])
}
}
}
return(data.frame(Name=namev, Address=addrv, Longitude=...
}
こんな風に使います
> doc <- xmlTreeParse("ih.kml")
> hospg <- placemark2GeoData(xmlRoot(doc)) # これでLong,...
> merge(hospg,hospd,by="Name")
ちゃんとデバッグはまだしてないのでバグがあるかもしれませ...
-原因がわかりました. 番地とか, 正規にはある部分を削るとガ...
-（データが無いと0なので） と書かれていますよ -- &new{20...
-えっ！ジオコーディングが不完全な場所もあるんですか。 -- ...
-sink(file("hospd.kml",encoding="utf-8",open="w")) に治せ...
-だれか作るかな〜とは思ってたのですが、早速出てきましたね...
-XMLパッケージを使って住所を含むデータフレームからkmlを生...
一応手順を...
# hospdは $Addrに住所, $Nameに名前が入っているデータフレ...
>library(XML)
>makePlacemark <- function(x) {
addr=xmlNode("address", xmlTextNode(hospd$Addr[x]));
name=xmlNode("name", xmlTextNode(hospd$Name[x]));
return(xmlNode("Placemark",addr,name));
}
>addrList <- lapply(1:nrow(hospd), makePlacemark)
>d<-xmlNode("Document")
>for(i in 1:length(addrList)) { d$children[[i]] <- addrL...
>p <- xmlNode("kml", d)
>sink("hospd.kml")
>print(p)
>sink()
これでKMLはできるので、GEで読込めます。MacOS Xではこれだ...
-GEのいくつかのサイトで公表されていますが、プレイスマーク...
-GE4betaがバージョンアップしました。パスおよびポリゴンの...
-真っ白な画像を地球全体に貼り付けたらいかがでしょうか？ -...
-Google Earth/Maps 背景衛星・地図画像が消せたらいいのに -...
-GEBlogでも取り上げられていますが、GECOMのマニュアルが（...
-GERライブラリ不具合情報追加。 -- [[okinawa]] &new{2006-0...
-GERライブラリ（ver0.3.1）公開しました。 -- [[okinawa]] &...
-patchとGoogleMapOverlayは役目を終えたと思いますので、一...
-<あまりネットに出てないネタ>昨日気がついたのですが、GE4b...
-ついにGE日本語版の正式サイトがオープンしました！( http:/...
-本日より２日間、沖縄で開催されている国際人間ドック学会に...
-<GE Maniacsより>日本において新たなレイヤが追加されました...
GE4bがバージョンアップされました。表示フォント部分が改善...
-<GE Maniacsより> GE plug-in for FireFox(&IE) KeyholeAPI...
-アクセスカウンタが先週末から異常にあがりだしてるんですが...
-KMLの日本語解説は、ここです。（ http://bubble.atnifty.co...
-もっと具体的に示していただけないと回答できません。（ポリ...
-数値や文字列です。 -- [[GE effect]] &new{2006-07-27 (木)...
-属性とは、たとえばどんな属性のことですか？ -- [[okinawa]...
-KMLには属性は保存できるのでしょうか？ -- [[GE effect]] &...
-GE4bちょっとVerUP。いくつかの機能追加とバグ鳥。 -- [[oki...
-KML2.1のチュートリアル公開！( http://earth.google.com/km...
-MapWindowGISのサイトには日本語の掲示板もあり、Excelで利...
-MapWindowGISのスクリプトはVB.netやC#だし、プラグインはVB...
-MapWindowGIS使ってみましたが、これは使えます！GE周りの環...
-MapWindowGISって国際化対応のようですね、日本語のファイル...
-GEManiacさんがMapWindowGISを用いたShape2Earthの記事を書...
-なかなか面白いアプリですね。パリを見たら，歩道を歩いてい...
-教えていただいたレジストリパッチをＵＰしました。ありがと...
-日本語化データを利用させていただいたお礼に、日本語化した...
[HKEY_CURRENT_USER\Software\Google\Google Earth Plus\Ren...
"GuiFontFamily"="MS UI Gothic"
"GuiFontSize"=dword:0000000a
-GEManiacさんからの引用ですが、（ http://www.googleearth...
-GE4bは一部では日本語化されているとの話がでていますが、私...
-KMLが2.1になってました。3Dテクスチャが追加されて、色々機...
-Google SketchUp MacOSX版リリースされました. -- [[okinawa...
-早速いじってますが、ナビゲーションが画面で直接操作できる...
-Xの設定が十分ではなかったので泣きそうな速度でしたが, き...
-Linux版も出てます！ -- [[okinawa]] &new{2006-06-14 (水) ...
-おっと先をこされちゃった！ -- [[okinawa]] &new{2006-06-1...
-[[Google Earth 4」ベータ版公開:http://internet.watch.imp...
-ここのところいいネタがあまりないGE&Rであるが、GE側で衛星...
-GE-GRAPH （ http://paginas.terra.com.br/informatica/sgr...
-Rita やKatrina の影響を GoogleEarth で可視化を扱った htt...
-これで MetaCarta (テキストマイニング for GIS)とSpotFire...
-いつのまにやら、GEに日本の県境が表示されるようになってま...
-ユーザー喜びの声( http://virtual.haru.gs/up/src/uho0589....
-3DCADのSketchUpがGoogleに買収されてたのですが、Freeにな...
-日本語フォント用レジストリパッチUPしました。kml内に日本...
-exciteの自動翻訳を利用してページの（日本語=>英語）翻訳が...
-getCoodsToRplot追加! getCoodsでGEから抽出したlatitude・...
-ＧＥインタラクティブファンクションの項目にgetCoodsを追加...
-ＧＥインタラクティブファンクションの項目に新しいGE-API連...
-GEforMac未対応カードの情報です。( http://earth.google.co...
-GEforMacがOSX10.3.9に対応！(ビデオカードによってはうまく...
-GEでオリンピックを見よう！(http://services.google.com/ea...
-Google,VW,NVIDIAがカーナビＧＥを本当に開発中！（http://g...
-[[ShapeFileライブラリ]]の項に書きましたが、地球地図のbnd...
-「Web上でKMLファイルを作成する」をUPしました。 -- [[okin...
-「インタラクティブにポリゴンの色を変化させる」をUPしまし...
-冗長になってきましたので、時系列の表示を逆にして新規を上...
-GEMacはOSX10.3.9以前のOSもサポートするようになるとのこと...
-1.25GHz G4 PowerBookでもかなりさくさくです。2月になった...
-GEMacさくさく動くんですか！自分のPowerBookはOSX10.3なの...
-MacWorldに合わせたのかもしれませんね> GE Mac. 今や旧世代...
-おっと！いつのまにやらIntelMacがぞろぞろと発売！まさかこ...
-GoogleEarth for MacOSX(10.4)beta正式版がでました！http:/...
-GoogleEarth for MacOSX はIntelMacOSXでも動くようです。ht...
-R for Tiger-x86が出たみたいです http://research.att.com...
**コメント欄(2005) [#if390ced]
-すみません、既出の内容は理解していたのですが、時計回りだ...
-ポリゴン点が反時計回り順ですと、黒くなるようです。（kml...
-「日本全図２０００年平均寿命男性」に見られるようなきれい...
-続報！GE for MacOSX pre-betaが圧縮形式で出回ってました。...
-GoogleEarth for MacOSX テスト版の記事がでています！MacOS...
-すごいの発見！飛行機の現在の飛行状況が一目でわかる。 ( h...
-ありがとうございます！！ -- [[質問者]] &new{2005-12-02 (...
-できます。( http://bubble.atnifty.com/GIS/KML/orbit.kml ...
-よくＴＶの航空会社のＣＭで放送している、流動量(Rのパッケ...
-GoogleEarthをIEからコントロールする！(http://members.hom...
-平均寿命２０００年男女データおよび凡例データを公開しまし...
-応用編のライブラリを公開しました。 -- [[okinawa]] &new{2...
-あっ！不完全だったGoogleMapも完全に世界測地系になってま...
-残念ながら、わかりません -- [[okinawa]] &new{2005-11-21 ...
-世界測地系と日本測地系を切り替える具体的な高度を教えてく...
-GoogleEarthのバージョンが3.0.0762になりました。バグ鳥版...
-GE Maniacsに紹介されました。 http://virtual.haru.gs/ind...
-応用編のshp2kmlのコードは、仕様が固まった時点で公開した...
-日本の県境データ(JapanPrefecture.kmz)をUPしました。Googl...
-ちずろぐが面白い！( http://bubble.air-nifty.com/mapper/...
-GoogleEarthのバージョンが3.0.0739になりました。大きいオ...
-訂正、１９９５年、２０００年市区町村別生命表は、すでにベ...
-日本測地系と世界測地系のOverlayのコードを直接リンクする...
-GoogleMapが世界測地系になりました。以前公開していたloadg...
-shp2kml内のコードも変更しました。 -- [[okinawa]] &new{20...
-日本全図平均寿命女性２０００年UP! 沖縄女性はダントツ！ -...
-上記の現象は、ＧＥのポリゴン点が時計回りか反時計回りかに...
-日本全図平均寿命男性２０００年UP! -- [[okinawa]] &new{20...
-注！Google Earth (3.0.0693)BETA5にアップグレードすると、...
-関東UP! -- [[okinawa]] &new{2005-10-18 (火) 15:25:06};
-群馬県UP! -- [[okinawa]] &new{2005-10-12 (水) 13:23:05};
-なんらかのスケールファクターを取り入れたらどうでしょうか...
-max,min間の差が8才程度なので、高低差をきれいに出すのが難...
-すごーい！！こういうのをプリズムマップというのですが、属...
-千葉県UPしました。属性値をポリゴンの高さに割り当てていま...
-属性値を高さで表示させることはできませんか？ -- &new{20...
-Ｒのコードがちょっと複雑になりますが、もちろんできます。...
-特に意味はありません。富士山より高くしただけです。 -- [[...
-高さを""4,000"にしているのは意味があるのでしょうか？ -- ...
-すごいです！応用編も簡単にできるのであれば市販GIS並みで...
-kml->shpもお願いします。m(__)m -- &new{2005-10-03 (月) ...
*アクセス数： [#k695fc2a]
&counter;
人
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
