按填充和显示平均值分组的ggplot

ggplot(data = 数据框, aes(x = x轴变量, y = y轴变量))

+ geom_bar(stat = "identity")  # 创建柱状图
+ stat_summary(fun = "mean", geom = "point", shape = 18, size = 4)  # 添加平均值的显示

+ labs(title = "按填充和显示平均值分组的柱状图", x = "x轴标签", y = "y轴标签")  # 添加标题和坐标轴标签
+ theme_bw()  # 使用白色背景主题
+ theme(legend.position = "top")  # 将图例放置在顶部

library(ggplot2)

# 准备数据
data <- data.frame(group = c("A", "A", "B", "B", "C", "C"),
                   value = c(10, 15, 8, 12, 5, 9))

# 创建图形对象
ggplot(data = data, aes(x = group, y = value)) +
  # 添加柱状图和平均值显示
  geom_bar(stat = "identity") +
  stat_summary(fun = "mean", geom = "point", shape = 18, size = 4) +
  # 添加标题和坐标轴标签
  labs(title = "按填充和显示平均值分组的柱状图", x = "组别", y = "数值") +
  # 使用白色背景主题
  theme_bw() +
  # 将图例放置在顶部
  theme(legend.position = "top")