如何为堆叠的100％条形图添加链接线

Question

我想为堆叠的100％条形图添加链接线。如下图所示。

这是我的ggplot2代码的一部分。但是我不知道如何制作数据并使用geom_line（）/ geom_abline（）/ geom_hline添加链接行。

Array ( [custom_css_styles] => disable 
[custom_css_textarea] => a{color:hotpink;} )

感谢您的提示。 我快完成了。

这是我的代码供参考。

  pctdata <- mtcars  %>% 
  group_by(am) %>% 
  count(cyl) %>% 
  mutate(ratio=n/sum(n))

ggplot(pctdata, aes(x = as.factor(am),  y=ratio, fill = as.factor(cyl)))+
    geom_bar(position="fill", stat = "identity", width = 0.5) +
        geom_text(aes(y=ratio,label=scales::percent(ratio)), position = position_fill(vjust=0.5),color="white") + scale_y_continuous(labels = scales::percent_format())+ 
  coord_flip() + 
  theme_classic()

See the result