代码之家 › 专栏 › 技术社区 › Kirds

在ggplot中将国家名称添加到地图中

rworldmap plot ggplot2 google-maps r

Kirds · 技术社区 · 2 年前

我试着在 ggplot
我想加上这些国家的名字。

然而,很难在图例中添加案件数量和国家名称。

library(ggplot2)
library(dplyr)

sa.countries <- c('Argentina', 'Bolivia', 'Brazil',  
               'Colombia', 'Chile','Ecuador','French Guiana','Guyana', 
               'Paraguay', 'Peru', 'Suriname', 
               'Trinidad and Tobago', 'Uruguay', 'Venezuela')

countries.maps <- map_data("world", region = sa.countries)

country.cases <- tribble(~region, ~papers,
                          'Argentina', 33, 'Bolivia', 8, 'Brazil', 242,
                          'Colombia', 41, 'Chile', 9, 'Ecuador', 44,
                          'French Guiana', 3, 'Guyana', 0, 'Paraguay', 1,
                          'Peru', 8, 'Suriname', 0, 'Trinidad and Tobago', 2,
                          'Uruguay', 0, 'Venezuela', 7)

df.country <- left_join(countries.maps, country.cases, by="region")


ggplot(df.country, aes(long, lat, group = group))+
  geom_polygon(aes(fill = papers ), color = "white") +
  scale_fill_viridis_c(name='# cases', option = "C") +
  coord_equal() +
  theme_bw()

提前谢谢。

1 回复 | 直到 2 年前

Park 2 年前

你可以试试

dff <- df.country %>%
  group_by(region) %>%
  summarize(long = mean(long, na.rm = T), lat = mean(lat, na.rm = T), group = group)
ggplot(df.country, aes(long, lat, group = group))+
  geom_polygon(aes(fill = papers ), color = "white") +
  scale_fill_viridis_c(name='# cases', option = "C") +
  coord_equal() +
  theme_bw() +
  geom_text(data = dff, aes(long, lat, label = region, group = group), size = 2)

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前