如何在R中实现带自定义刻度、点样式与标签的一维绘图

需求匹配逻辑 #

• 差异化刻度层级：手动通过axis()函数的tcl参数控制刻度长度，实现三级刻度高度梯度：端点0/10最高、中位数5次之、其余普通整数刻度最短
• 自定义散点样式：逐点调用points()传入对应绘图参数，灵活配置每个点的形状、颜色，避免批量设置的统一性限制
• 文本标签配置：统一通过text()函数在散点上方排布缩写标签，预留足够纵向空间避免文本和坐标轴、点本身重叠
• 关键节点标注：在0、5、10三个位置直接绑定刻度数值标签，无需额外手动加文本元素

完整可运行代码 #

# 初始化画布，关闭默认坐标轴避免样式冲突
par(mar = c(3, 2, 2, 2))
# 绘制基础一维水平轴线，预留纵向空间放置刻度、散点和标签
plot(
  x = c(0, 10), y = c(0, 0),
  type = "l",
  xaxt = "n", yaxt = "n",
  bty = "n",
  xlab = "", ylab = "",
  ylim = c(-0.6, 0.8),
  lwd = 2
)

# 绘制第一级：普通整数短刻度（1/2/3/4/6/7/8/9）
short_ticks <- c(1,2,3,4,6,7,8,9)
axis(
  side = 1, at = short_ticks,
  tcl = -0.15,
  labels = FALSE
)

# 绘制第二级：中位数位置中等高度刻度
axis(
  side = 1, at = 5,
  tcl = -0.3,
  labels = "5",
  cex.axis = 1
)

# 绘制第三级：端点最高刻度
axis(
  side = 1, at = c(0, 10),
  tcl = -0.5,
  labels = c("0", "10"),
  cex.axis = 1.1
)

# 逐点绘制自定义样式散点（统一排布在y=0.2的高度，和数轴平行）
points(x = 2, y = 0.2, pch = 0, cex = 1.5) # 空心方形
points(x = 4, y = 0.2, pch = 19, col = "black", cex = 1.5) # 实心黑圆
points(x = 5, y = 0.2, pch = 19, col = "forestgreen", cex = 1.5) # 实心绿圆
points(x = 6, y = 0.2, pch = 19, col = "black", cex = 1.5) # 实心黑圆
points(x = 8, y = 0.2, pch = 17, col = "black", cex = 1.5) # 实心黑三角

# 在散点上方添加对应缩写标签
text(
  x = c(2,4,5,6,8),
  y = 0.38,
  labels = c("PV", "CP", "专家", "个体1", "个体2"),
  cex = 0.9
)

效果校验说明 #

• 刻度梯度完全符合要求：端点刻度长度0.5 > 中位数刻度长度0.3 > 普通整数刻度长度0.15，视觉层级清晰
• 散点样式逐一匹配要求，无统一覆盖的样式偏差
• 所有关键节点（0/5/10）均直接绑定刻度标签，无遗漏
• 散点和标签预留了足够的纵向空间，不会出现裁切、重叠问题

内容的提问来源于stack exchange，提问作者Guilherme Pires Arbache