小编XFr*_*ost的帖子

我正在对一些患有某种疾病的患者进行一项研究，并在 3 个不同的时间点使用顺序量表评估功能状态。我想在这些时间点的堆叠条形图中连接多个组。

我查看了这些主题，但尚未使用这些建议使其发挥作用：

如何将线条放置在堆积条形图的边缘

有没有一种有效的方法可以使用 ggplot2 在堆积条形图中的不同元素之间绘制线条？

在堆积条形图中的不同元素之间绘制线条

请查看我最终希望该图如何从 R（在 PRISM 中生成）中看到三个时间点上这 6 个序数值中每一个的频率的图形表示（顶部组没有序数值为 3、5、6 的患者） ）：

使用 PRISM 的预期图形

数据：

library(tidyverse)

mrs <-tibble(
  Score = c(0,1,2,3,4,5,6),
  pMRS = c(17,  2,   1,  0,  1,  0,   0),
  dMRS = c(2,  3,   2,  6,  4,  2,  2),
  fMRS = c(4,  4,  5,  4,  1,  1,  2)

geom_line这是我到目前为止在使用或遇到问题之前尝试过的代码geom_segment（省略这些行，因为它只是扭曲了当前的数字）

mrs <- mrs %>% mutate(across(-Score,~paste(round(prop.table(.) * 100, 2)))) %>%
   pivot_longer(cols = c("pMRS", "dMRS", "fMRS"), names_to = "timepoint") %>% 
   mutate(Score=as.character(Score),
          value=as.numeric(value)) %>% …