R语言中如何将x1至x3列变量按列号整合绘制单张Dot plot

问题本质 #

R 基础绘图体系中，每次调用plot()函数默认会清空当前绘图画布、生成独立的新绘图区域，因此连续三次分列调用plot()会得到三张完全分离的图像。只要调整绘图逻辑，在首次初始化画布后，将后续列的点位以叠加方式绘制，即可实现所有列在同一张图中展示的效果。

具体实现代码 #

# 整合三个变量的所有取值，确定y轴的全量范围
all_data <- c(mydf$x1, mydf$x2, mydf$x3)

# 第一步：初始化画布，绘制x1的点位（横轴固定位置=1）
plot(
  x = rep(1, nrow(mydf)),
  y = mydf$x1,
  xlim = c(0.7, 3.3),    # x轴左右预留边距，避免点贴边
  ylim = range(all_data),# y轴覆盖所有三个变量的取值范围
  xaxt = "n",            # 暂时隐藏默认x轴刻度，后续手动自定义
  xlab = "变量",
  ylab = "变量取值",
  pch = 16,              # 统一设置点的形状
  col = "#333333"
)

# 第二步：在现有画布上叠加绘制x2的点位（横轴固定位置=2）
points(
  x = rep(2, nrow(mydf)),
  y = mydf$x2,
  pch = 16,
  col = "#E64B35"
)

# 第三步：在现有画布上叠加绘制x3的点位（横轴固定位置=3）
points(
  x = rep(3, nrow(mydf)),
  y = mydf$x3,
  pch = 16,
  col = "#4DBBD5"
)

# 手动设置x轴刻度，对应三个变量名
axis(side = 1, at = c(1, 2, 3), labels = c("x1", "x2", "x3"))

如果觉得逐次叠加points()流程繁琐，也可以先整理成统一的长格式数据，一次性完成所有点的绘制，效果完全一致：

# 整理统一绘图用的数据
plot_data <- data.frame(
  x_pos = rep(1:3, each = nrow(mydf)),
  y_val = c(mydf$x1, mydf$x2, mydf$x3)
)
# 单次调用plot完成所有点的绘制
plot(y_val ~ x_pos, data = plot_data, xaxt = "n", xlab = "变量", ylab = "变量取值")
axis(1, at = 1:3, labels = c("x1","x2","x3"))

关键调整说明 #

• 核心逻辑是避免多次调用plot()：每次调用plot()都会触发新画布初始化，只要在首次画布生成后用叠加方式绘制，或一次性整合所有数据绘图，就不会出现多图分离的问题
• 提前设置xlim和ylim参数，确保三个列的所有点都能被当前画布完整容纳，不会出现部分点被裁切的情况
• 可以通过col、pch参数为不同列的点设置差异化的颜色、形状，提升图表可读性

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