R:删除X轴上未绘制的名称的方法(保留已绘制的名称)？

# 获取X轴标签
x_labels <- axis(side = 1)  # 假设X轴位于底部（side = 1）

# 判断每个标签是否在图表中被绘制
visible_labels <- c()
for (label in x_labels) {
  if (label >= par("usr")[1] && label <= par("usr")[2]) {
    visible_labels <- c(visible_labels, label)
  }
}

# 删除未绘制的标签
invisible_labels <- setdiff(x_labels, visible_labels)
text(invisible_labels, 0, labels = "", xpd = TRUE)  # xpd = TRUE确保文本可以超出绘图区域

# 绘制图表
# ...