r - 从 ggplot 中删除构面并显示在单个图表上？

Question

这是一个与我为利益相关者制作的情节非常相似的情节：

diamonds %>% 
  group_by(cut, color) %>% 
  summarise(av_price = mean(price)) %>% 
  ggplot(aes(color)) +
  geom_bar(aes(weight = av_price)) +
  facet_wrap(cut ~ .)

好像：

我被要求删除刻面，而是将每个切面显示在同一张图表上，但每个切面之间都有一些空间（为了便于阅读，可能每个切面都有自己的颜色？）

我不知道该怎么做。试过：

diamonds %>% 
  group_by(cut, color) %>% 
  summarise(av_price = mean(price)) %>% 
  ggplot(aes(color, cut)) +
  geom_bar(aes(weight = av_price))

错误：stat_count() 只能具有 x 或 y 美学。

如何在单个图表上显示每个切割而不是方面？

标签： rggplot2

Answer 1

这个解决方案怎么样：

diamonds %>% 
  group_by(cut, color) %>% 
  summarise(av_price = mean(price)) %>% 
  ggplot(aes(color, av_price, fill=cut)) +
  geom_col(position="dodge") +
  facet_wrap(~cut, nrow=1) +
  theme(strip.text.x = element_blank())