如何将lollipop chart（棒棒糖图）中文本左对齐并置于线条上方？

你需要将问题文本放在棒棒糖线条的上方（翻转图表后的右侧），当前代码的geom_text锚定在数据点上，无法满足需求。可通过以下修改实现：

修改后的完整代码 #

library(ggplot2)
library(dplyr)

temp <- data.frame(
  "question" = c("Better meeting planning, i.e. organized with sufficient notice",
                 "Clearer communication of meeting objectives and agenda",
                 "Debriefing contributors who did not attend the meeting",
                 "Having the right participants",
                 "Meeting Frequency Meeting Duration",
                 "Meetings starting and ending on time",
                 "Respect during meetings (behavior and tone of leaders)",
                 "Sticking to the meeting agenda",
                 "Taking decisions and clearly defining a call to action"),
  "n" = c(45, 51, 30, 27, 22, 34, 34, 22, 37), 
  "per" = c(0.15, 0.17, 0.1, 0.09, 0.07, 0.11, 0.11, 0.07, 0.12)
)

# 提前排序并设置因子水平，避免重复reorder
temp <- temp %>% 
  arrange(per) %>% 
  mutate(question = factor(question, levels = question))

ggplot(temp, aes(x = question, y = per)) +
  geom_segment(aes(xend = question, y = 0, yend = per), color = "#F7C52A") +
  geom_point(color = "#F7C52A", size = 4, alpha = 1) +
  # 将文本放在所有线条的右侧（上方），左对齐
  geom_text(aes(y = max(per) + 0.02, label = question),
            size = 3, hjust = 0, vjust = 0.5, color = "black") +
  theme_minimal() +
  theme(
    legend.position = "none", 
    axis.text.x = element_blank(), 
    panel.grid = element_blank(), 
    axis.text.y = element_blank(),
    axis.ticks = element_blank()
  ) +
  labs(x = "", y = "", fill = "") +
  coord_flip()

关键改动说明 #

1. 提前处理数据排序：用dplyr将数据按per排序，并把question转为因子固定水平顺序，避免在ggplot中重复使用reorder，代码更简洁。
2. 调整文本位置：
   • 因为使用了coord_flip，原y轴转为x轴方向，设置y = max(per) + 0.02让文本位于所有棒棒糖线条的末端右侧（视觉上的上方）。
   • hjust = 0实现文本左对齐，确保文本从线条末端开始向右排列，而非锚定在数据点上。
   • vjust = 0.5让文本垂直居中对齐线条，视觉更协调。
3. 修正theme参数：将legend.position = "n"改为"none"，这是ggplot的正确参数值。

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