堆叠的geom_bar（）：宽度可变的条之间保持相等的间隙

Question

我的样本数据和图表：

library(data.table)
library(ggplot2)

dt2 <- fread('
risk group counts
low  A     178
High A     1
low  B     4
High B     100
low  C     45
High C     83
low  D     50
High D     2
             ')
# ggplot(dt2, aes(x=group,y=counts,fill=risk)) + geom_bar(stat='identity')

dt2[,rel1:=counts/sum(counts),by=group]
# ggplot(dt2, aes(x=group,y=rel1,fill=risk)) + geom_bar(stat='identity')

dt2[,grpSize:=sum(counts),by=group]
ggplot(dt2, aes(x=group,y=rel1,fill=risk,width = grpSize/200)) + geom_bar(stat='identity')

如我所愿，条形的宽度与组的大小成正比，每个子组的高度（低/高）与该子组的大小成正比。但是更改width会导致条形之间的间距发生变化-如何避免这种情况并保持条形之间的恒定距离？

Answer 1

您可以使用facet_grid并将各个构面设置为左右两侧没有空格

graphics.off()
ggplot(dt2, aes(x=group,y=rel1,fill=risk,width = grpSize/200)) +
    geom_bar(stat='identity') +
    scale_x_discrete(expand = c(0, 0)) +
    facet_grid(~group, scales = "free", space = "free")