r - 为绘图添加额外的图例

Question

嗨，我可以在 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)))

谢谢

Answer 1

这似乎对我有用。

    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)))

我更改了应用语句以处理熔融数据。

我不知道 ggplot 解决方案，但我很想看到一个。