ggplot2优雅绘制多彩折线图

R语言数据分析指南

发布于 2023-08-18 13:49:46

27200

代码可运行

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

运行总次数：0

代码可运行

欢迎关注R语言数据分析指南

❝本节来介绍使用ggplot2来通过添加背景色的方式来展示数据，主要使用「ggforce包」来绘制圆圈「ggrect函数」来绘制背景。下面小编就通过一个案例来进行展示数据为随意构建无实际意义仅作图形展示用，希望各位观众老爷能够喜欢。 ❞

加载R包

library(tidyverse)
library(ggforce) 
library(ggtext)

导入数据

df <- read_tsv("data.xls") %>%
  select(1, 8:15) %>%
  mutate(
    Year2 = -90 + 180 * (Year - 1880) / (2022 - 1880),
    across(2:9, ~ .x * 25) # 对第2到第9列的数据乘以25
  )

定义调色板

COLORS_ZON <- c("#797d62","#9b9b7a","#d9ae94","#E5C59E","#f1dca7","#ffcb69","#d08c60",
                "#B58463")

数据可视化

ggplot(df) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 64, ymax =Inf), fill = COLORS_ZON[8]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 44, ymax =64), fill = COLORS_ZON[7]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 24, ymax =44), fill = COLORS_ZON[6]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = 0, ymax = 24), fill = COLORS_ZON[5]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -24, ymax = 0), fill = COLORS_ZON[4]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -44, ymax = -24), fill = COLORS_ZON[3]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -64, ymax = -44), fill = COLORS_ZON[2]) +
  geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax=-64), fill = COLORS_ZON[1]) +
  geom_circle(aes(x0=0, y0=0, r=90), col=NA, fill="grey0", alpha=.5, size=1) +
  geom_segment(aes(x=-90, xend=90, y=0, yend=0), col="seashell1", size=.1) +
  geom_line(aes(x=Year2, y=`64N-90N`), col=COLORS_ZON[8]) +
  geom_line(aes(x=Year2, y=`44N-64N`), col=COLORS_ZON[7]) +
  geom_line(aes(x=Year2, y=`24N-44N`), col=COLORS_ZON[6]) +
  geom_line(aes(x=Year2, y=`EQU-24N`), col=COLORS_ZON[5]) +
  geom_line(aes(x=Year2, y=`24S-EQU`), col=COLORS_ZON[4]) +
  geom_line(aes(x=Year2, y=`44S-24S`), col=COLORS_ZON[3]) +
  geom_line(aes(x=Year2, y=`64S-44S`), col=COLORS_ZON[2]) +
  geom_line(aes(x=Year2, y=`90S-64S`), col=COLORS_ZON[1]) +
  scale_y_continuous(limits=c(-100,100)) +
  scale_x_continuous(limits=c(-100*16/9,100*16/9)) +
  coord_fixed() +
  theme_void()