R语言ggalluvial包绘制alluvial plot时如何设置地层间距

视觉分隔方案（无需修改原始数据） #

针对地层完全相邻无法区分的问题，不需要改动原始数据集，通过几何对象参数即可实现清晰分隔：

• 移除全局ggplot()中无差别设置的黑色描边，避免冲积带和地层边界互相覆盖。
• 为geom_stratum()添加白色粗描边，模拟相邻地层之间的物理间隙，让不同响应值的块形成明确边界。
• 为geom_flow()设置合适的透明度，避免半透明的冲积带遮挡地层的分隔边界。

对应可运行代码：

library(tidyverse)
library(ggalluvial)

ggplot(data, aes(x = analysis, stratum = response, alluvium = track, y = freq, fill = response)) +
    geom_flow(stat = "alluvium", color = NA, alpha = 0.7) +
    geom_stratum(alpha = .5, color = "white", linewidth = 1) +
    scale_fill_manual(values = c("neg" = "green", "pos" = "red", "inconc" = "grey"))

物理间隙实现方案 #

如果需要在地层之间留出实打实的空白缝隙（而非依靠线条分隔），可通过以下步骤调整：

• 数据预处理阶段对所有freq值做等比例缩放，预留出垂直方向的空隙空间。例如将所有freq乘以0.85，让整体堆叠高度只占纵向绘图区的85%，剩余空间用于分配相邻地层的间隙。
• 调整geom_stratum()的width参数，控制地层块的横向宽度，默认值为1（完全占满相邻时间点的间隔），通常设置为0.8即可让地层块和两侧冲积带留出自然的水平空隙。

调整后代码：

# 等比例缩放频次，预留垂直间隙
data_adjusted <- data %>%
  mutate(freq = freq * 0.85)

ggplot(data_adjusted, aes(x = analysis, stratum = response, alluvium = track, y = freq, fill = response)) +
    geom_flow(stat = "alluvium", color = NA, alpha = 0.7) +
    geom_stratum(alpha = .5, width = 0.8, color = "white", linewidth = 1) +
    scale_fill_manual(values = c("neg" = "green", "pos" = "red", "inconc" = "grey")) +
    # 隐藏因缩放失真的纵轴刻度
    scale_y_continuous(labels = NULL) +
    theme_minimal()

核心可调参数说明 #

• width：geom_stratum()专用参数，控制地层块的x方向宽度，取值范围0-1，数值越小横向空隙越大。
• linewidth：控制地层块边界的线条粗细，数值越大视觉分隔效果越明显。
• alpha：同时适用于地层和冲积带，调整填充透明度，通常设置在0.5-0.8区间可平衡颜色辨识度和边界可见度。

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