R 绘图()。每个条目有多个变量的图例

Question

我对 R 有点陌生。我在以下两个线程中跟踪并实现了结果:

http://tolstoy.newcastle.edu.au/R/e17/help/12/03/7984.html

http://lukemiller.org/index.php/2012/10/adding-p-values-and-r-squared-values-to-a-plot-using-expression/

第二个链接承认第一个解决方案，尽管以更详细的方式。

这是我已经拥有的:

sigma <- c(1,2,3)

rp <- vector('expression',3)

rp[1] <- substitute(expression(paste(sigma == Value1,"% ")), list(Value1 = sigma[1]))[2]

rp[2] <- substitute(expression(paste(sigma == Value1,"% ")), list(Value1 = sigma[2]))[2]

rp[3] <- substitute(expression(paste(sigma == Value1,"% ")), list(Value1 = sigma[3]))[2]

plot(0);legend(x="topright",legend=rp)

现在，我对表达式(paste())不太了解。我想用附加信息扩展每个条目，以便我可以包含另一个变量。例如，

mu <- c(4,5,6)

我现在想将 mu 添加到第一个图例条目，看起来像

(希腊语)sigma=1%，(希腊语)mu=4%

如何修改上面的表达式(paste())组合来实现此目的？

此外，当我绘制图例时，文本非常“右对齐”。如何确保它位于边界框的中心？

感谢您的帮助。

马齐亚

Answer 1

这是一个不太优雅的解决方案:

sigma <- c(1,2,3)
mu <- c(4,5,6)
rp <- vector('expression',3)
i=1
for (i in 1:length(sigma)){
  jnk=paste("paste(sigma == ", sigma[i],",', ',", "mu == ", mu[i],")")
  rp[i]=parse(text=jnk)  
}
plot(0);legend(x="bottomleft",legend=rp)

文本对齐问题是一个不同的、非常基本的问题，您可以在其他地方找到解决方案。