删除图形中的小面，而在单个图表上显示？

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美学。

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

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

​

​