如何在R绘图中添加自定义刻度及对应标签并差异化设置

要在保留默认坐标轴刻度的同时，添加样式差异化的自定义刻度及标签，可通过grid包的图形对象结合ggplot2的注释功能实现，具体代码和说明如下：

library(ggplot2)
library(grid)

# 基础数据与自定义参数
x <- c(1,2,3,4,5,6,7)
y <- c(1,2,3,4,5,6,7)
custom_x <- 3.27
custom_y <- 3.33
color_custom <- "turquoise4"

ggplot() +
  geom_line(aes(x, y)) +
  geom_point(aes(x=custom_x, y=custom_y), size=7, col=color_custom) +
  
  # 添加X轴自定义刻度线（更粗，匹配核心点颜色）
  annotation_custom(
    grob = linesGrob(gp = gpar(col=color_custom, lwd=2)),
    xmin = custom_x, xmax = custom_x,
    ymin = 0, ymax = 0.2  # 刻度线长度，可根据数据范围调整
  ) +
  
  # 添加X轴自定义标签（更大字号，匹配核心点颜色）
  annotate(
    "text", x=custom_x, y=-0.4,
    label=custom_x, color=color_custom, size=5
  ) +
  
  # 添加Y轴自定义刻度线
  annotation_custom(
    grob = linesGrob(gp = gpar(col=color_custom, lwd=2)),
    ymin = custom_y, ymax = custom_y,
    xmin = 0, xmax = 0.2
  ) +
  
  # 添加Y轴自定义标签（垂直显示）
  annotate(
    "text", x=-0.4, y=custom_y,
    label=custom_y, color=color_custom, size=5, angle=90
  ) +
  
  # 关闭坐标裁剪，避免自定义元素被截断
  coord_cartesian(xlim=c(0,7), ylim=c(0,7), clip="off") +
  
  # 调整绘图边距，确保自定义标签完整显示
  theme(plot.margin = margin(10,10,30,30))

关键细节说明： #

• 自定义刻度线：通过linesGrob创建指定样式的线段，再用annotation_custom定位到坐标轴对应位置，lwd参数控制线条粗细，col匹配核心点颜色。
• 自定义标签：用annotate("text")添加独立标签，通过size设置更大字号，angle=90让Y轴标签垂直显示，x/y参数调整标签位置避免与默认刻度重叠。
• 显示优化：coord_cartesian(clip="off")确保自定义元素不会被坐标轴范围截断，plot.margin调整边距防止标签被绘图区域遮挡。

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