小编Sar*_*aas的帖子

我是R的新手,所以请原谅我的无知.我制作了一个伪堆叠的条形图,其中我使用geom_bar在彼此的顶部绘制了4组条形图.三种橡树(QUAG,QUKE,QUCH)有4种健康状况类别(活着,死亡,感染和死亡).

我的代码如下:

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

现在我想制作一个传说,显示哪个灰色阴影与树状态有关,即"灰色65"是"死树"等等.我一直在尝试过去一小时而无法让它工作.