此问题已在此处有答案：

Sorting summary stat values in ggplot2（1个答案）
4天前关闭。
这两个产生相同的图形。好极了。

library(ggplot)
library(forcats)

ggplot(diamonds,aes(x=cut,y=price)) +
  geom_bar(stat="summary",fun=mean)

diamonds %>%
  group_by(cut) %>%
  summarize(mean_price = mean(price, na.rm = TRUE), count= n())  %>% 
  ggplot(aes(x=cut,y=mean_price)) +
  geom_bar(stat="identity")

我的问题是如何在不首先聚合数据的情况下获得以下图表（通过group_by和summarize）

diamonds %>%
  group_by(cut) %>%
  summarize(mean_price = mean(price, na.rm = TRUE), count= n())  %>% 
  ggplot(aes(x=fct_reorder(cut,mean_price),y=mean_price)) +
  geom_bar(stat="identity")

先谢谢你了。