在 R 中的 googlemap 上绘制数据点

Question

我使用 searchtwitter 函数从 twitter 中提取了推文，并创建了一个包含“经度”和“纬度”列的 csv 文件，并创建了一个变量“tweets”来读取 csv 文件。每条推文/行都有经度和纬度数据。我想将推文的位置绘制到新加坡的谷歌地图上。

如何在使用 PlotOnStaticMap 函数创建的谷歌地图上绘制点？这是实现我的谷歌地图的代码：

sgmap<-GetMap(center="Singapore",zoom=11)
PlotOnStaticMap(sgmap)
points(tweets$longitude,tweets$latitude,col="red",cex=.6)

我也试过这个代码：

sgmap<-GetMap(center="Singapore",zoom=11)
PlotOnStaticMap(sgmap,cex=.6,col="red",FUN=points,add=F)
points(tweets$longitude,tweets$latitude,col="red",cex=.6)

和：

sgmap<-GetMap(center=c(1.352083,103.8198),zoom=11,destfile="map.png",maptype="satellite")
PlotOnStaticMap(lat=tweets$latitude,lon=tweets$longitude,zoom=11,cex=.6,col="red",FUN=points)

Answer 1

这是使用ggmap 和ggplot2 执行此任务的另一种方法。您使用ggmap 下载地图，然后在ggplot2 中使用geom_point 在地图上绘制数据点。

library(ggmap)
library(ggplot2)

sing <- get_map(location = "singapore", color = "bw",
                zoom = 11, maptype = "toner", source = "google")

# This is a pseudo tweets data frame including long and lat only
set.seed(12)
foo <- data.frame(long = runif(300, 103.68, 104),
                  lat = runif(300, 1.3, 1.42))

ggmap(sing) +
geom_point(data = foo, aes(x = long, y = lat), color = "red")