R语言环形柱状图标签错位：如何正确匹配对应数据标签

问题原因 #

你的代码中使用了label_data但未展示其生成逻辑，标签错位的核心原因是**label_data没有与原始数据data保持一致的行顺序/ID关联**，导致标签被错误映射到了不对应的条形上。

修正方案 #

需要基于原始数据data生成匹配的label_data，计算每个条形对应的角度和对齐方式，确保标签与对应国家的数值位置一一对应。完整代码如下：

library(tidyverse)
library(readxl) # 确保加载readxl包，read_xls依赖它

# 读取数据
data <- read_xls("C:/Users/Merry/Downloads/data.xls")
# 添加id列，严格保持原始数据行顺序
data$id <- seq(1, nrow(data))

# 生成匹配的label_data：计算标签所需的角度、对齐方式和位置
label_data <- data %>%
  mutate(
    # 计算每个条形的中心角度（适配coord_polar的逆时针角度规则）
    angle = 90 - 360 * (id - 0.5) / nrow(data),
    # 根据角度动态调整hjust，让标签始终朝向外侧
    hjust = ifelse(angle < -90, 1, 0),
    # 调整角度至0-360范围，避免负数导致显示异常
    angle = ifelse(angle < -90, angle + 180, angle),
    # 把标签放在条形顶部外侧，避免与条形重叠（可根据数值大小调整偏移量）
    label_y = value + 5
  )

# 绘制环形图
p <- ggplot(data, aes(x = as.factor(id), y = value)) +
  geom_col(stat = "identity", fill = alpha("purple", 0.3)) +
  ylim(-100, 120) +
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank(),
    plot.margin = unit(rep(-2, 4), "cm")
  ) +
  coord_polar(start = 0) +
  # 使用匹配的label_data，确保每个标签与对应条形的ID、数值完全对应
  geom_text(
    data = label_data,
    aes(x = as.factor(id), y = label_y, label = Country, angle = angle, hjust = hjust),
    color = "black", fontface = "bold", alpha = 0.6, size = 2.5,
    inherit.aes = FALSE
  )

p

关键修正点 #

• 数据强关联：直接基于原始data生成label_data，保证每一行的国家、数值、ID完全匹配，从根源避免错位。
• 角度与对齐优化：根据条形位置计算精准角度，动态设置hjust让标签始终朝向环形外侧，提升可读性。
• 标签位置调整：将标签偏移至条形顶部外侧，避免与条形本身重叠。

内容的提问来源于stack exchange，提问作者Ana-Maria