R语言水平条形图：将轴标签置于条形旁的对齐问题求助

问题分析 #

你遇到的两个核心问题：

• y轴长标签因空间不足被截断，调整画布无效
• 使用text()添加条形旁标签时，因y坐标取值错误导致对齐偏差

方案1：修复条形旁标签的对齐问题 #

原代码中text()的y参数使用1:length(alternatives)是错误的，因为barplot()会返回每个条形的中心y轴坐标（而非简单的序列值），需将该返回值存储并用于定位文本。

修改后的完整代码：

rel_freq <- function(x) {
  (x/sum(x))*100
}

alternatives <- c("District heating"= 13,"Heat pump"= 10,"Solar thermal collector"= 6, "Pellet stove"= 6,
                  "Wood stove"= 4, "Geothermal" = 3, "Thermal energy storage" = 2, "Sustainable gas boiler" = 2,
                  "Biogas boiler" = 1, "Electric boiler" = 1, "Wood fireplace" = 1)

# 存储barplot返回的条形中心y坐标
bar_pos <- barplot(rel_freq(alternatives), xlab="Relative frequency (%)",
        col = c("coral2"), border=NA, horiz = TRUE, las = 1, beside = TRUE, xlim = c(0,29),
        names.arg = FALSE) # 隐藏默认y轴标签

# 用bar_pos作为y坐标，确保文本与条形对齐
text(x = rel_freq(alternatives), y = bar_pos, 
     labels = names(alternatives), pos = 4, cex = 0.7)

box(col="black")

方案2：直接解决y轴标签截断问题 #

如果希望保留y轴标签而非移至条形旁，可通过调整绘图边距为长标签预留空间，无需额外添加文本。

修改后的完整代码：

rel_freq <- function(x) {
  (x/sum(x))*100
}

alternatives <- c("District heating"= 13,"Heat pump"= 10,"Solar thermal collector"= 6, "Pellet stove"= 6,
                  "Wood stove"= 4, "Geothermal" = 3, "Thermal energy storage" = 2, "Sustainable gas boiler" = 2,
                  "Biogas boiler" = 1, "Electric boiler" = 1, "Wood fireplace" = 1)

# 调整绘图边距：mar=c(下,左,上,右)，增大左边距容纳长标签
par(mar = c(4, 12, 2, 2))

barplot(rel_freq(alternatives), xlab="Relative frequency (%)",
        col = c("coral2"), border=NA, horiz = TRUE, las = 1, beside = TRUE, xlim = c(0,29),
        names.arg = names(alternatives))

box(col="black")

关键说明 #

• par(mar = c(4,12,2,2))：将左侧边距从默认的5.1调整为12，为长标签提供足够显示空间
• las=1：强制y轴标签水平显示，避免垂直排列导致的截断

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