如何在R语言单张画布的多个条形图背景添加网格

我懂这个痛点！base R绘图里的图层顺序真的很容易踩坑，你之前用panel.first没效果是因为**barplot()并不支持这个参数**——panel.first是plot()函数的专属参数，barplot()作为独立的绘图函数，根本不会识别它。

要把网格放在条形图背景，核心思路是先画网格，再叠加条形图，利用base绘图“后画的图层覆盖前画的”特性。下面是针对你的需求修改后的完整可运行代码：

# 设置1行2列的绘图布局，同时调整边距避免标签重叠
par(mfrow = c(1, 2), mar = c(4, 4, 1, 1))

# 第一个子图：平均洪水严重程度（Average precipitation）
# 1. 先创建空的绘图区域，定义好坐标轴范围
plot(NA, 
     xlim = c(0, nrow(mean_trend) + 1), # 适配条形图的数量
     ylim = c(0.1, 95), 
     xaxt = "n", yaxt = "n", # 先隐藏坐标轴，后续统一绘制
     xlab = "", ylab = "")
# 2. 绘制网格（此时网格处于最底层）
grid(lwd = 1.5)
# 3. 绘制边框
box(lwd = 1.5)
# 4. 叠加条形图，使用add=TRUE参数将其放在已有画布上
barplot(mean_trend[,2], 
        add = TRUE, 
        names.arg = mean_trend[,1], 
        col = "skyblue", 
        cex.names = 0.6, 
        ylab = "Average precipitation in mm", 
        cex.lab = 0.85, 
        lwd = 1.5)
# 补充绘制y轴，保证轴的粗细和边框一致
axis(2, lwd = 1.5)

# 第二个子图：洪水数量（Average amount of floods）
plot(NA, 
     xlim = c(0, nrow(freq_trend) + 1), 
     ylim = c(2, 4500), 
     xaxt = "n", yaxt = "n", 
     xlab = "", ylab = "")
grid(lwd = 1.5)
box(lwd = 1.5)
barplot(freq_trend[,2], 
        add = TRUE, 
        names.arg = freq_trend[,1], 
        col = "skyblue", 
        cex.names = 0.6, 
        ylab = "Average amount of floods", 
        cex.lab = 0.85, 
        lwd = 1.5)
axis(2, lwd = 1.5)

关键细节说明： #

• 先用plot(NA)搭建空画布，提前锁定坐标轴范围，确保网格能完美适配后续的条形图
• 严格按照「网格→边框→条形图」的顺序绘制，保证图层顺序正确
• 重新调用axis()绘制y轴，是为了让轴的粗细和你设置的边框粗细保持一致（默认barplot的轴粗细可能不匹配）
• par(mar)调整边距，避免年份标签和y轴标签出现重叠

内容的提问来源于stack exchange，提问作者dumei