我正在尝试使用 R 可视化世界地图上国家/地区的一些数据ggplot2。我正在使用以下代码（示例）：
WorldData <- map_data('world')
df <-data.frame(region=c('Hungary','Lithuania','Argentina'),value=c(4,10,11))
Total <- merge(WorldData,df,by='region')
并使用 ggplot 进行绘图：
p <- ggplot()
p <- p + geom_polygon(data=Total, aes(x=long, y=lat, group = group,fill=Total$value),colour="white") +
scale_fill_continuous(low = "thistle2", high = "darkred", guide="colorbar")
P1 <- p + theme_bw() + labs(fill = "legend" ,title = "Title", x="", y="")
P1 + scale_y_continuous(breaks=c()) + scale_x_continuous(breaks=c()) + theme(panel.border = element_blank())
输出是这样的：
I believe that the problem is in the merge because when I change the data option in geom_polygon to WorldData and the fill option to 1 I have the following result:
发生这种情况是因为我没有来自所有国家/地区的数据吗？df？我怎样才能超越它？
编辑：我想要的是绘制整个地图。 （我的描述没有说清楚）
您还可以像其他 GIS 环境那样在“图层”中工作（这也将允许您不合并数据）。这可以通过多种方式实现，但我喜欢使用geom_map:
library(ggplot2)
library(dplyr)
WorldData <- map_data('world') %>% filter(region != "Antarctica") %>% fortify
df <- data.frame(region=c('Hungary','Lithuania','Argentina'),
value=c(4,10,11),
stringsAsFactors=FALSE)
p <- ggplot() +
geom_map(data = WorldData, map = WorldData,
aes(x = long, y = lat, group = group, map_id=region),
fill = "white", colour = "#7f7f7f", size=0.5) +
geom_map(data = df, map=WorldData,
aes(fill=value, map_id=region),
colour="#7f7f7f", size=0.5) +
coord_map("rectangular", lat0=0, xlim=c(-180,180), ylim=c(-60, 90)) +
scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar") +
scale_y_continuous(breaks=c()) +
scale_x_continuous(breaks=c()) +
labs(fill="legend", title="Title", x="", y="") +
theme_bw()
p
这也有一个投影（通过coord_map）这样你将获得一致的输出并摆脱南极洲。