r - 在 geom_tile ggplot2 中格式化堆叠的 geom_bar 的内部线

Question

这可能与这个问题有关:format-internal-lines-of-a-stacked-geom-bar-ggplot ，但我仍然无法解决它，因为我还是初学者。这个图有很多堆积条，这里只是示例数据。我只想保留外部边框并删除堆叠条中的内部边框。请帮助我:

data.frame(var1=c(rep("A1",4), rep("A2",4), rep("A3", 4), rep("A4", 4), rep("A5", 4), rep("A6", 4)), 
          var2=c(rep("A2",4), rep("A3", 4), rep("A4", 4), rep("A5", 4), rep("A6", 4), rep("A7", 4)), 
          varb=c(rep(c("S", "T", "U", "N"), 6)), value=c(80, 0, 20, 0, 
          20,30,30,20,0,60,40,0,100,0,0,0,0,60,0,40,0,60,0,40))->test

ggplot(test, aes(var2, var1, fill = varb))+ 
  geom_tile(aes(x=var1, y=value, width = 0.9, height=0.7), position = "stack", 
  colour="green")+facet_grid(var2~., space="free",scales="free")+
  scale_fill_manual(values=c("#99d594", "#fc8d59", "#ffffbf", "grey60")) 

Answer 1

基本上您需要分别添加两个形状，一个没有颜色的 geom_tile 和另一个具有透明填充的 geom_col。

而且我认为您的绘图中存在一些错误，例如:y 轴应该是 value 而不是 var1。

ggplot(test, aes(x = var2, fill = varb))+ 
    geom_tile(aes(y = value, width = 0.9, height=0.7), position = "stack") +
    geom_col(aes(y = max(value)),position = "identity",alpha = 0,color = "black") +
    facet_grid(var2~., space="free",scales="free") +
    scale_fill_manual(values=c("#99d594", "#fc8d59", "#ffffbf", "grey60"))