ggplot2水平条形图数据标签配置异常，寻求解决方法

问题说明 #

读取Excel数据计算权重占比后绘制水平条形图，添加的百分比数据标签出现重叠、位置错误的异常情况。

原代码问题点 #

• 数据查看语句错误：head(data)应改为head(base)，读取的数据框名为base而非data
• 文件路径转义错误：Windows系统路径中的反斜杠未转义，会导致文件读取失败
• 标签位置参数错误：geom_text的hjust=0.5会让标签显示在条形中点，易造成重叠；未考虑标签超出画布的情况
• 百分比计算未处理空值：若weight列存在空值，sum会返回NA导致百分比计算失效

修正后的完整代码 #

library(readxl)
# 修正Windows路径：使用双反斜杠转义特殊字符
base <- read_excel("F:\\Users\\YEFERSON_DP\\Desktop\\Procesamiento\\Embajada 3\\Embajada\\Embajada\\TOM1\\Deliverables\\Output\\Embajada_DP_FINAL.xlsx")

# 查看数据集前几行（修正为正确的数据框名）
head(base)

# 计算权重占比，添加na.rm处理空值
total_weight <- sum(base$weight, na.rm = TRUE)
base$Porcentaje <- (base$weight / total_weight) * 100

library(ggplot2)

# 绘制水平条形图并修正标签位置
ggplot(base, aes(x = Porcentaje, y = reorder(SEL, Porcentaje), label = paste0(round(Porcentaje, 2), "%"))) +
  geom_bar(stat = "identity", fill = "#4A90E2") +
  labs(x = "总占比", y = "SEL") +
  # 将标签放在条形右侧外部，hjust=-0.1调整偏移量
  geom_text(hjust = -0.1, size = 4) +
  # 扩展x轴范围，避免标签超出画布
  xlim(0, max(base$Porcentaje, na.rm = TRUE) * 1.1)

关键修正说明 #

• 路径转义：Windows系统中文件路径需用双反斜杠\\或正斜杠/，否则反斜杠会被识别为转义字符
• 标签位置：hjust=-0.1让标签显示在条形右侧外部，配合xlim扩展x轴，确保标签完全显示；若希望标签在条形内部靠右，可将hjust设为1.1，无需扩展x轴
• 空值处理：sum(..., na.rm=TRUE)避免空值导致的计算错误
• 可读性优化：添加条形填充色，提升图表视觉效果

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