数据代码来源

https://github.com/emilmalta/30daychartchallenge/blob/master/script/22_animation.R

这个代码是利用gganimate这个R包做了一个动态的气泡图，结果非常惊艳

今天的推文主要学习其中做气泡图的代码和非常舒服的配色

加载需要用到的R包

library(tidyverse)
library(gganimate)
library(ggplot2)

读取数据集

这里我只选取原始代码数据集中的一小部分

dat01<-readr::read_csv("20220522.csv")

准备配色

cols <- c(
  "Africa" = "#34a186",
  "Americas" = "#f9cb45",
  "Asia" = "#b5182b",
  "Europe" = "#4cb1c4",
  "Oceania" = "#ab96d2"

作图代码

pdf(file = "abc1.pdf",
    width = 20,height = 20)
dat01 %>% 
  arrange(desc(sp_pop_totl)) %>% 
  ggplot(aes(x = it_mlt_main_p2, 
             y = it_cel_sets_p2, 
             label = country)) +
  geom_point(
    aes(size = sp_pop_totl, fill = continent), 
    pch = 21, color = "white", alpha = .9
  scale_fill_manual(values = cols) +
  scale_size_area(max_size = 80) +
  coord_cartesian(xlim = c(0, 75), ylim = c(0, 200), clip = "off") +
  guides(size = "none") +
  theme_minimal(base_family = "serif", base_size = 35) +
  theme(
    text = element_text(color = "#3a3e4c"), 
    plot.background = element_rect(fill = "#f2ebe7", color = NA), 
    panel.grid = element_line(linetype = 3, color = "#c9c8c4"),
    plot.title.position = "plot", 
    plot.title = element_text(size = 100),
    plot.subtitle = element_text(family = "serif"),
    legend.position = "bottom", plot.margin = margin(20,20,20,20)
  guides(size = "none", fill = guide_legend(title = NULL, override.aes = list(size = 5))) +
  labs(title = "Rise of Cell Phones", 
       subtitle = "Cell phones are not only more convenient for the end user. They are also much easier to implement in\nregions with poor infrastructure. Countries with low income never saw the rise of landline phones, but\nachieved widespread use of cell phones within two decades",