如何将文本标签与geom_segment左侧对齐并保持统一间距

要让所有标签到线段起点的距离一致，核心是让文本右对齐到起点左侧的固定位置，避免用依赖文本长度的相对对齐方式。

修改后的完整代码如下：

library(tidyverse)
data.frame(start = seq(from = 50000, to = 90000, by = 10000),
           end = seq(from = 60000, to = 104000, by = 11000),
           type = c("Tesla","Tesla Extended Range", "EV Volvo",
                    "EV Volvo XC90 7 Passanger","EV BMW")) %>% 
  mutate(type = fct_reorder(type, start, .fun='sum' )) %>% 
  ggplot +
  geom_segment(aes(x = start, y = type, 
                   xend = end, yend = type),
               show.legend = FALSE, alpha = .8) +
  # 核心修改：固定文本x坐标为起点左侧定值，右对齐
  geom_text(aes(x = start - 2000, y = type, label = type),
            vjust = -1, size = 3, hjust = 1, alpha = .8) +
  # 调整x轴左限，确保最长标签能完整显示
  coord_cartesian(xlim =c(35000, NA)) +
  theme(axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank()) 

关键改动说明： #

• 将geom_text的x参数从start改为start - 2000：直接给文本指定一个在起点左侧固定距离的位置（2000是可自定义的间距值）。
• 设置hjust = 1：让文本右对齐到这个固定位置，无论文本长短，它的右边缘都会对齐在start-2000处，和线段起点的间距始终一致。
• 删除原有的hjust=1.4和nudge_x=-1：这两个参数的组合会基于文本自身宽度产生相对偏移，是导致间距不一致的根源。

你可以通过调整start - 2000中的数值，灵活控制标签与线段起点的间距大小。

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