Question

我一直在使用waffle软件包，并试图使其与gganimate一起使用。

以mpg为例，我创建了华夫饼图以显示每个class的模型数量。然后，我想使用gganimate依次显示每个制造商的模型图表。我可以使用facet_wrap()来一次显示所有制造商的图表，但希望能够循环显示它们。

当我尝试将gganimate应用于华夫饼干图时，出现错误：

mapply中的错误（FUN = f，...，SIMPLIFY = FALSE）：零长度的输入不能与非零长度的输入混合

我不确定waffle是否与gganimate不兼容，或者我做错了什么。

代码如下：

library(tidyverse)
library(waffle)
library(gganimate)

data("mpg")
d <- mpg

d$class <- as.factor(d$class)
d$manufacturer <- as.factor(d$manufacturer)

plot <- d %>% count(manufacturer, class) %>%
  ggplot(aes(fill = class, values = n)) +
  geom_waffle(color = "white",
              size = .75,
              n_rows = 4) +
  ggthemes::scale_fill_tableau(name = NULL) +
  coord_equal() +
  theme_minimal() +
  theme(panel.grid = element_blank(), axis.text = element_blank(), legend.position = "bottom")

#Facet wrap works fine:
plot + facet_wrap(~ manufacturer)

#gganimate returns error:
plot + transition_states(manufacturer, transition_length = 2, state_length = 2)

非常感谢您的帮助！谢谢。

Answer 1

我不确定ggwaffle与gganimate的兼容性，但是另一种选择是使用animation包来创建GIF。例如：

library(animation)

saveGIF({
  for (i in unique(d$manufacturer)) {

    d1 = d %>% filter(manufacturer==i)

    gg1 <- d1 %>%
      count(manufacturer, class) %>%
      ggplot(aes(fill = class, values = n)) +
        geom_waffle(color = "white",
                    size = .75,
                    n_rows = 4) +
        scale_y_continuous(expand=c(0,0)) +
        ggthemes::scale_fill_tableau(name = NULL) +
        coord_equal() +
        theme_minimal(base_size=40) +
        theme(panel.grid = element_blank(), 
              axis.text = element_blank(), 
              legend.position = "bottom",
              plot.title=element_text(hjust=0.5)) +
        labs(title=i)
    print(gg1)
  }
}, movie.name="test.gif", ani.height=500, ani.width=500*3)

将gganimate与华夫饼图一起使用

1 个答案: