R语言如何绘制点颜色不同的散点图 附现有代码问题排查

原代码错误点 #

• 样本量不符：需求为400对观测，但分组变量仅生成200个，长度不匹配
• 核心变量缺失：未生成绘图所需的X1、X2（原代码中的x、y）变量，运行plot会直接报错
• 冗余代码：group_pch对两个分组设置了完全相同的点型，无需单独生成变量，可直接在plot参数中统一指定

修正后可直接运行代码 #

# 生成400个分组标签，组1占比30%
group <- rbinom(400, 1, 0.3)
# 模拟X1、X2观测值，可根据需求调整分布参数，此处给组1添加偏移方便区分分组
x1 <- rnorm(400, mean = 0 + group*1.5, sd = 1)
x2 <- rnorm(400, mean = 0 + group*1, sd = 1)
# 生成分组颜色变量
group_col <- ifelse(group == 1, "red", "green")

# 绘制分组散点图
plot(x1, x2,
     pch = 16, # 统一使用实心圆点
     col = group_col,
     xlab = "X1",
     ylab = "X2",
     main = "400对观测分组散点图")
# 按需添加图例
legend("topleft", 
       legend = c("组0", "组1"),
       col = c("green", "red"),
       pch = 16)

补充说明 #

• 如果不需要模拟数据的组间差异，直接把生成x1、x2时的+ group*偏移值去掉即可
• 代码新增了坐标轴标签、标题和图例，你可以根据自己的需求删除或调整相关参数

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