Я новичок в R, поэтому, пожалуйста, простите мое невежество. Я сделал псевдонаучный барплот, в котором я нарисовал 4 набора баров друг на друга, используя geom_bar. Существует 4 категории статуса здоровья (живые, мертвые, инфицированные и дерновые) для трех видов дубов (QUAG, QUKE, QUCH).
Мой код выглядит следующим образом:
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
Теперь я хочу создать легенду, которая показывает, какой оттенок серого относится к статусу дерева, т.е. "gray65" - это "мертвые деревья" и т.д. Я пробовал последний час и не могу получить его работа.