XY图中R中的第二个图例答案

【问题标题】：second legend in R in XY plotXY图中R中的第二个图例
【发布时间】：2014-05-17 09:39:35
【问题描述】：

我想在我的 XY 图中创建第二个图例。我制作了一个包含三个不同组的 XYplot。我已经制作了一个图例，但我想制作第二个图例，其中想要显示多个 R 平方值和 P 值。我已经尝试了几件事，但它不起作用。下面你可以看到我在 R 中放了什么。

palette(rainbow(3))

library(lattice)

xyplot(ampli...freq~m.s,groups=pleo.,data=data,type=c("g","p","r"),pch=16,cex=1.1,lwd=2,col=palette(),
xlab="Flowspeed (m/s)",ylab="Amplitude*Frequency",main="Lobster Stephan, amplitude*Frequency against the flowspeed",

key=list(space="right",points=list(pch=16,cex=1.0,col=palette()),
text=list(c("pleopode 2","pleopode 3","pleopode 4")),

legend=list(space="inside",lines=list(lwt=2,col=palette()),
text=list(c("r2= ","R2 = ","R2 =")))))

谁能告诉我怎样才能把它弄成这样？

谢谢！

【问题讨论】：

标签： r lattice

【解决方案1】：

legend 覆盖 auto.key。您应该使用 keey/auto.key 创建第一个图并对其进行更新。

myplot <- xyplot(...)
fun_legend <- function(txt,x,...) grid::textGrob(txt, x=x,...)
update(my_plot, 
           legend = list(inside =list(fun = "fun_legend",
                                      args=list(txt='some text',x=4,rot=90))))

【讨论】：