3

我对 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/

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

这是我已经拥有的：

西格玛 <- c(1,2,3)

rp <- 向量（'表达式'，3）

rp[1] <- 替换（表达式（粘贴（sigma == Value1,"% ")），列表（Value1 = sigma[1])）[2]

rp[2] <- 替换（表达式（粘贴（sigma == Value1,"% ")），列表（Value1 = sigma[2])）[2]

rp[3] <- 替换（表达式（粘贴（sigma == Value1,"% ")），列表（Value1 = sigma[3])）[2]

情节（0）；图例（x =“顶部”，图例=rp）

现在，我对表达式（粘贴（））不是很精通。我想用附加信息扩展每个条目，以便我可以包含另一个变量。例如，

mu <- c(4,5,6)

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

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

如何修改上面的表达式（粘贴（））组合来实现这一点？

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

谢谢你的帮助。

马齐尔

4

1 回答 1

2

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

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)

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

于 2013-08-09T20:11:08.723 回答