R中图例中的对齐

我在R中绘制了一个图，如下所示。除了传说，一切都好。我想席上符号XI和beta，以便人们可以比较不同的参数。目前，我使用以下命令添加图例

install.packages("fExtremes"); library(fExtremes)
install.packages("tikzDevice"); library(tikzDevice)

pgpd.11 <- function(x) pgpd(x, xi=1, beta=1)
pgpd.01 <- function(x) pgpd(x, xi=0, beta=1)
pgpd.n051 <- function(x) pgpd(x, xi=-0.5, beta=1)
pgpd.n11 <- function(x) pgpd(x, xi=-1, beta=1)
pgpd.n21 <- function(x) pgpd(x, xi=-1.2, beta=1)

tikz("GPDCDF.tex", width=4, height=3)
par(mar=c(2, 2, 0.1, 0.1))
plot(seq(0, 5, by=0.01), pgpd.11(seq(0, 5, by=0.01)), type="l", ylim=c(0, 1), xlab="", ylab="C.D.F")
lines(seq(0, 5, by=0.01), pgpd.01(seq(0, 5, by=0.01)), lty=2)
lines(seq(0, 5, by=0.01), pgpd.n051(seq(0, 5, by=0.01)), lty=3)
lines(seq(0, 5, by=0.01), pgpd.n11(seq(0, 5, by=0.01)), lty=4)
lines(seq(0, 5, by=0.01), pgpd.n21(seq(0, 5, by=0.01)), lty=5)
legend("bottomright", c("$\\xi=1, \\beta=1$", "$\\xi=0$, \\beta=1", "$\\xi=-0.5, \\beta=1$", "$\\xi=-1, \\beta=1$", "$\\xi=-1.2, \\beta=1$"), lty=1:5)
dev.off()

install.packages（“fExtremes”）；图书馆（fExtremes）
安装软件包（“tikzDevice”）；图书馆（tikzDevice）
pgpd.11这是第三次，希望是最后一次编辑

 plot(1:10)

legend(6,5, c(expression(paste(xi, " = 1,")), expression(paste(xi, " = 0,")), expression(paste(xi, " = -0.5,")), expression(paste(xi, " = -1,")), expression(paste(xi, " = -2,"))), lty=1:5, bty='n')

legend(7.6,5, c(expression(paste(beta, "=1")), expression(paste(beta, "=1")),expression(paste(beta, "=1")),expression(paste(beta, "=1")),expression(paste(beta, "=1"))), bty='n')

dev.copy(png, 'betaAlign.png');dev.off()


我想我找到了一种不同的方法（如上所示）。两个不同的传说。你觉得怎么样？
字符应该可以工作。我只是用了这里的空格键就可以了。也许我只是不理解这个问题。我也不知道您是如何使用
tex
样式生成符号的，所以我有点嫉妒<代码>绘图（1:10）

图例（“右下角”，c（表达式（粘贴（xi，“=1，”，β，“=1”）），表达式（粘贴（xi，“=0，”，β，”=1”）），表达式（粘贴（xi，“=1，”，β，“=1”）），表达式（粘贴（xi，“=2，”，β，“=1”）），lty=1:5）

我不知道你是怎么得到它的。我仍然无法对齐Beta。查看我的更新。顺便说一下，要获得LaTeX符号，您需要使用package tikzDevice。我编辑了我的答案。这仍然不是最好的回答。我道歉。我想差不多就到了。感谢您提供有关tikzDevice软件包的信息。