R格式的双色color_bar

# 安装并加载ggplot2包
if (!require("ggplot2")) {
  install.packages("ggplot2")
}
library(ggplot2)

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

# 创建双色color_bar
ggplot(data, aes(x = category, y = value, fill = category)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("red", "blue", "green", "purple")) +
  labs(title = "双色Color Bar", x = "Category", y = "Value") +
  theme_minimal()