如何在Base R绘图中仅为特定刻度添加标签？

没问题，我明白你想要的效果：图表x轴有10个完整的刻度线，但只给第一个和最后一个刻度添加文字标签，中间的刻度只保留线条。

你的初始思路是对的，但原代码里的axis()参数设置会只生成两个刻度，没法实现10个刻度的需求。这里给你调整后的完整代码：

# 先绘制基础散点图，通过xaxt="n"关闭默认的x轴
plot(1:10, xaxt = "n", xlab = 'Some Letters')

# 自定义x轴：设置10个刻度位置，仅首尾添加标签，中间留空
axis(
  side = 1,  # 指定在底部（1代表底部）绘制轴
  at = 1:10, # 设置10个刻度的位置，从1到10
  labels = c(letters[1], rep("", 8), letters[2]) # 第一个标签是"a"，中间8个空，最后一个是"b"
)

代码解释： #

• plot()里的xaxt = "n"是关键，它会禁用R自动生成的默认x轴，这样我们就能完全自定义轴的样式。
• axis()函数中：
  • side=1指定在图表底部绘制x轴；
  • at=1:10定义了10个刻度的具体位置，确保x轴有完整的10个刻度线；
  • labels参数通过c(letters[1], rep("", 8), letters[2])实现了仅首尾显示标签，中间用空字符串占位，这样就只会显示刻度线而没有文字。

如果你想让刻度线的样式更统一，还可以添加tck参数调整刻度线长度（比如tck=-0.02让内外刻度一致），示例：

axis(1, at=1:10, labels=c("a", rep("",8),"b"), tck=-0.02)

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