具有不对称偏移的ggmosaic图

Question

我有ggmosaic生成的马赛克图：

ggplot(data.frame(a1=c(T,T,F,F), a2=c(T,F,T,F), a3=c(1,3,3,3))) +
  geom_mosaic(aes(weight=a3, x=product(a1,a2), fill=a1))

我想在不改变堆叠列之间空间高度的情况下加宽垂直条之间的空间：

我尝试使用offset参数，但它似乎适用于两个维度，并且不能只隔离一个维度。使用vanilla ggplot的答案是可以接受的，但首选ggmosaic解决方案。

Answer 1

使用geom_bar：

的不太理想的解决方法

ggplot(data.frame(a1=c(T,T,F,F), a2=c(T,F,T,F), a3=c(1,3,3,3)), aes(width=c(.4,.6,.4,.6)))+
   geom_bar(aes(x=a2, y=-a3, fill=a1), position = "fill", stat = "identity")