R语言如何调整绘图坐标轴刻度标签的视觉间距

直接通过捕获默认刻度、自定义生成新刻度序列的方式即可实现，代码示例如下：

par(mfrow=c(1,1))
# 绘制基础散点图，关闭默认x轴输出
plot(x = c(1:4), y = rnorm(4), pch = 16, xaxt = "n")
# 获取R默认生成的x轴刻度值
default_xticks <- axTicks(side = 1)
# 计算原有刻度的间隔（默认生成的刻度为等距，取第一个间隔即可）
origin_gap <- diff(default_xticks)[1]
# 按原间隔的1/2生成新的刻度序列
new_xticks <- seq(from = min(default_xticks), to = max(default_xticks), by = origin_gap / 2)
# 绘制自定义x轴
axis(side = 1, at = new_xticks)

补充说明 #

• 上述代码生成的新刻度会完整保留原有默认刻度值，同时插入中间刻度，相同x轴长度下刻度的视觉间隔自然缩小为原来的1/2
• 如果出现刻度标签重叠，可在axis函数中添加cex.axis参数调整标签字号，示例：axis(side = 1, at = new_xticks, cex.axis = 0.8)

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