r - 在 par() 函数中设置轴的 lwd

Question

我想用特定的线宽(默认 lwd 的大约 1/5)进行绘图。绘图中的所有行都应具有此 lwd。

我愿意:

par(lwd = 0.2)
plot(1:10, type = "l")

除轴线和刻度的粗细外，结果还可以，这似乎不受 par() 函数的影响。

我知道的唯一选择是分别为每个轴定义 lwd:

par(lwd = 0.2)
plot(1:10, type = "l", axes = F)
axis(1, lwd = 0.2)
axis(2, lwd = 0.2)
box()

但是，这很乏味，我无法想象没有“全局”lwd 选项。如果您知道如何针对多个绘图有效地完成此操作，请回复。

Answer 1

如果我们查看 axis() 函数的形式 - 默认 lwd 指定为 1:

> axis
function (side, at = NULL, labels = TRUE, tick = TRUE, line = NA,
    pos = NA, outer = FALSE, font = NA, lty = "solid", lwd = 1,
    lwd.ticks = lwd, col = NULL, col.ticks = NULL, hadj = NA,
    padj = NA, ...)
{

正如您所注意到的，它们不受此实现中的 par() 设置的影响。

一个简单的解决方案是为 axis() 函数制作一个包装器，并使其默认使用 par() 设置。这可能是这样的:

axislwd <- function(...) axis(lwd=par()$lwd, ...)

par(lwd = 0.2)
plot(1:10, type = "l", axes = F)
axislwd(1)
axislwd(2)
box()

或者，您可以为整个绘图函数编写一个包装器:

plotlwd <- function(...) {
  plot(axes = FALSE, ...)
  axis(1, lwd=par()$lwd)
  axis(2, lwd=par()$lwd)
  box()
}

par(lwd = 0.2)
plotlwd(1:10, type="l")