如何在R语言的spineplot脊状图中添加计数数据标签

spineplot函数确实没有内置参数直接添加数据标签，我们可以通过手动计算标签位置，再用text()函数实现需求。以下是具体步骤和完整代码：

完整实现代码 #

# 1. 生成交叉表
tab <- table(myData$BP_cluster, myData$DP_dispersion_quartile)

# 2. 绘制基础脊状图
spineplot(tab,
          col = c("green","blue","orange","purple","yellow"),
          xlab = "cluster",
          ylab = "DP_measure_quartile",
          off = 0)

# 3. 计算标签位置
# 计算x轴每个cluster的中心坐标（基于行频率）
row_freq <- rowSums(tab) / sum(tab)
x_pos <- cumsum(row_freq) - row_freq / 2

# 计算每个cluster内，各quartile分段的中心y坐标（基于列条件频率）
y_pos_list <- apply(tab, 1, function(row) {
  col_freq <- row / sum(row)
  cumsum(col_freq) - col_freq / 2
})

# 把y坐标整理为一维向量，和计数顺序对应
y_pos <- as.vector(t(y_pos_list))

# 提取所有单元格的计数值
counts <- as.vector(tab)

# 4. 添加数据标签
text(x = rep(x_pos, each = ncol(tab)), 
     y = y_pos, 
     labels = counts,
     cex = 0.8,  # 调整字体大小
     col = "white")  # 设置标签颜色为白色，增强可读性

代码说明 #

• 先通过table()生成交叉表，所有位置计算都基于这个表；
• x_pos计算每个x轴条形的中心位置，依据各cluster的样本占比；
• y_pos_list按每个cluster单独计算内部各分段的中心y坐标，确保标签落在色块中间；
• 最后用text()把计数值添加到对应位置，可通过cex调整字体大小，col设置标签颜色适配背景。

当前效果图：

目标效果图：

补充说明图：

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