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

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