您好,我可以在 ggplot 中添加一个额外的图例吗? 喜欢 以下代码
d <- melt(as.matrix(data.frame(y1=1/(1:10),y2=1/(10:1))))
ggplot(d, aes(x=Var1, y=value,fill=Var2)) + geom_bar(stat="identity",position='dodge')
这会生成一个很好的图例,其中包含我的数据框的名称。 但是是否可以放入一个额外的图例,其中包含从数据生成的一些额外信息。
在标准 R 中,我会添加额外的图例,例如
d<-data.frame(y1=1/(1:10),y2=2*1/(10:1))
barplot(t(d),beside=T)
legend("top",paste("sums:",apply(d,2,sum)))
谢谢
最佳答案
这似乎对我有用。
plot.new()
d <- melt(as.matrix(data.frame(y1=1/(1:10),y2=1/(10:1))))
ggplot(d, aes(x=Var1, y=value,fill=Var2)) +
geom_bar(stat="identity",position='dodge')
然后是令人兴奋的事情。
legend('top',paste("sums:",tapply(d$value,d$Var2,sum)))
我更改了 apply 语句以处理熔融数据。
我不知道 ggplot 解决方案,但我很想看到一个。
关于r - 为绘图添加额外的图例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11729431/