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))为MPG返回3个不同的值，图表显示了这三个值！

Answer 1

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

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)

Answer 2

你可以尝试

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")