我的数据框有三列 - Places
,lat
和long
。 Places
是字符串列表,lat
和long
值是通过对列表进行地理编码获得的。
我可以使用
绘制lat long值map + geom_point(data = lat_long_vec, aes(x = lat_long_vec$lon, y = lat_long_vec$lat), size = 3, colour = "blue", shape = 19)
其中map = map = qmap(location=someplacename, zoom = somezoomvalue)
但是,我想使用数据框的“地点”列标记点。我尝试了以下没有效果的。
map + geom_point(data = lat_long_vec, aes(x = lat_long_vec$lon, y = lat_long_vec$lat), size = 3, colour = "blue", shape = 19) + geom_text(aes(label=lat_long_vec$Places),hjust=0, vjust=0)
有人可以帮忙吗?感谢
答案 0 :(得分:1)
我会像这样使用geom_text
。
library(ggmap)
mydf <- data.frame(lat = 17.245088, lon = 78.299744, places = c('My place name'))
ggmap(get_googlemap(center = paste(mydf$lat[1], mydf$lon[1]),
maptype = 'roadmap',
zoom = 10,
color = 'bw',
scale = 2),
extent = 'panel') +
geom_point(data = mydf,
aes(x = lon, y = lat),
fill = "red",
colour = "black",
size = 3,
shape = 21) +
geom_text(data = mydf,
aes(x = lon,
y = lat,
label = places),
color = 'blue')