如何为双横轴ggplot的底部横轴添加v=12.5的刻度与标签？

问题背景 #

现有基于log(v)映射的ggplot双横轴图表，需在底部横轴（显示原始v值）添加v=12.5的刻度和标签。此前尝试annotate时因未指定geom类型报错，仅用geom_segment添加了竖线，但未完成刻度的添加。

解决思路 #

核心是直接修改scale_x_continuous的breaks和labels参数，手动指定包含自定义刻度的位置与对应标签：

• 因为x轴映射的是log(v)，所以v=12.5对应的x轴位置为log(12.5)
• 将该位置与原始数据的刻度位置合并，作为新的刻度点
• 为每个刻度点匹配对应的显示标签，确保自定义位置显示12.5

完整代码 #

require(ggplot2)

# 构建自定义刻度位置：合并原始v的log值与log(12.5)
custom_breaks <- c(log(df_partial_1[10:20,"v"]), log(12.5))
# 构建对应标签：原始v取整，自定义刻度显示12.5
custom_labels <- c(floor(df_partial_1[10:20,"v"]), 12.5)

ggplot(df_partial_1[10:20,], aes(x = log(v), y = log(Tv_partial))) +  
  theme_bw() + 
  xlab("v") + 
  ylab(bquote(lnT[v])) + 
  scale_x_continuous(
    breaks = custom_breaks,
    labels = custom_labels,
    sec.axis=sec_axis(~., name = "ln v")
  ) +
  # 可选：添加v=12.5对应的竖线，自动适配y轴范围
  geom_segment(x = log(12.5), y = min(log(df_partial_1[10:20,c("upper","Tv_partial","lower")])), 
               xend = log(12.5), yend = max(log(df_partial_1[10:20,c("upper","Tv_partial","lower")])),
               linetype = "dashed", color = "red") +
  geom_line(aes(y=log(upper)), linetype="dashed") +  
  geom_line(aes(y=log(Tv_partial))) +
  geom_line(aes(y=log(lower)), linetype="dashed")

关键说明 #

1. 刻度参数修改：custom_breaks定义了所有横轴刻度的实际位置（基于log(v)），custom_labels定义了每个位置显示的文本，这样就能在底部横轴生成包含12.5的标准刻度
2. 竖线适配优化：geom_segment的y轴范围通过数据自动计算，无需手动指定固定值，确保覆盖所有曲线的高度
3. 原错误原因：之前使用annotate报错是因为未指定具体geom类型（比如geom="text"或geom="segment"），且这种方式仅能添加文本/线段，无法生成标准的刻度线，因此修改刻度参数是更规范的解决方案

内容的提问来源于stack exchange，提问作者J.Z.