可以通过以下步骤实现:
ne_countries()
函数加载全球国家边界数据集。library(rnaturalearth)
# 加载全球国家边界数据集
world <- ne_countries(scale = "medium", returnclass = "sf")
ggplot2
包创建地图,并将河流添加到地图上。可以使用geom_sf()
函数将地理数据绘制为几何对象。library(ggplot2)
# 创建地图
map <- ggplot() +
geom_sf(data = world, fill = "lightgray", color = "black") +
theme_void()
# 添加河流
map <- map +
geom_sf(data = ne_rivers(scale = "medium"), color = "blue")
# 自定义地图
map <- map +
theme(panel.background = element_rect(fill = "white"),
plot.title = element_text(hjust = 0.5, size = 16),
legend.position = "bottom")
# 添加标题和图例
map <- map +
labs(title = "World Map with Rivers",
caption = "Source: Natural Earth")
# 显示地图
print(map)
通过以上步骤,你可以将河流添加到带有rnaturalearth的地图中。这样做可以帮助你可视化地理数据,并更好地理解河流在全球范围内的分布情况。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云