Jestem nowicjuszem na R, więc proszę, wybacz mi moją ignorancję. Zrobiłem pseudo-ułożony barplot, w którym narysowałem 4 zestawy słupków jeden na drugim za pomocą geom_bar. Dla trzech gatunków dębów (QUAG, QUKE, QUCH) istnieją 4 kategorie stanu zdrowia (żywe, martwe, zakażone i martwe).

Mój kod jest następujący:

x <- as.data.frame(list(variable=c("QUAG", "QUKE", "QUCH"), alive = c(627,208,109),  infected = c(102,27,0), dead = c(133,112,12), sod.dead=c(49,8,0)))

x.plot = ggplot(x, aes(variable, alive)) + geom_bar(fill="gray85") + 
  geom_bar(aes(variable,dead), fill="gray65") +
  geom_bar(aes(variable, infected), fill="gray38") +
  geom_bar(aes(variable, sod.dead), fill="black")+
  opts(panel.background = theme_rect(fill='gray100'))
x.plot

Teraz chcę stworzyć legendę, która pokazuje, który odcień szarości odnosi się do statusu drzewa, tj. „Gray65” to „martwe drzewa” itp. Próbowałem przez ostatnią godzinę i nie mogę go uruchomić.