如何调整R中水平条形图边距以适配长Y轴标签

Base R 修正方案 #

你之前的代码失效核心原因是ylabs是数据框而非字符向量，导致strwidth无法正确计算标签宽度。修正步骤如下：

1. 提取Y轴标签为字符向量：

ylabs <- NAV3$NowPort  # 直接提取列，而非用select得到的data.frame

2. 计算标签所需的最大宽度（预留额外边距）：

linch <- max(strwidth(ylabs, units = "inch")) + 0.4  # 明确units参数，避免计算歧义

3. 调整绘图边距后绘制：

# 重置绘图参数（可选，避免之前的设置干扰）
par(mai = c(1.02, linch, 0.82, 0.42))  # mai参数顺序：下、左、上、右

barplot(height = NAV3$mean_boat_length, 
        names.arg = NAV3$NowPort,  # 推荐用names.arg参数，替代原生names
        col = "#69b3a2",
        horiz = TRUE, 
        las = 1,  # 强制标签水平显示
        xlab = "平均船长")

若仍有显示问题，可补充调整：

• 用cex.names缩小标签字号：barplot(..., cex.names = 0.8)（字号为原大小的80%）
• 用par(xpd = TRUE)允许标签超出绘图区域显示

ggplot2 简便方案 #

ggplot2默认会自动适配标签宽度，若需微调可通过theme参数调整：

library(ggplot2)

ggplot(NAV3, aes(x = mean_boat_length, y = reorder(NowPort, mean_boat_length))) +
  geom_bar(stat = "identity", fill = "#69b3a2") +
  labs(x = "平均船长", y = "港口名称") +
  theme_minimal() +
  # 按需调整左外边距或标签对齐方式
  theme(
    plot.margin = margin(10, 10, 10, 50, "pt"),  # 上、右、下、左的外边距，单位pt
    axis.text.y = element_text(hjust = 1, margin = margin(r = 10))  # 标签右对齐，增加右侧边距
  )

如果标签过长，可借助stringr包自动换行：

library(stringr)

ggplot(NAV3, aes(x = mean_boat_length, y = reorder(str_wrap(NowPort, 15), mean_boat_length))) +
  geom_bar(stat = "identity", fill = "#69b3a2") +
  labs(x = "平均船长", y = "港口名称") +
  theme_minimal()

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