绘制2 x变量R绘制条形图

# 导入绘图包
library(ggplot2)

# 创建示例数据
data <- data.frame(Category = c("A", "B", "C", "D"),
                   Value1 = c(10, 20, 15, 25),
                   Value2 = c(5, 15, 10, 20))

# 使用ggplot2绘制条形图
ggplot(data, aes(x = Category)) +
  geom_bar(aes(y = Value1, fill = "Value1"), stat = "identity", position = "dodge") +
  geom_bar(aes(y = Value2, fill = "Value2"), stat = "identity", position = "dodge") +
  scale_fill_manual(values = c("Value1" = "blue", "Value2" = "red")) +
  labs(title = "Bar Chart of Value1 and Value2",
       x = "Category",
       y = "Value") +
  theme_minimal()