如何创建带单个数据点及对应标签的清晰boxplot？

尝试创建带有单个数据点及对应标签的箱线图时，数据点能正常生成，但标签无法与对应数据点清晰关联：

• 基础R中使用stripchart添加抖动点后，text标签始终沿箱线图中间排列，无法跟随点的抖动位置；
• ggplot2中geom_point和geom_text各自使用随机抖动位置，导致点与标签错位，且标签易重叠，check_overlap=TRUE会直接移除部分标签而非优化位置。

尝试过的代码 #

基础R代码 #

tiff(file="mir.tif", height=800, width=500, units ="px")
boxplot(mirna ~ group, data=mirnas_sub, xlab="Classification", 
        ylab="RPM", main="mirna", boxwex=.7, col="white") #, ylim=c(0, 25000))
stripchart(mirna ~ group, 
           data=mirnas_sub, 
           method="jitter", 
           jitter=0.5, 
           pch=20, 
           col="black", 
           vertical=TRUE, 
           add=TRUE)
with(mirnas_sub, text(group, mirna, labels=dog, pos=4, offset=0.5))
dev.off()

ggplot2代码 #

tiff(file="mir_labels.tif", height=1000, width=600, units="px")
ggplot(mirnas_sub, aes(x=group, y=mirna, color=group)) +
  geom_boxplot() +
  geom_point(position=position_jitter(width=0.2)) +
  geom_text(aes(label=dog), position=position_jitter(width=0.2), vjust=-0.5)
dev.off()

基础R实现：同步点与标签的抖动位置 #

核心思路是提前计算抖动后的x坐标，让点和标签使用同一组x值，确保一一对应：

tiff(file="mir.tif", height=800, width=500, units ="px")
# 绘制箱线图
boxplot(mirna ~ group, data=mirnas_sub, xlab="Classification", 
        ylab="RPM", main="mirna", boxwex=.7, col="white")

# 提取分组的数值化x坐标（group转为因子后的整数）
x_vals <- as.numeric(mirnas_sub$group)
# 生成同步的抖动x值
jitter_x <- jitter(x_vals, amount=0.5)

# 用抖动后的x值绘制点
points(jitter_x, mirnas_sub$mirna, pch=20, col="black")
# 用同一组抖动x值添加标签，可调整pos/offset控制位置
text(jitter_x, mirnas_sub$mirna, labels=mirnas_sub$dog, pos=4, offset=0.3)

dev.off()

ggplot2实现：固定抖动种子或使用标签避让 #

方法1：固定抖动种子，让点与标签使用相同抖动位置 #

通过position_jitter(seed=xxx)固定随机种子，确保点和标签的抖动偏移一致：

tiff(file="mir_labels.tif", height=1000, width=600, units="px")
ggplot(mirnas_sub, aes(x=group, y=mirna, color=group)) +
  geom_boxplot() +
  geom_point(position=position_jitter(width=0.2, seed=123)) +
  geom_text(aes(label=dog), position=position_jitter(width=0.2, seed=123), 
            vjust=-0.8, size=3)
dev.off()

方法2：使用ggrepel包自动避让标签（推荐） #

geom_text_repel会自动调整标签位置，避免重叠，同时始终与对应数据点绑定：

# 首次使用需安装包
# install.packages("ggrepel")

tiff(file="mir_labels.tif", height=1000, width=600, units="px")
library(ggrepel)
ggplot(mirnas_sub, aes(x=group, y=mirna, color=group)) +
  geom_boxplot() +
  geom_point(position=position_jitter(width=0.2)) +
  geom_text_repel(aes(label=dog), 
                  size=3,
                  box.padding=0.3, # 标签与点的间距
                  point.padding=0.2, # 标签与边界的间距
                  show.legend=FALSE) # 不显示标签的图例
dev.off()

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