1

小さな島の地図 (白黒地図またはグレー スケール) を作成する必要があります。worldHires動作しません:

library(maps)
library(mapdata)
map("worldHires", fill=TRUE, col="grey80", xlim=c(105.2, 105.8), ylim=c(-10.8, -10.2))
map.scale(ratio=FALSE, relwidth = 0.18)   

Error in map.poly(database, regions, exact, xlim, ylim, boundary, interior,  : 
  nothing to draw: all regions out of bounds

ggmapパッケージと次のコードを試しました：

library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5), source = "google", zoom = 12)
ggmap(pngMAP_df)

これは機能しますが、(1) カラー マップが作成され、(2) ポイントやテキストをマップに追加できません。

このような白黒マップをプロットし、ポイント、テキスト、スケール (キロメートル単位) を追加する方法に関する提案やアイデアはありますか?

4

3 に答える 3

3

color引数を black-and-white に設定する必要があります:

library(ggmap)
pngMAP_df<- get_map(location = c(lon = 105.62, lat = -10.5), 
                    source = "google", zoom = 12,color='bw')

ggmap(pngMAP_df)

編集

qmapこれら 2 つの関数と組み合わせて、すばやくマップをプロットするために which を使用することもできます。

qmap(location = c(lon = 105.62, lat = -10.5), 
                    source = "google", zoom = 12,color='bw')

ここに画像の説明を入力

于 2013-10-12T13:16:45.890 に答える
0

引数を使用してマップをプロットしたら、標準 コマンドcolor="bw"でポイントとテキストを追加できます。ggplot2

library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5),
                      source = "google",
                      zoom = 12,
                      color="bw")
ggmap(pngMAP_df) +
    geom_point(x=105.58, y=-10.5, col="red") +
    geom_text(x=105.60, y=-10.49, label="foo")

ここに画像の説明を入力

于 2013-10-12T13:22:04.793 に答える