ggplot barplot 图表上的平均值

Question

我想为 y 创建一个包含 2 个因子和 1 个连续变量的条形图。 Μy 代码是（它基于内置数据集：mtcars）：

data(mtcars)
x=mtcars
library(ggplot2)
ggplot(x,aes(x=factor(carb), y=mpg, fill=factor(carb)))
+geom_bar(stat="summary",fun.y="mean")
+labs(title="Barplot of Average MPG per Carbon category per # of Cylinders", y="Mean MPG",x="Carbon Category")
+facet_grid(.~factor(cyl))
+geom_text(aes(label=mpg),vjust=3)

我的目标是获得（并显示）每个碳类别、每个气缸类别的平均 MPG 值。我的代码正确吗？

主要问题是，我只想要每个条上显示的平均值，而不是这种因子值组合的所有值。

例如： subset(x,c(x$carb==3 & x$cyl==8)) 返回 3 个不同的 MPG 值，图表显示了所有这三个值！

Answer 1

你可以试试

library(tidyverse)
mtcars %>% 
group_by(carb, cyl) %>% 
summarise(AverageMpg = mean(mpg)) %>% 
  ggplot(aes(factor(carb), AverageMpg, label=AverageMpg, fill=factor(carb))) +
  geom_col() +
  geom_text(nudge_y = 0.5) + 
  facet_grid(~cyl, scales = "free_x", space = "free_x")

Answer 2

如果我理解正确，我想这就是您想要实现的目标。

data(mtcars)
library(tidyverse)

mtcars %>% 
  group_by(carb, cyl) %>% 
  summarise(AverageMpg = mean(mpg)) %>% 
  ungroup() %>% 
  mutate(carb = factor(carb)) %>% 

ggplot(mapping = aes(x=carb, y=AverageMpg, fill=carb)) +
  geom_col() +
  scale_y_continuous(name = "Mean MPG") +
  scale_x_discrete("Carbon Category") +
  labs(title="Barplot of Average MPG per Carbon category per # of Cylinders") +
  facet_grid(.~cyl)