在R中绘图时，图例消失了。

Question

我已经绘制了五个图表和一个图例。图表可以正常工作，但是图例消失了，没有错误提示。 在RStudio中预览的效果如下 当我放大时，图例应该出现的区域是空白的。 我使用以下代码：

opar <- par (no.readonly = TRUE)
par (mfrow = c(3, 2))

library(deSolve)

# Plot A
LotVmod <- function (Time, State, Pars) {
    with(as.list(c(State, Pars)), {
        dx = (b*x) - (b*x*x/K) - (y*(x^k/(x^k+C^k)*(l*x/(1+l*h*x))))
        dy = (y*e*(x^k/(x^k+C^k)*(l*x/(1+l*h*x)))) - (m*y)
        return(list(c(dx, dy)))
    })
}

Pars <- c(b = 1.080, e = 2.200, K = 130.000, k = 20.000, l = 2.000, 
          h = 0.030, C = 2.900, m = 0.050)

State <- c(x = 0.25, y = 2.75)  
Time <- seq(1, 9, by = 1)

out <- as.data.frame(ode(func = LotVmod, y = State, parms = Pars, times = Time))

matplot(out[,-1], type = "l", xlim = c(1, 9), ylim = c(0, 45),  
        xlab = "time", 
        ylab = "population",
        main = "Compartment A")
mtext ( "Coefficient of Variance 4.96", cex = 0.8 )

x <- c(# Validation data)
y <- c(# Validation data)

lines (Time, x,  type="l", lty=1, lwd=2.5, col="black") 
lines (Time, y, type="l", lty=1, lwd=2.5, col="red")

# Legend
plot.new()
legend("center", c(expression (italic ("F. occidentalis")*" observed"), 
                   expression (italic ("M. pygmaeus")*" observed"), 
                   expression (italic ("F. occidentalis")*" simulated"),
                   expression (italic ("M. pygmaeus")*" simulated")),
       lty = c(1, 1, 1, 2), 
       col = c(1, 2, 1, 2), 
       lwd = c(2.5, 2.5, 1, 1),
       box.lwd = 0, bty = "n")

# Plot C to F = same as A

par(opar)

我的输出没有错误。我之前使用过完全相同的代码而没有任何问题，因此我重新启动了R，删除了所有对象，清除了所有图形，并重新启动了RStudio和计算机。

- SachaKip

Answer 1

尝试在您的图例语句中添加 xpd=TRUE。例如：

legend("center", c(expression (italic ("F. occidentalis")*" observed"), 
                   expression (italic ("M. pygmaeus")*" observed"), 
                   expression (italic ("F. occidentalis")*" simulated"),
                   expression (italic ("M. pygmaeus")*" simulated")),
       lty = c(1, 1, 1, 2), 
       col = c(1, 2, 1, 2), 
       lwd = c(2.5, 2.5, 1, 1),
       box.lwd = 0, bty = "n", xpd=TRUE)

默认情况下，图例会被绘图区域截断。这个xpd参数可以使图例绘制在绘图区域之外。有关xpd的更多信息，请参见?par。

- Anders Ellern Bilgrau

---

将其设置为“TRUE”会是一个更好的选择。 - Joris Meys

@JorisMeys 的确是这样。我记错了。现在已经更新了。 - Anders Ellern Bilgrau

Answer 2

这是由于绘图画布的设置以及调整该设备的缩放方式所致。您需要在右上角图的绘图区域中添加图例。绘图区域不是整个设备，而仅限于轴形成的空间内的部分。如果您进行缩放，则该绘图区域也会被缩放。但是，绘图区域周围的边距大小不会改变，因此缩小会使您的绘图区域变得非常小，无法再容纳图例。它被绘图区域周围的边距隐藏了起来。

因此，AEBilgrau是正确的，您需要添加 xpd = TRUE。这将允许图例扩展到绘图区域之外，因此当调整绘图设备大小时，它不会消失在边距后面。

- Joris Meys