如何为ggplot2中geom_bar的两个变量设置渐变与差异化颜色？

要实现hit的1-3用不同颜色基调，且每个hit组内的type（A-C）呈现渐变效果，可以通过映射hit与type的交互项到填充色，再手动为每个hit类别分配渐变调色板来实现。

修改后的代码 #

rm(list=ls())
library(ggplot2)
set.seed(123)
data <- data.frame(hit=sample(1:3,20,replace = TRUE),
                   type=sample(c("A","B","C"),20,replace=TRUE))

# 定义每个hit对应的渐变颜色组：A浅、B中、C深
color_palette <- c(
  # hit=1的蓝系渐变
  "1.A" = "#cce7ff", "1.B" = "#66b3ff", "1.C" = "#0066cc",
  # hit=2的绿系渐变
  "2.A" = "#ccffcc", "2.B" = "#66cc66", "2.C" = "#009933",
  # hit=3的橙系渐变
  "3.A" = "#ffebcc", "3.B" = "#ffb366", "3.C" = "#ff6600"
)

ggplot(data, aes(x = hit, fill = interaction(hit, type))) +
  geom_bar(stat="count", position=position_dodge()) +
  # 手动指定填充色并优化图例
  scale_fill_manual(values = color_palette,
                    labels = c("1-A", "1-B", "1-C", "2-A", "2-B", "2-C", "3-A", "3-B", "3-C"),
                    name = "Hit & Type") +
  labs(x = "Hit", y = "Count")

关键说明 #

• interaction(hit, type)会生成hit和type的组合类别（如1.A、2.B），让我们能为每个组合单独指定颜色
• 自定义调色板中，每个hit组内的type颜色从浅到深渐变，不同hit组用不同色系区分
• 如果想要更灵活的自动渐变，可使用colorRampPalette生成渐变组：

  # 自动生成各hit组的渐变颜色
  blue_ramp <- colorRampPalette(c("#cce7ff", "#0066cc"))(3)
  green_ramp <- colorRampPalette(c("#ccffcc", "#009933"))(3)
  orange_ramp <- colorRampPalette(c("#ffebcc", "#ff6600"))(3)
  color_palette <- c(blue_ramp, green_ramp, orange_ramp)
  

内容的提问来源于stack exchange，提问作者Wael