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

问题描述

我正在重新创建在最近的

解决方案

这需要花些时间来调整条形的宽度和区域的x位置，但实际上是 geom_area(...，position ="; fill)可以带您走很远.或者，您也可以使用 position ="stack" .

 库(ggplot2)set.seed(0)data_bar<-data.frame(stringsAsFactors = F，样本= rep(c("A"，"B")，每个= 10)，百分比=符文(20)，分类单元= rep(1:10，by = 2))ggplot(data_bar，aes(样本，百分比，填充=分类单元，组=分类单元))+geom_col(位置=填充"，宽度= 0.5，颜色=黑色")+geom_area(aes(x = c("A" = 1.25，"B" = 1.75)[样本]))，位置=填充"，颜色=黑色"，alpha = 0.5，outline.type =两者") 

Alternative with stacking:

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")

这篇关于R:将条形图与用匹配的条形颜色填充的线连接起来的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！