R语言点图如何将不同行的男女均值绘制在同一横线并自定义点颜色

默认直接对示例数据集运行dotchart(df1$mean, labels = df1$sex)时，函数会自动为每行数据分配独立的纵轴高度，最终呈现男女分属两行的展示效果。要实现两个点在同一水平线上展示、同时自定义点颜色的要求，核心是手动指定所有数据点共用同一个纵轴坐标值，具体操作如下：

• 颜色规则匹配：构建和数据行顺序对应的颜色向量，女性对应红色、男性对应蓝色，直接传入绘图的col参数
• 纵轴位置统一：通过y参数手动指定所有点的纵轴坐标为同一个固定值（如1），取消默认的逐行分高度逻辑
• 冗余元素隐藏：关闭默认的纵轴刻度显示，避免出现多余的刻度标签破坏视觉效果

完整可复现代码 #

# 构建示例数据集
df1 <- data.frame(sex = c("F","M"), mean = c(4.3,4.5))

# 匹配自定义点色规则：F为红色，M为蓝色
point_color_vec <- ifelse(df1$sex == "F", "red", "blue")

# 绘制同水平位置的dotchart
dotchart(
  x = df1$mean,
  y = rep(1, nrow(df1)), # 强制所有点固定在同一纵轴高度
  col = point_color_vec,
  pch = 19, # 实心点样式
  xlim = c(4, 4.6), # 适配数据范围的横轴区间
  yaxt = "n", # 隐藏默认纵轴刻度
  ylab = "", # 移除纵轴标题
  xlab = "群体均值"
)

# 可选：在对应点旁添加性别标注
text(
  x = df1$mean,
  y = rep(1, nrow(df1)),
  labels = df1$sex,
  pos = 3, # 标签显示在点的上方
  cex = 0.8
)

效果说明 #

按照上述代码运行后，两个均值点会完全落在同一水平位置：女性对应的点为红色、男性对应的点为蓝色，不会出现默认的上下分行排布效果。如果需要调整点的大小、标签位置，可以直接修改pch参数、pos参数的取值即可。

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