如何绘制X轴为因子类型的带抖动散点图并解决jitter报错

问题原因 #

• jitter()函数仅支持数值型输入，直接传入因子类型会触发类型报错
• 你之前的转换逻辑错误：as.numeric(as.character(因子))会先将因子转为对应水平的字符串，而区域名称字符串无法转为数值，最终生成全量NA，导致绘图异常。因子底层本身存储了对应水平的整数编码，直接用as.numeric(因子)即可得到对应数值。

解决方法 #

方法1：使用R基础绘图系统实现 #

先对因子编码后的数值添加抖动，再手动替换X轴刻度为区域名称：

# 生成带抖动的X轴数值
x_jitter <- jitter(as.numeric(d$`WHO region`))
# 绘制散点图，关闭默认X轴输出
plot(x_jitter, d$Numeric, xaxt = "n", xlab = "WHO region", ylab = "数值")
# 手动添加X轴刻度，标签为因子的原有水平
axis(side = 1, at = 1:nlevels(d$`WHO region`), labels = levels(d$`WHO region`))

方法2：使用ggplot2实现（更简便） #

ggplot2的geom_jitter原生支持因子型X轴，无需手动处理类型转换和刻度替换：

library(ggplot2)

ggplot(d, aes(x = `WHO region`, y = Numeric)) +
  geom_jitter(width = 0.2) + # width参数控制横向抖动幅度，避免点过度分散
  labs(x = "WHO区域", y = "数值") +
  # 可选配置：X轴标签倾斜45度，避免名称过长重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

运行上述代码即可得到你需要的分类X轴带抖动散点图效果。

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