如何在R中制作相互面对的垂直条形图

install.packages("ggplot2")
library(ggplot2)

# 加载必要的包
library(ggplot2)

# 准备数据
data <- data.frame(
  Group = c("Group 1", "Group 2", "Group 3"),
  Value = c(10, 15, 8)
)

# 创建垂直条形图
p <- ggplot(data, aes(x = Group, y = Value))

# 设置面对面的条形图
p <- p + geom_col(aes(fill = Group), position = "dodge")

# 添加其他图层和自定义
p <- p + labs(title = "相互面对的垂直条形图", x = "组别", y = "数值")
p <- p + theme(plot.title = element_text(hjust = 0.5))

# 显示图形
print(p)