要将海洋添加到地图中,我正在考虑将rnaturalearth包与ocean50数据一起使用。
devtools::install_github("ropenscilabs/rnaturalearth")
library(rnaturalearth)
library(ggplot2)
library(ggalt)
ocean50 <- ne_download(scale = 50, type = 'ocean', category = 'physical')
plot(ocean50, col="lightblue")
o<-fortify(ocean50)
gg<-ggplot() +
geom_cartogram(aes(long, lat, map_id = id), data=o, map=o, fill="lightblue")
但似乎美洲大陆消失了。
此外,当我尝试
时gg + coord_map("ortho", orientation = c(4.22, 18.35, 0))+theme_map()
大陆而非海洋是彩色的
有关如何解决此问题的任何建议?有没有一种基于方向剪辑的简单方法?