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 параметр, но, похоже, работает в обоих измерениях и не может выделить только одно. Ответ с использованием ванили 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")