在分组条形图上添加图例并更改颜色

Question

我创建了一个这样的情节；

library("ggplot2")    
ggplot(data = diamonds) + 
      geom_bar(mapping = aes(x = color, y = ..prop.., group = 2)) + 
      scale_y_continuous(labels=scales::percent) +
      facet_grid(~cut)

现在我想为变量“颜色”添加一个图例，我还想更改条形的颜色。该图正是我想要的样子，如果可能的话我不想改变数据集的结构，只需添加一个图例并改变颜色。

我找不到适合这种“百分比”样式图形的示例。

Answer 1

ggplot(data = diamonds, aes(x = color, y = ..prop.., group = cut)) + 
  geom_bar(aes(fill = factor(..x.., labels = LETTERS[seq(from = 4, to = 10 )]))) + 
  labs(fill = "color") + 
  scale_y_continuous(labels = scales::percent) + 
  facet_grid(~ cut)