ggplot2 geom_segment图中移除x轴-1000ms刻度方法

云原生阿岚

2026-8-12

问题描述

我用geom_segment绘制时序图时，要求x轴每1000ms显示一个刻度标记。当前代码运行正常，但x轴出现了值为-1000的负刻度，请问如何移除这个刻度？

当前代码如下：

library(dplyr)
library(stringr)
library(ggplot2)
df_3 %>%
  
  # 转换Mutual_Gaze为英文标签
  mutate(Mutual_Gaze = ifelse(Mutual_Gaze == "rechts_Mitte", "Center_Right",
                              ifelse(Mutual_Gaze == "rechts_links", "Left_Right", 
                                     "Center_Left"))) %>%
  
  # 给Mutual_Gaze添加Subject后缀
  mutate(Mutual_Gaze = str_c(Mutual_Gaze,"_R", str_extract(Subject, "\\d$"))) %>%
  
  # 分组
  group_by(Mutual_Gaze) %>%
  
  # 绘图
  ggplot(aes(x = Starttime_ms, xend = Endtime_ms,
             y = Mutual_Gaze, yend = Mutual_Gaze,
             color = Subject
  )) +
  geom_segment(size = 6) +
  labs(title = paste0(
    #"Annotation Density Plot\n", 
    df_3$File, " (Study 1)"),
       x ="Timeline"
  ) +

  # 设置x轴刻度数量
  scale_x_continuous(n.breaks = 35,
                     # limits ???                              # <--- 
                     limits = c(0, max(df_3$Endtime_ms))) +
  # 旋转x轴标签
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  #scale_y_continuous(n.breaks = 10)
  #theme_minimal()  +
  theme(legend.position = "none")

数据：

df_3 <- structure(list(Subject = c("Rater_1", "Rater_1", "Rater_1", "Rater_1", 
"Rater_1", "Rater_1", "Rater_1", "Rater_1", "Rater_1", "Rater_1", 
"Rater_1", "Rater_1", "Rater_1", "Rater_1", "Rater_1", "Rater_1", 
"Rater_1", "Rater_1", "Rater_1", "Rater_1", "Rater_2", "Rater_2", 
"Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", 
"Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", 
"Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_2", 
"Rater_2", "Rater_2", "Rater_2", "Rater_2", "Rater_3", "Rater_3", 
"Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", 
"Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", 
"Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", "Rater_3", 
"Rater_3", "Rater_4", "Rater_4", "Rater_4", "Rater_4", "Rater_4", 
"Rater_4", "Rater_4", "Rater_4", "Rater_4", "Rater_4", "Rater_4", 
"Rater_4", "Rater_4", "Rater_4", "Rater_4", "Rater_4", "Rater_4", 
"Rater_4", "Rater_4", "Rater_4", "Rater_5", "Rater_5", "Rater_5", 
"Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5", 
"Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5", 
"Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5", "Rater_5"
), Mutual_Gaze = c("rechts_Mitte", "rechts_links", "Mitte_links", 
"Mitte_links", "rechts_links", "Mitte_links", "rechts_links", 
"Mitte_links", "rechts_links", "rechts_links", "Mitte_links", 
"Mitte_links", "Mitte_links", "rechts_links", "Mitte_links", 
"Mitte_links", "rechts_links", "rechts_links", "rechts_links", 
"rechts_links", "rechts_Mitte", "rechts_links", "Mitte_links", 
"rechts_links", "Mitte_links", "rechts_links", "Mitte_links", 
"rechts_links", "rechts_links", "rechts_Mitte", "Mitte_links", 
"Mitte_links", "Mitte_links", "Mitte_links", "rechts_links", 
"rechts_links", "rechts_links", "rechts_links", "Mitte_links", 
"Mitte_links", "rechts_links", "rechts_links", "rechts_links", 
"rechts_links", "rechts_Mitte", "rechts_links", "Mitte_links", 
"rechts_links", "Mitte_links", "rechts_links", "Mitte_links", 
"rechts_links", "rechts_links", "Mitte_links", "Mitte_links", 
"Mitte_links", "rechts_links", "rechts_links", "rechts_links", 
"rechts_links", "Mitte_links", "Mitte_links", "rechts_links", 
"rechts_links", "rechts_links", "rechts_Mitte", "Mitte_links", 
"rechts_links", "Mitte_links", "rechts_links", "Mitte_links", 
"rechts_links", "rechts_links", "Mitte_links", "Mitte_links", 
"Mitte_links", "rechts_links", "rechts_links", "rechts_links", 
"Mitte_links", "Mitte_links", "rechts_links", "rechts_links", 
"rechts_links", "rechts_links", "rechts_Mitte", "rechts_Mitte", 
"rechts_links", "Mitte_links", "rechts_links", "Mitte_links", 
"rechts_links", "Mitte_links", "rechts_links", "rechts_links", 
"rechts_links", "Mitte_links", "Mitte_links", "Mitte_links", 
"rechts_links", "Mitte_links", "Mitte_links", "rechts_links", 
"rechts_links", "rechts_links", "rechts_links"), Starttime_ms = c(500, 
1520, 2313, 3139, 3767, 7354, 8993, 9566, 10702, 13180, 14144, 
17447, 19121, 19766, 24721, 25436, 26522, 30597, 31952, 34187, 
350, 1490, 2210, 3710, 7300, 8920, 9500, 10670, 13170, 13880, 
14120, 17400, 18120, 19080, 19610, 19790, 21465, 21650, 24610, 
25360, 26480, 30620, 31930, 34160, 550, 1521, 2256, 3717, 7362, 
8951, 9561, 10702, 13174, 14139, 17326, 19111, 19816, 21288, 
21447, 21634, 24564, 25349, 26505, 30610, 34194, 570, 2355, 3800, 
7423, 8999, 9614, 10799, 13352, 14244, 17526, 19110, 19953, 21269, 
21444, 24735, 25403, 26501, 30607, 31960, 34456, 7, 665, 1520, 
2316, 3705, 7335, 8958, 9631, 10728, 11325, 13179, 14139, 17492, 
19176, 19636, 24645, 25415, 30634, 30653, 31954, 34204), Endtime_ms = c(1350, 
1620, 2958, 3534, 4255, 8581, 9269, 10287, 11377, 13710, 14874, 
17843, 19418, 23861, 25029, 26136, 26627, 31289, 33115, 34690, 
1360, 1630, 3500, 4260, 8570, 9280, 10280, 11380, 13720, 13930, 
14880, 17770, 18190, 19400, 19660, 21350, 21565, 23870, 25000, 
26130, 26590, 31280, 33120, 34690, 1334, 1630, 3491, 4256, 8578, 
9272, 10318, 11372, 13717, 14847, 18134, 19411, 21221, 21344, 
21534, 23969, 25016, 26126, 26591, 33154, 34690, 1255, 3466, 
4191, 8533, 9239, 10276, 11360, 13683, 14814, 18119, 19414, 21228, 
21343, 23866, 25030, 26128, 26586, 31283, 33160, 34684, 665, 
1324, 1608, 3487, 4225, 8567, 9271, 10287, 11325, 11394, 13697, 
14845, 17738, 19396, 23900, 25030, 26072, 30653, 31250, 33119, 
34641), File = c("Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A", "Triad A", "Triad A", 
"Triad A", "Triad A", "Triad A", "Triad A"
)), class = "data.frame", row.names = c(NA, -106L))

解决方案

出现负刻度的原因是：用n.breaks指定刻度数量时，ggplot的自动刻度生成逻辑会为了凑够数量或对齐间隔，生成超出设定范围的刻度。结合你每1000ms一个刻度的需求，手动指定刻度序列是最可靠的解决方式。

修改步骤

先计算x轴的最大时间值，生成从0开始、步长为1000的刻度序列
替换scale_x_continuous中的n.breaks参数，改用breaks手动传入刻度序列，同时保留limits确保轴范围正确

修改后的完整代码

library(dplyr)
library(stringr)
library(ggplot2)

# 生成x轴刻度：从0到最大结束时间，步长1000
x_breaks <- seq(0, max(df_3$Endtime_ms), by = 1000)

df_3 %>%
  mutate(Mutual_Gaze = ifelse(Mutual_Gaze == "rechts_Mitte", "Center_Right",
                              ifelse(Mutual_Gaze == "rechts_links", "Left_Right", 
                                     "Center_Left"))) %>%
  mutate(Mutual_Gaze = str_c(Mutual_Gaze,"_R", str_extract(Subject, "\\d$"))) %>%
  group_by(Mutual_Gaze) %>%
  ggplot(aes(x = Starttime_ms, xend = Endtime_ms,
             y = Mutual_Gaze, yend = Mutual_Gaze,
             color = Subject
  )) +
  geom_segment(size = 6) +
  labs(title = paste0(df_3$File, " (Study 1)"),
       x ="Timeline"
  ) +
  # 手动指定刻度，同时限制x轴范围
  scale_x_continuous(breaks = x_breaks,
                     limits = c(0, max(df_3$Endtime_ms))) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(legend.position = "none")

可选优化

如果希望最大刻度是1000的整数倍，避免出现非整千的末尾刻度，可以用ceiling调整：

max_time <- max(df

ggplot2 geom_segment图中移除x轴-1000ms刻度方法

修改步骤 #

修改后的完整代码 #

可选优化 #

修改步骤

修改后的完整代码

可选优化