ggplot2 3.5新功能-图形填充渐变色

R语言数据分析指南

发布于 2024-03-11 13:54:51

4520

发布于 2024-03-11 13:54:51

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

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

❝2月底ggplot2更新了最新版3.5，本节来介绍一下ggplot2 3.5版更新的内容之「填充渐变色」，更新最新版即可实现此操作，更多详细内容请参考作者官方文档。 ❞

官方文档

https://www.tidyverse.org/blog/2024/02/ggplot2-3-5-0/

「Windows系统需要额外进行设置」

加载R包

library(grid)
install.packages("ggplot2")
library(ggplot2)
library(tidyverse)
library(scales)

定义渐变颜色

❝有linearGradient()、radialGradient()、pattern()三种方式来生成渐变色 ❞

colours <- scales::viridis_pal()(10)
grad_ungroup <- linearGradient(colours, group = FALSE)
grad_grouped <- linearGradient(colours, group = TRUE)

ungroup <- ggplot(mpg, aes(factor(cyl))) +
  geom_bar(fill = grad_ungroup) +
  labs(title = "Ungrouped gradient")

grouped <- ggplot(mpg, aes(factor(cyl))) +
  geom_bar(fill = grad_grouped) +
  labs(title = "Grouped gradient")

ungroup | grouped

添加渐变图案

patterns <- list(
  linearGradient(colours, group = FALSE),
  "limegreen",
  radialGradient(colours, group = FALSE),
  pattern(
    rectGrob(x = c(0.25, 0.75), y = c(0.25, 0.75), width = 0.5, height = 0.5),
    width = unit(5, "mm"), height = unit(5, "mm"), extend = "repeat",
    gp = gpar(fill = "limegreen")
  )
)

ggplot(mpg, aes(factor(cyl), fill = factor(cyl))) +
  geom_bar() +
  scale_fill_manual(values = patterns)