ggpattern与swimplot：图案对齐及X轴重复值问题

• 修复图表时遇到困难，最初误以为是ggpattern的Bug，经确认并非Bug，而是列重叠问题
• 当数据中图案/值无重复时，X轴与图案能正常对齐；但数据存在重复值（如同一study_id对应多个不同的additional_therapy值）时，图案和X轴值无法正确匹配
• 不知如何协调swimplot和ggpattern两个包，生成图案与X轴值均正确的图表，寻求帮助

示例代码 #

library(swimplot)
library(ggpattern)
library(tidyverse)

df <- data.frame(
  study_id = c(3, 3, 3, 3), primary_therapy = c("Si", "Si", "Si", "Si"),
  additional_therapy = c("NA", "S", "NA", "V+S"), end_yr = c(0.08, 0.39, 3.03, 3.4))


df <- df %>% mutate(additional_therapy = factor(additional_therapy, 
levels = c("S", "V", "V+S", "NA")))

    swimmer_plot(
      df = df, id = "study_id",
      end = "end_yr", name_fill = "primary_therapy",
      width = 0.85, color = NA) + 
      geom_col_pattern(aes(study_id, end_yr,
        pattern = additional_therapy), color=NA,
        fill = NA,
        show.legend=FALSE, width=0.85,
        pattern_spacing = 0.01, pattern_fill="black", pattern_color=NA) +
      scale_pattern_manual(name="Additional Therapy", values = c("S"="stripe","V"="circle","V+S"="crosshatch","NA"="none"), 
breaks=c("S","V","V+S"))

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