在ggplot的axis.text.x名称中添加多种颜色

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40)
)

# 创建ggplot对象并设置x轴为离散变量
plot <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity")

# 设置x轴标签的颜色
plot + scale_x_discrete(labels = c(
  "A" = "A",
  "B" = "B",
  "C" = "C",
  "D" = "D"
), 
breaks = c("A", "B", "C", "D"), 
guide = guide_axis(n.dodge = 2))