Question

目前我有这4个地块：

qqnorm(Adrt,
   main="QQplot for Admiral (Normal)",
   cex.main=2,
   cex.lab=1.5)
qqline(Adrt, col="blue", lwd=1)

qqplot(as.numeric(Adrt), rstd(260, mean = Adrt_Tmu, sd = Adrt_Tsd, nu = Adrt_Tnu),
   main="QQplot for Admiral (Student-t)",
   xlab = "Theoretical Quantiles",
   ylab = "Sample Quantiles",
   cex.main=2,
   cex.lab=1.5)
qqline(as.numeric(Adrt),
   distribution = function(p) qstd(p, mean = Adrt_Tmu, sd = Adrt_Tsd, nu = Adrt_Tnu),
   col="red", lwd=1)

qqplot(as.numeric(Adrt), rsstd(260, mean = Adrt_skewTmu, sd = Adrt_skewTsd, nu = Adrt_skewTnu, xi = Adrt_skewTxi),
   main="QQplot for Admiral (Skewed-t)",
   xlab = "Theoretical Quantiles",
   ylab = "Sample Quantiles",
   cex.main=2,
   cex.lab=1.5)
qqline(as.numeric(Adrt),
   distribution = function(p) qsstd(p, mean = Adrt_skewTmu, sd = Adrt_skewTsd, nu = Adrt_skewTnu, xi = Adrt_skewTxi),
   col="green", lwd=1)

qqplot(as.numeric(Adrt), rsnorm(260, mean = Adrt_skewNmu, sd = Adrt_skewNsd, xi = Adrt_skewNxi),
   main="QQplot for Admiral (Skewed-Normal)",
   xlab = "Theoretical Quantiles",
   ylab = "Sample Quantiles",
   cex.main=2,
   cex.lab=1.5)
qqline(as.numeric(Adrt),
   distribution = function(p) qsnorm(p, mean = Adrt_skewNmu, sd = Adrt_skewNsd, xi = Adrt_skewNxi),
   col="orange", lwd=1)

我想在图表的底部放置qqlines的图例，因此它不在其中。我也需要将它们分散到底部。因此，而不是4行1列，1行和4列。

谢谢！

r在四个地块的底部放置一个图例

0 个答案: