如何在 R 中使用 Par 函数？

在 R 中，par() 函数是用于设置绘图参数的函数之一。它允许用户在绘图过程中动态更改图形设备的参数，如下例所示：

# 绘制 sin 和 cos 函数曲线
x <- seq(-2 * pi, 2 * pi, length.out = 100)
par(mfrow = c(1, 2), mar = c(4, 4, 2, 1), oma = c(0, 0, 2, 0), cex.lab = 1.2)
plot(x, sin(x), type = "l", col = "blue", xlab = "x", ylab = "y", main = "sin(x)")
plot(x, cos(x), type = "l", col = "red", xlab = "x", ylab = "y", main = "cos(x)")

上述代码中，我们使用 par() 函数设置了多个绘图参数：

• mfrow: 多个图形在同一设备内的排列方式
• mar: 图形四个边框的边距
• oma: 图形四个边框的外边距
• cex.lab: 坐标轴标签的字体大小

在实际的数据分析中，我们常常需要通过更改这些参数来调整绘图效果，提高可读性和美观度。下面我们介绍一些常见的参数设置技巧。

参数设置技巧

1. 常规设置

# 改变字体和边框参数
par(cex = 1.2, col = "blue", bg = "white", lty = 3, lwd = 2, # 字体大小、颜色、背景色、线型和宽度
    las = 1, # 坐标轴刻度线方向
    xaxt = "n", # 不显示 x 轴
    yaxt = "n", # 不显示 y 轴
    xlab = "x", # x 轴标签
    ylab = "y", # y 轴标签
    main = "Title", sub = "Sub title", # 主标题和副标题
    mar = c(4, 4, 4, 4), # 设备四个边框的边距
    oma = c(0, 0, 0, 0), # 设备四个边框的外边距
    mfcol = c(2, 2), # 多图排列方式，按列排列
    mfrow = c(1, 2), # 多图排列方式，按行排列
    new = TRUE, # 新建一个设备绘制图形
    ask = FALSE # 设备是否交互式，自行关闭设备
)

2. 高级设置

# 自定义绘图设备
dev.new(width = 6, height = 4) # 新建绘图设备，指定宽度和高度（英寸）

# 设置字体参数
par(ps = 10, family = "Arial", font = 3) # 字体大小、字体种类和字体样式

# 设置颜色参数
par(rgb(0.2, 0.4, 0.6, alpha = 0.5), col.axis = "#FA8072", col.lab = "#00FFFF", col.main = "#FF69B4")
# alpha：透明度
# col.axis：坐标轴颜色
# col.lab：标签颜色
# col.main：标题颜色

# 设置线型和线宽
par(lty = "dashed", lwd = 2)

# 设置层叠参数
par(bg = "white", col = "black", r = 0.01)
# 调整层的透明度，数值越小层叠效果越明显

# 设置绘图范围
par(usr = c(-1, 1, -1, 1))
# usr 表示绘图范围的四个坐标轴刻度值，依次为 x 轴最小值、x 轴最大值、y 轴最小值和 y 轴最大值

# 设置绘图边框
par(bty = "o", lty = "dotted", lwd = 2, col = "gray")

# 设置缩放比例
par(pin = c(3, 3)) # 画布大小
par(din = c(5, 5)) # 设备大小

# 设置坐标轴刻度线和标签
par(tcl = 0.5, mgp = c(2, 0.5, 0), xpd = TRUE)
# tcl：刻度线长度
# mgp：坐标轴标签和刻度线距离
# xpd：是否允许绘制超出设备边界的内容

# 设置点的符号和颜色
par(pch = 19, col = "black")

# 设置错误线
par(lwd = 2, lend = 2, ljoin = 2, lmitre = 10)

# 设置标志和箭头
par(pt.cex = 2, pt.bg = "white", pt.col = "red", arrows = TRUE, col.ar = "blue", length = 0.1)

# 输出到 PDF
pdf("output.pdf")
# 绘图代码
dev.off()

总结

par() 函数是 R 绘图的基础，熟练掌握参数设置技巧有助于提高数据可视化的效果和品质，在数据分析工作中有着重要的作用。