使用ggplot2在一个图形中绘制两个独立的条形图

install.packages("ggplot2")

library(ggplot2)

data1 <- data.frame(x = c("A", "B", "C"), y = c(10, 20, 30))
data2 <- data.frame(x = c("D", "E", "F"), y = c(15, 25, 35))

combined_data <- rbind(data1, data2)

p <- ggplot(combined_data, aes(x = x, y = y))

p <- p + geom_bar(data = data1, stat = "identity", fill = "blue", width = 0.4)
p <- p + geom_bar(data = data2, stat = "identity", fill = "red", width = 0.4)

p <- p + labs(title = "Comparison of Data1 and Data2",
              x = "Variable X",
              y = "Variable Y")
p <- p + scale_fill_manual(values = c("blue", "red"),
                           labels = c("Data1", "Data2"))

print(p)