在多系列条形图的ggplot中有条件地对条形图加阴影

library(ggplot2)

# 创建数据框
df <- data.frame(
  series = rep(c("A", "B"), each = 3),
  condition = rep(c("Condition 1", "Condition 2", "Condition 3"), 2),
  value = c(10, 15, 8, 12, 9, 14)
)

# 创建条形图
ggplot(df, aes(x = series, y = value, fill = condition)) +
  geom_bar(stat = "identity", position = "dodge") +
  theme_minimal() +
  labs(x = "Series", y = "Value") +
  scale_fill_manual(values = c("Condition 1" = "lightblue", "Condition 2" = "lightgreen", "Condition 3" = "lightyellow")) +
  guides(fill = guide_legend(title = "Condition")) +
  theme(legend.position = "bottom")