在 ggmap 上叠加 ggplot，geom_polygon choropleth 给出错误

Question

我正在努力使用 ggmap、ggplot 和 geom_polygon 在地图上叠加等值线。我是 R 的新手，所以我不确定如何进行。我正在使用 R Studio。我已经上传了我的数据（这只是假测试数据）、shapefile 和 R 代码 here

我有艾伯塔省人口普查传播区域内的受试者计数数据文件（实际上只是用于测试的随机数）。我也有这些区域的 shapefile。我只对埃德蒙顿市地区感兴趣，如果没有基本的路线图，很难看出我们正在关注城市的哪个部分。

我的代码如下：

#################################
#enter long and lat for appx area of City of Edmonton (this is so we can change it easier later to narrow down if we want)
lat1 <- 53.65 
lat2 <- 53.44 
long1 <- -113.68 
long2 <- -113.35
#################################

xcoords <- c(long2, long1) 
ycoords <- c(lat2, lat1) 

#load data 
data <-read.csv("C:.../fakedata.csv") #data file location 
names(data) 
data

#Load in the shape file 
shp=readShapeSpatial('C:.../gda_048b06a_e.shp') #shape file location

plot(shp)

这（如预期）给出了该省的所有 DA。然而，这太大了，而且有太多的 DA，我无法手动查看哪些在埃德蒙顿，哪些不在，所以我决定根据主题的数量给它们上色，并限制在特定的长和纬度：

#Making the data types match 
data$amount <-as.numeric(as.character(data$amount))

is.factor(shp$DAUID) 
data$DAUID<-as.factor(data$DAUID)
is.factor(data$DAUID) #should be True 
is.factor(shp$DAUID) #should be True

shp@data <- left_join(shp@data, data) 
head(shp@data) 
map2 <- fortify(shp, region = "DAUID")

#wait a bit for the fortify to work!
map2 <- rename(map2, DAUID = id) 
map2 <- left_join(map2, shp@data) 
ggplot2 <- ggplot(map2)

#DA map 
datamap <- ggplot2 + geom_polygon(aes(long, lat, group = group, fill = amount),color = "grey") +
scale_fill_gradient(low='white', high='red') + coord_map(xlim =
xcoords,ylim = ycoords) 
datamap

datamap 也是我期望的样子。

#map of Edm 
edmonton <- get_map(location = 'edmonton',maptype="road") 
ggmap(edmonton)

我想做的是将我的 DA 地图叠加到路线图上，这样我们就可以更好地了解暗区和亮区的位置。正是在这一点上，我开始收到错误。

#stuck on how to overlay datamap on top of ggmap(edmonton)

datamap2 <- ggmap(edmonton) + datamap 
datamap2

我收到此错误：

Error in p + o : non-numeric argument to binary operator In addition: Warning message: Incompatible methods ("+.gg", "Ops.data.frame") for "+"

我已经用它玩了一个星期，试图合并我见过的类似问题的解决方案，但我似乎无法让它工作。由于我的 shapefile 比我的城市地图大得多，这可能是问题所在吗？我以前从未在 R 中做过这样的事情，GIS 不在我的技能范围内。

我的问题与此类似 previous question，但其中的解决方案对我不起作用。如果内容与其他问题太接近，我深表歉意，感谢您的指导！

（如果这太长，我也很抱歉！我不想遗漏任何有用的信息）

Answer 1

我调查了你的情况，最终以我的方式完成了工作。我希望你不介意。您需要的是在多边形数据的假数据集中有一个带有 amount 的数据集。我想这就是您可能使用 left_join 的原因。不管怎样，每个多边形都有不同数量的数据点。我计算了每个多边形的数据点总数并创建了 num。使用它，您可以创建一个带有 DAUID 的矢量并替换 mymap2 中的 id。排列数据后，您将获得 ggmap 的栅格地图。然后，您在栅格地图上绘制多边形。您可以控制 alpha 值并查看颜色如何出现。例如，如果将该值降低到 0.1，则很难看出颜色之间的差异。您可能需要考虑另一种显示道路的方式。一种方法是使用加拿大道路数据集并绘制埃德蒙顿的一些主要道路。希望对您有所帮助。

library(readr)
library(dplyr)
library(ggplot2)
library(ggmap)
library(rgdal)

#load data
mydata <- read_csv("fakedata.csv") %>%
          rename(id = DAUID)

#Load in the shape file
mymap <- readOGR(dsn = ".", layer = "gda_048b06a_e")

mymap@data$DAUID <- as.numeric(as.character(mymap@data$DAUID))

mymap2 <- fortify(mymap)

# Get the number of data points for each polygon
group_by(mymap2, as.numeric(id)) %>%
summarize(total = n()) -> num

# Replace id with DAUID, and merge with mydata
mymap2 %>%
mutate(id = rep(unique(mymap$DAUID), num$total)) %>%
left_join(mydata, by = "id") -> mymap2


#map of Edm
edmonton <- get_map(location = "edmonton",maptype = "road")

ggmap(edmonton) + 
geom_map(data = mymap2, map = mymap2,
         aes(x = long, y = lat, group = group, map_id = id, fill = amount),
         color = "black", size = 0.2, alpha = 0.3) +
scale_fill_gradient(low = "white", high = "red") +
coord_map(xlim = c(-113.35, -113.68), ylim = c(53.44, 53.65))

在 ggmap 上叠加 ggplot，geom_polygon choropleth 给出错误

Overlaying ggplot, geom_polygon choropleth on ggmap giving errors

r

ggplot2

ggmap