GGplot 中的 Stat_summary 产生了错误的结果

Question

当我运行以下代码时

library(tidyverse)

ggplot(diamonds, aes(x = clarity, fill = cut)) +
  geom_bar()

它显示了清晰度

I1

如输出图中所示具有不同的切割（一般，优质，理想）

但是，当我使用

stat_summary

显示每个净度切工的平均价格时，仅显示

Ideal

净度的

I1

切工值，如下所示（图中的第一个条）。

ggplot(diamonds, aes(x=clarity, y=price, fill=cut)) +
  stat_summary(fun.y="mean", geom="bar")

发生了什么事？我做错了什么？

Answer 1

所有的条都被绘制在彼此之上；理想是最后抽取的类别，价格最高，并且掩盖了其他类别。试试

stat_summary(fun.y="mean", geom="bar", position = "stack")