我想用特定的线宽(默认 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
选项。如果您知道如何针对多个绘图有效地完成此操作,请回复。
最佳答案
如果我们查看 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")
关于r - 在 par() 函数中设置轴的 lwd,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50157145/