Base R条形图异常：图例覆盖条形、条形超出X轴左侧范围

代码存在的核心问题 #

• 缺失依赖包加载：代码使用了pivot_longer函数（属于tidyr包），但未提前加载tidyr或tidyverse包，直接运行会报错。
• 变量名称与条形重叠：水平条形图（horiz=T）的类别标签默认显示在条形右侧，你的标签文本过长，且未设置自动换行或预留足够边距，导致标签覆盖在条形上。
• 条形超出X轴左侧范围：设置了xlim = c(1,7)，但barplot绘制水平条形时默认从0开始，因此条形在0-1区间的部分会超出X轴左边界，显示异常。

修正后的代码 #

library(tidyr) # 加载pivot_longer依赖的tidyr包

df <- data.frame(
  x1 = 5.1,
  x2 = 5.5,
  x3 = 5.2
)

names(df) <- c('word word word word word',
               'word word',
               'word word word word')

df_long <- df %>% pivot_longer(cols = everything())

barplot(height = df_long$value, 
        names.arg = strwrap(df_long$name, width = 10), # 长标签自动换行
        col = "#69b3a2",
        horiz = T, 
        las = 1,
        xlim = c(0,7), # 将x轴下限设为0，匹配条形起始点
        cex.names = 0.9, # 适当缩小标签字体
        mar = c(4, 8, 2, 2)) # 增大左侧边距，为标签预留空间

关键调整说明 #

• 补充依赖包加载语句，确保pivot_longer能正常运行；
• 用strwrap对长标签按指定宽度换行，避免文本溢出；
• 修改xlim下限为0，让条形完整显示在X轴范围内；
• 调整mar参数增大左侧边距，给换行后的标签足够显示空间；
• 用cex.names缩小标签字体，进一步避免标签与条形重叠。

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