我想创建一个学习地点的地图。所有地点都在北部温带地区。为此,我首先加载世界地图,然后将y轴设置为仅包括北温带纬度(经度在23.5和66.5之间)。
#build map
world <- map_data("world") # we already did this, but we can do it again
map <- ggplot() + geom_polygon(data = world, aes(x=long, y = lat, group = group))
map <- map + coord_map(ylim = c(23.5, 66.5))
map
Run Code Online (Sandbox Code Playgroud)
您可以对其进行切片并使用真实的投影:
library(ggalt)
library(ggplot2)
world <- map_data("world")
ggplot() +
geom_cartogram(
data = world, map = world,
aes(x=long, y = lat, group = group, map_id=region)
) +
coord_proj("+proj=wintri", ylim = c(23.5, 66.5))
Run Code Online (Sandbox Code Playgroud)