Question

我试图将新移民gp注册的密度绘制到地方政府区域地图上;我的情节已经合理地起作用，除了我不知道调色板发生了什么。我怀疑它因填充值中存在小数而感到困惑。如果单击图片，您可能会注意到颜色键从头到尾几乎是圆形的。

有谁知道这里可能发生了什么，将来如何避免这种情况，并在这个场合用更好的钥匙解决？

install.packages("rgdal")
library(rgdal)
install.packages("maptools")
library(maptools)
install.packages("rgeos")
library(rgeos)
myshape2 <- readShapeSpatial("infuse_dist_lyr_2011.shp")
plot(myshape)
plot(myshape2)
install.packages("ggplot2")
library(ggplot2)
str(myshape2)
myshape2frame <- fortify(myshape2, region="name")
install.packages("gpclib", type = "source")

pathRtools <- paste(c("c:\\Rtools\\bin",
                  "c:\\Rtools\\MinGW_64\\bin",
                  "c:\\MiKTeX\\miktex\\bin",
                  "c:\\R\\bin\\i386",
                  "c:\\windows",
                  "c:\\windows\\system32"), collapse=";")
Sys.setenv(PATH=paste(pathRtools,Sys.getenv("PATH"),sep=";"))
install.packages("gpclib", type = "source")
library(gpclib)
gpclibPermit()
gpclibPermitStatus()
# simplify the polgons a tad (tweak 0.00001 to your liking)
myshapebuffer <- gBuffer(myshape2, byid=TRUE, width=0)
View(myshapebuffer) # deal with bad polygons
plot(myshapebuffer)
myshape2frame <- fortify(myshapebuffer, region="name")
View(myshape2frame)
mig16 <- read.csv("migration.csv")
library(plyr)
intmig <- ggplot() + geom_map(data = mig16, aes(map_id = Area, fill = Mig), 
                map = myshape2frame) + expand_limits(x = myshape2frame$long,    y = myshape2frame$lat))

Answer 1

我不能完全测试这个，但我认为相反（十进制问题），填充值被视为因子而不是真正的数值。尝试将fill = Mig更改为fill = as.numeric(as.character(Mig))。

（请记住，在转换为所需的数值之前，必须将因子转换为字符。）

引用键中奇怪的ggplot调色板

1 个答案: