如何在R的ggplot龙卷风图中实现标签定位、排序及轴名修改

先给出整合所有修改的完整代码，你可以根据实际数据调整参数：

library(ggplot2)
library(scales)
library(ggrepel)
library(forcats)

# 替换Populacija的类别为你数据中的实际名称（比如"EM"和"HM"）
ggplot(T_Tornado_Total_EM_HM_sort, aes(
  x = fct_reorder(Tipovi_troškova, abs(RSD), .desc = TRUE),
  y = RSD, 
  fill = Populacija
)) + 
  coord_flip() +
  geom_bar(stat = "identity", position = position_dodge(width = 0.8)) +
  scale_y_continuous(labels = human_numbers) +
  # 普通外侧标签版本（取消注释使用）
  geom_text(
    aes(
      label = format(floor(RSD), big.mark = ","),
      hjust = ifelse(Populacija == "HM", -0.1, 1.1)
    ),
    position = position_dodge(width = 0.8),
    size = 3
  ) +
  # 带引导线的标签版本（替换上面的geom_text，取消注释使用）
  # geom_text_repel(
  #   aes(
  #     label = format(floor(RSD), big.mark = ","),
  #     hjust = ifelse(Populacija == "HM", 0, 1)
  #   ),
  #   position = position_dodge(width = 0.8),
  #   direction = "y",
  #   nudge_x = ifelse(Populacija == "HM", 50000, -50000), # 按数据范围调整偏移量
  #   size = 3,
  #   box.padding = 0.3
  # ) +
  labs(
    y = "Tipovi troškova", # 这里输入带空格的y轴名称
    x = "RSD",
    fill = "Populacija"
  )

分问题解释 #

1. 标签分外侧显示+带引导线 #

• 普通外侧标签：通过ifelse根据Populacija类别设置hjust参数：红色条形对应的类别（比如"HM"）用hjust=-0.1让标签靠右外侧，蓝色条形对应的类别（比如"EM"）用hjust=1.1让标签靠左外侧。同时让position_dodge的宽度和geom_bar一致，保证标签与条形对齐。
• 带引导线版本：用ggrepel包的geom_text_repel，通过nudge_x控制标签偏移方向，direction="y"限制引导线沿y轴方向避免交叉。注意要根据你的RSD数值范围调整nudge_x的数值，确保标签落在条形外侧。

2. 按数值降序排列条形 #

• ggplot默认按因子的字母顺序排列，所以需要用forcats包的fct_reorder将Tipovi_troškova转为有序因子：
  • 代码中fct_reorder(Tipovi_troškova, abs(RSD), .desc=TRUE)是按RSD的绝对值降序排列，适合龙卷风图的展示逻辑。
  • 如果需要按某一组的数值排序（比如只按HM的RSD排序），可以改成fct_reorder(Tipovi_troškova, RSD[Populacija == "HM"], .desc=TRUE)。

3. 修改y轴名称为带空格的形式 #

• 不能直接修改aes中的变量名（会导致ggplot找不到数据集列），必须用labs(y="你的带空格名称")来设置轴标签。因为coord_flip翻转了坐标轴，原来的x变量Tipovi_troškova变成了y轴，所以用labs(y=...)修改其名称。

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