Question

我想在此map中绘制类似isarhytmoc点tutorial，但需要有人口数据。然而，遗憾的是，我没有足够的技能，只有这样的代码：

require(sp)
require(rgdal)
require(RColorBrewer)
require(ggplot2)
library(plyr)
library(maptools)
library(rgeos)
require(gpclib)
gpclibPermitStatus() 
gpclibPermit()


rus<-url("http://www.filefactory.com/file/4h1hb5c1cw7r/n/RUS_adm1_RData")
print(load(rus))
proj4.str <- CRS("+init=epsg:3413 +lon_0=105")
gadm.prj <- spTransform(gadm, proj4.str)


popul <- read.csv2(file="C:\\unempl11.txt", header = TRUE, 
        sep = ";",quote = "", dec=",", stringsAsFactors=F)

df <- fortify(gadm.prj, region = "ID_1")
df2 <- merge(df, gadm.prj, by.x="id", by.y="ID_1")






p <- ggplot(df2, aes(x = long, y = lat, group=group)) +
       geom_point(data    = popul,  
                  mapping = aes(x=lon, y=lat, colour=abs),
                  size    = 3,
                  alpha   = 0.8) +
       scale_colour_gradient2(name  = "Population",
                              low   = "darkred",
                              mid   = "white",
                              high  = "blue",
                              guide = "colorbar") +
       ggtitle("Population in Russia)")
p + geom_path(data    = df2,
               mapping = aes(x=long, y=lat, group=group),
              size    = 0.125)

Here is the data I use，如果有人可以帮我提出一些想法，我将不胜感激。

Answer 1

您正在尝试显示点，但您正在使用 SpatialPolygonsDataFrame来源。您可以提取坐标使用coordinates的质心，并将它们用作坐标你的数据，但我不确定你是否需要：

library(sp)
library(rgdal)

rus <- url("http://www.filefactory.com/file/4h1hb5c1cw7r/n/RUS_adm1_RData")
load(rus)
proj4.str <- CRS("+init=epsg:3413 +lon_0=105")
gadm.prj <- spTransform(gadm, proj4.str)
## IDs needed to match polygons and data
nms <- gadm.prj$NAME_1

ll <- coordinates(gadm.prj)

另一方面，我无法正确检索data列你的文件。我填充了一些噪音：

popul <- read.csv2('/tmp/popul.txt')
popul$data <- runif(nrow(popul))

现在是时候匹配坐标和数据了（类似于我们的做了 this previous question）：

ord1 <- match(nms, popul$region)
popul <- popul[ord1,]
row.names(popul) <- nms
row.names(ll) <- nms

popSP <- SpatialPointsDataFrame(ll, popul["data"], proj4string=proj4.str)

此SpatialPointsDataFrame可以直接显示 spplot sp.layout使用spplot(popSP, sp.layout=list('sp.polygons', gadm.prj))进行下面的边界。

{{1}}

result

绘制人口的点图

1 个答案: