5

ggmapおよびggplotパッケージを使用してサンパウロマップの2つの異なるデータフレームの経度と緯度の座標をプロットしており、各凡例レイヤーに手動でラベルを付けたいと考えています。

更新：完全に再現できるように、以下のコードを編集しました（get_mapの代わりにgeocode関数を使用していました）。

更新：データフレームを結合せずにこれを実行したいと思います。

require(ggmap)

sp <- get_map('sao paulo', zoom=11, color='bw')
restaurants <- data.frame(lon=c(-46.73147, -46.65389, -46.67610), 
                          lat=c(-23.57462, -23.56360, -23.53748))
suppliers <- data.frame(lon=c(-46.70819,-46.68155, -46.74376), 
                        lat=c(-23.53382, -23.53942, -23.56630))
ggmap(sp)+geom_point(data=restaurants, aes(x=lon, y=lat),color='blue',size=4)+geom_point(data=suppliers, aes(x=lon, y=lat), color='red', size=4)

ここに画像の説明を入力してください

私はいくつかの質問に目を向け、さまざまな方法を試しましたが、成功しませんでした。凡例を挿入し、青い点をレストランとして、赤い点をサプライヤーとしてラベル付けする方法を知っている人はいますか？

4

1 に答える 1

8

これでコードが再現可能になりました（ありがとう！）：

dat <- rbind(restaurants,suppliers)
dat$grp <- rep(c('Restaurants','Suppliers'),each = 3)

ggmap(sp) + 
    geom_point(data=dat, aes(x=lon, y=lat,colour = grp),size = 4) + 
    scale_colour_manual(values = c('red','blue'))

ここに画像の説明を入力してください

于 2012-06-22T16:50:57.720 に答える