爲繪圖添加額外的圖例

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

這會生成包含我數據框的名字一個不錯的傳奇。 但是是否可以放入extralegend，其中包含從數據生成的一些額外信息。

在標準的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))) 

我改變了apply語句來處理熔化的數據。

我不知道ggplot解決方案，但我很樂意看到一個。