虽然可能有一个包，但实际上可以使用vanilla ggplot2轻松实现这一点。唯一更“高级”的步骤是使用stage来微调行的开始/结束位置。
使用基于mtcars的最小可重复示例：

library(ggplot2)

ggplot(mtcars, aes(y = factor(am), fill = factor(cyl))) +
  geom_bar(position = "fill", width = .6) +
  geom_line(
    aes(
      group = cyl,
      y = stage(factor(am), after_stat = y + ifelse(y == 1, +.3, -.3))
    ),
    stat = "count", position = "fill",
    linetype = "dashed"
  ) +
  scale_x_continuous(
    labels = scales::label_number(scale = 100),
    expand = c(0, 0)
  ) +
  theme_minimal() +
  theme(axis.line = element_line()) +
  coord_cartesian(clip = "off")

字符串
x1c 0d1x的数据