【R】Asiaの地図を表示

アジアの地図を表示してみます。データは、rnaturalearthで取得。人口別のコロプレス図にします。こちらのサイトを参考にしました。

library(rnaturalearth)
library(ggplot2)
library(ggrepel)
library(tidyverse)
library(sf)
library(kableExtra)

asia <- rnaturalearth::ne_countries(
  continent = "Asia",
  returnclass = "sf"
)

dat <- asia %>%
  mutate( 
    centroid = st_centroid(geometry),
    x = st_coordinates(centroid)[, 1],
    y = st_coordinates(centroid)[, 2]
  ) %>%
  arrange(desc(pop_est))

ggplot(dat, aes(fill = pop_est)) + 
  geom_sf() + 
  scale_fill_viridis_c() +
  theme_void() +
  geom_text_repel(aes(x = x, y = y, label = name), col="skyblue", size = 4)

table_df<-data.frame(Country=dat$name, Population=dat$pop_est)

library(clipr)
table_df %>% 
  kable(align = "c", row.names=FALSE) %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle") %>% 
  write_clip