绘制数据点和插值

Question

我想在地图上绘制数据并插入它但我不知道如何在r中执行此操作。这是我到目前为止所做的。

library(ggmap)

gc <- geocode("Rakiraki,Fiji")
Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Rakiraki,Fiji&sensor=false
map <- get_map(gc)
Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=-17.399264,178.070532&zoom=10&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
(bb <- attr(map, "bb"))
     ll.lat   ll.lon   ur.lat   ur.lon
1 -17.81878 177.6318 -16.9801 178.5107
(bbox <- bb2bbox(bb))
     left    bottom     right       top 
177.63177 -17.81878 178.51067 -16.98010 
ggmap(map) 
+ geom_point(
+ + aes(x = lon, y = lat),
+ + data = gc, colour = "red", size = 3
Error: unexpected '=' in:
"+ aes(x = lon, y = lat),
+ data ="
+ )
Error: unexpected ')' in "+ )"
data1 <-read.csv(file.choose(),header=T)
data1
  Longitude Latitude Wind.Speed
1     177.8    -17.6        4.0
2     177.5    -17.5        3.5
3     178.0    -17.4        4.5
4     178.1    -17.6        4.0
5     178.2    -17.3        6.0
6     178.3    -17.7        6.5
7     178.3    -17.5        5.0
8     178.4    -17.6        5.5

有谁能告诉我如何绘制这些数据以及如何在地图上进行插值。

我希望最终的地图看起来像这样。请找附件enter image description here

Answer 1

您的问题中的代码存在很多问题。括号未在geom_point结尾处关闭，并且存在+符号，不应存在。

我假设您要将data1中的数据添加到地图中，即在不同位置的风速。这样的事情应该有效：

ggmap(map) + 
  geom_point(aes(x = Longitude,
                 y = Latitude,
                 size = Wind.Speed),
             data = data1, 
             colour = "red")

它并不清楚你的意思是＆＃34;插入＆＃34;但也许像stat_density2d这样的东西是你想到的？将其添加到上面的代码中：

+ stat_density2d(data = data1, 
                 aes(x = Longitude, y = Latitude))