R:将条形图与填充有匹配条形颜色的线条连接起来

Question

我正在努力重新创建最近 Economist 中发现的情节的外观文章。有两个由线条连接的条形图，它们之间的空间具有相同的颜色，尽管有点不透明。

我看过这个问题asked但这些例子只有连接条形图的线。这是一些假数据:

set.seed(0)
data_bar <- data.frame(
  stringsAsFactors = F,
  Sample = rep(c("A", "B"), each = 10),
  Percentage = runif(20),
  Taxon = rep(1:10, by = 2)
)

我一直致力于重新设计链接的示例，但没有成功。有什么想法吗？

如果您看不到图表，这里有一个屏幕截图:

Answer 1

这需要一些调整条的宽度和区域的 x 位置，但本质上 geom_area(..., position = "fill") 可以带你走很远。或者，您也可以使用 position = "stack"。

library(ggplot2)

set.seed(0)
data_bar <- data.frame(
  stringsAsFactors = F,
  Sample = rep(c("A", "B"), each = 10),
  Percentage = runif(20),
  Taxon = rep(1:10, by = 2)
)


ggplot(data_bar, aes(Sample, Percentage, fill = Taxon, group = Taxon)) +
  geom_col(position = "fill", width = 0.5, colour = "black") +
  geom_area(aes(x = c("A" = 1.25, "B" = 1.75)[Sample]), 
            position = "fill", colour = "black", alpha = 0.5,
            outline.type = "both")

^{由 reprex package 创建于 2021-02-16 (v1.0.0)}

堆叠的替代方案:

ggplot(data_bar, aes(Sample, Percentage, fill = Taxon, group = Taxon)) +
  geom_col(position = "stack", width = 0.5, colour = "black") +
  geom_area(aes(x = c("A" = 1.25, "B" = 1.75)[Sample]), 
            position = "stack", colour = "black", alpha = 0.5,
            outline.type = "both")