Legende hinzufügen und Farbe ändern auf gruppierte Balkendiagramm

Question

Ich habe ein Grundstück wie diese

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

Jetzt möchte ich eine Legende für die Variable „Farbe“ an, auch die Farbe der Balken ändern ich will. Das Diagramm ist genau so, wie ich es haben möchte, und wenn es möglich ist, möchte ich die Struktur des Datensatzes nicht ändern, sondern einfach eine Legende hinzufügen und die Farben ändern.

Ich konnte Beispiel nicht finden, das für diese "Prozentsatz" Art Grafiken passt.

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)