如何在R中构建正确的条形图和刻面网格

install.packages("ggplot2")
install.packages("gridExtra")

library(ggplot2)
library(gridExtra)

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

# 构建条形图
bar_plot <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity")

# 显示条形图
print(bar_plot)

# 添加x轴和y轴标签
bar_plot <- bar_plot + labs(x = "Category", y = "Value")

# 添加标题
bar_plot <- bar_plot + ggtitle("Bar Chart Example")

# 显示带有标签和标题的条形图
print(bar_plot)

# 创建另一个示例数据框
data2 <- data.frame(category = c("D", "E", "F"),
                    value = c(12, 18, 20))

# 构建第二个条形图
bar_plot2 <- ggplot(data2, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  labs(x = "Category", y = "Value") +
  ggtitle("Bar Chart Example 2")

# 构建刻面网格
grid_plot <- grid.arrange(bar_plot, bar_plot2, nrow = 1)

# 显示刻面网格
print(grid_plot)