Я бы хотел анимировать переход между двумя мозаиками с помощью gganimate. Проблема: эти две графики создаются разными командами geom_mosai c, и эффект не может быть создан разными сегментами одного фрейма данных.
Можно ли это сделать с помощью gganimate
или иначе?
library(tidyverse)
library(ggmosaic)
library(patchwork)
df1 <- tibble(gender=c("male","male","female","female"),smoker=c("yes","no","yes","no"),
count=c(1,2,1,1))
library(ggmosaic)
df1 %>%
ggplot() +
geom_mosaic(aes(product(smoker,gender),weight=count,fill=smoker)) +
labs(x="",y="") -> g1
df1 %>%
ggplot() +
geom_mosaic(aes(product(gender,smoker),weight=count,fill=smoker)
,divider = c("hspine","vspine")) +
labs(x="",y="") -> g2
Я хочу, чтобы левый график плавно перешел в правый график
g1+g2