r - 具有不对称偏移的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首选 -only 解决方案。

Answer 1

使用 using 的不太理想的解决方法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")