2

RgoogleMaps を使用して、ポイントを png ファイルにオーバーレイしたマップを保存しようとしています。プロット デバイスでマップとオーバーレイ ポイントを正常に作成できますが、マップの png ファイルにポイントを書き込む方法がわかりません。

Mac OS X Lion 10.7.5 R バージョン 2.15.0 を使用しています

R ドキュメントのサンプル コードを使用すると、同じ結果が得られます。開いているプロット デバイスの行ですが、png ファイルには書き込まれません。

私が使用しているサンプルコードは次のとおりです。

lat = c(40.702147,40.718217,40.711614);
lon = c(-74.012318,-74.015794,-73.998284);
center = c(mean(lat), mean(lon));
zoom <- min(MaxZoom(range(lat), range(lon)));
#this overhead is taken care of implicitly by GetMap.bbox();              
MyMap <- GetMap(center=center, zoom=zoom,markers = '&markers=color:blue|label:S|40.702147,-74.015794&markers=color:green|label:G|40.711614,-74.012318&markers=color:red|color:red|label:C|40.718217,-73.998284', destfile = "MyTile1.png");

tmp <- PlotOnStaticMap(MyMap, lat = c(40.702147,40.711614,40.718217), lon = c(-74.015794,-74.012318,-73.998284), destfile = "MyTile1.png", cex=1.5,pch=20,col=c('red', 'blue', 'green'), add=FALSE);
#and add lines:
PlotOnStaticMap(MyMap, lat = c(40.702147,40.711614,40.718217), lon = c(-74.015794,-74.012318,-73.998284), lwd=1.5,col=c('red', 'blue', 'green'), FUN = lines, add=TRUE)

これが機能するため、pngデバイスが機能していることはわかっています：

png('my.png')
plot(seq(1:10))
dev.off()

助けてくれてありがとう。

4

2 に答える 2

1

PlotOnStaticMap を使用してポイントとラインを png ファイルに追加するには、PlotOnStaticMap を呼び出す前に、プロット デバイスに対して type='cairo-png' を明示的に設定する必要がある場合があります。私のマシンと私のR環境では、これは機能します：

png('MyTile1.png',type='cairo-png')
dev.cur()
png 3 # returned value

しかし、これはそうではありません

png('MyTile1.png')
dev.cur()
quartz_off_screen 2 # returned value

以下のコードは、点と線を MyTile1.png に書き込みます。

lat = c(40.702147,40.718217,40.711614);
lon = c(-74.012318,-74.015794,-73.998284);
center = c(mean(lat), mean(lon));
zoom <- min(MaxZoom(range(lat), range(lon)));             

MyMap <- GetMap(center=center, zoom=zoom,markers = '&markers=color:blue|label:S|40.702147,-74.015794&markers=color:green|label:G|40.711614,-74.012318&markers=color:red|color:red|label:C|40.718217,-73.998284')

# explicitly set device to png with type='cairo-png'
png('MyTile1.png',type='cairo-png')     
# add points            
tmp <- PlotOnStaticMap(MyMap, lat = c(40.702147,40.711614,40.718217), lon = c(-74.015794,-74.012318,-73.998284), cex=1.5,pch=20,col=c('red', 'blue', 'green'));
#and add lines:
PlotOnStaticMap(MyMap, lat = c(40.702147,40.711614,40.718217), lon = c(-74.015794,-74.012318,-73.998284), lwd=1.5,col=c('red', 'blue', 'green'), FUN = lines, add=TRUE)
dev.off()
于 2012-10-16T17:50:42.117 に答える
0

あなたはあなたの最終行に従うことができます

dev.print(png, width = 800, file = "MyTile2.png")

または似たようなもの

于 2012-10-16T07:08:42.147 に答える