r - R 中图例的对齐

Question

我在 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()

请问有没有办法让所有测试版保持一致？谢谢!

Answer 1

这是第三次，也是最后一次编辑。

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

我想我已经找到了一种不同的方法(如上所示)。两种不同的传说。你觉得怎么样？