R语言条形图调整y轴范围后标签重叠，求助消除x轴下条形及调整ylab间距

问题1：消除x轴下方的条形 #

原因：barplot()默认从y=0开始绘制条形，当设置ylim下限高于0时，条形底部（0到下限的部分）会超出绘图区域，显示在x轴下方。

解决方法：添加xpd = FALSE参数，裁剪掉超出ylim范围的绘图内容：

# 先设置绘图参数调整y轴标签距离（同时解决问题2）
par(mgp = c(3, 2, 0))

barplot(employed$Numbers,
        names.arg = Years,
        ylim = range(pretty(c(5000,15000))),
        xlab = "Year",
        ylab = "Numbers",
        main = "Number of Employment",
        las = 2,
        xpd = FALSE) # 关键参数：裁剪超出ylim的内容

如果希望条形从ylim下限开始绘制，也可以将数据减去下限值，再手动调整y轴刻度标签：

y_min <- 5000
y_max <- 15000

par(mgp = c(3, 2, 0))

# 绘制调整后的数据
bp <- barplot(employed$Numbers - y_min,
              names.arg = Years,
              ylim = c(0, y_max - y_min),
              xlab = "Year",
              ylab = "Numbers",
              main = "Number of Employment",
              las = 2)

# 替换y轴刻度为原始数值
axis(2, at = seq(0, y_max - y_min, 5000), labels = seq(y_min, y_max, 5000))

问题2：增加y轴标签与y轴的距离 #

原因：默认情况下y轴标签与轴的距离较近，可通过调整绘图参数或手动添加标签增大间距。

解决方法：

• 使用par(mgp = c(3, 2, 0))：mgp的第二个值控制标签与轴的距离，默认是1，调大到2（或更大）即可增加间距。
• 或者，不设置barplot的ylab，改用title()函数手动添加标签并指定line参数：

barplot(employed$Numbers,
        names.arg = Years,
        ylim = range(pretty(c(5000,15000))),
        xlab = "Year",
        main = "Number of Employment",
        las = 2,
        xpd = FALSE)

# 手动添加y轴标签，line=2表示距离轴2行的位置
title(ylab = "Numbers", line = 2)

完整可运行代码示例 #

# 模拟完整数据集（2007-2021）
employed <- data.frame(
  Year = 2007:2021,
  Numbers = c(10538.1, 10659.6, 10897.3, 11899.5, 12351.5, 12820.5,
              13280.9, 13774.3, 14233.7, 14678.9, 15042.8, 15349.0,
              15640.7, 15925.9, 16211.3)
)
Years <- seq(2007,2021,1)

# 应用解决方案
par(mgp = c(3, 2, 0)) # 调整y轴标签距离
barplot(employed$Numbers,
        names.arg = Years,
        ylim = range(pretty(c(5000,15000))),
        xlab = "Year",
        ylab = "Numbers",
        main = "Number of Employment",
        las = 2,
        xpd = FALSE) # 裁剪x轴下方的条形

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