ggplot2：将次要网格线转为水平网格线刻度标记的实现咨询

要实现类似专业stringline软件的效果——把贯穿面板的次要网格线替换成仅在水平主网格线上的短刻度标记，可以通过手动绘制刻度线段的方式实现，具体步骤如下：

1. 准备模拟数据（模拟GTFS Stringline场景） #

library(ggplot2)
library(scales)

# 构造站点、列车、到达时间的模拟数据
set.seed(123)
df <- expand.grid(
  station = paste0("站点 ", 1:5),
  train = paste0("列车 ", 1:3)
)
df$arrival_time <- as.POSIXct("2024-01-01 06:00:00") + 
  sample(0:3600, nrow(df), replace = TRUE)

2. 计算刻度位置 #

先获取x轴（时间）的主刻度和次要刻度位置，用于后续绘制标记：

# 生成x轴主刻度
x_major_breaks <- pretty(df$arrival_time, n = 6)
# 生成主刻度之间的次要刻度（每个主刻度间4个次刻度）
x_minor_breaks <- minor_breaks(x_major_breaks, n = 4)

3. 绘制自定义刻度的Stringline图表 #

核心是隐藏默认网格线，手动绘制主水平网格线和仅在水平线上的次要刻度标记：

# 定义次要刻度的长度（可根据需求调整）
tick_length <- 0.1

# 构造次要刻度的线段数据：每个站点水平线上对应所有次要时间刻度的短竖线
minor_ticks <- expand.grid(
  y = seq_along(unique(df$station)) - tick_length/2,
  yend = seq_along(unique(df$station)) + tick_length/2,
  x = x_minor_breaks,
  xend = x_minor_breaks
)

ggplot(df, aes(x = arrival_time, y = station)) +
  # 绘制列车运行轨迹
  geom_line(aes(group = train), color = "#2c3e50", linewidth = 1) +
  geom_point(color = "#e74c3c", size = 2) +
  # 绘制主水平网格线（对应每个站点）
  geom_hline(yintercept = seq_along(unique(df$station)), 
             color = "#bdc3c7", linewidth = 0.5) +
  # 绘制次要刻度标记（仅在水平网格线上的短竖线）
  geom_segment(data = minor_ticks, aes(x = x, y = y, xend = xend, yend = yend),
               color = "#bdc3c7", linewidth = 0.3) +
  # 隐藏默认的网格线
  theme(
    panel.grid = element_blank(),
    panel.background = element_rect(fill = "white")
  ) +
  # 格式化时间轴
  scale_x_datetime(labels = time_format("%H:%M"), breaks = x_major_breaks) +
  labs(x = "到达时间", y = "站点", title = "GTFS Stringline 自定义刻度示例")

关键调整点 #

• 调整tick_length可以控制次要标记的长短，数值越大标记越长
• 如果你的y轴是连续型（比如里程），只需把seq_along(unique(df$station))替换为对应的连续值即可
• 可以通过修改color参数调整网格线和刻度的颜色，适配不同视觉风格

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