添加圖例並在分組的條形圖上更改顏色

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)

現在，我想為變量“ color”添加圖例，也想更改條形的顏色。 該圖正是我想要的樣子，並且如果可能的話，我不想更改數據集的結構，只需添加圖例並更改顏色即可。

我找不到適合這種“百分比”樣式圖形的示例。

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)