1

我创建了一个动画情节。gif使用gganimate. 问题是输出有重复的图例和标题，我不知道是什么原因造成的。

图例应位于底部，标题应位于图的左下方。关于我在这里做错了什么的任何想法？

可重现的例子：

library(gapminder)
library(ggplot2)
library(gganimate)
library(viridis)

t <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent, frame = year)) +
        geom_point() +
        scale_color_viridis(name="Continent", discrete=TRUE) +
        scale_x_log10() +
        theme_void() + 
        theme( legend.position = "bottom", legend.box = "vertical", legend.title.align = 0) +
        labs(title = "Year: ") +
        labs(caption = " Caption test") +
        theme(plot.title = element_text(hjust = 0.5, vjust = 0.05)) +
        theme(plot.caption = element_text(hjust = 0, color="gray40", size=10)) 



gganimate(t, "output_test.gif")

在此处输入图像描述

更新 [24-03-2017]：David Robinson，作者在Twitter 上gganimate向我证实，这种奇怪的行为是由一个应该很快修复的错误引起的。

与此同时，@hrbrmstr 的解决方案看起来不错。另一种选择是使用旧版本的gganimate，可以这样安装：

  library(devtools)
  install_github("dgrtwo/gganimate", ref = "26ec501")
4

2 回答 2

3

这是一种在gganimate.

清理文件是留给读者的练习:-)

library(gapminder)
library(viridis)
library(magick)
library(tidyverse)

td <- tempdir()

years <- sort(unique(gapminder$year)) 

pb <- progress_estimated(length(years))

map_chr(years, ~{

  pb$tick()$print()

  filter(gapminder, year == .x) %>% 
    ggplot(aes(gdpPercap, lifeExp, size = pop, color = continent)) +
    geom_point() +
    scale_color_viridis(name="Continent", discrete=TRUE) +
    scale_x_log10() +
    labs(title = sprintf("Year: %s", .x)) +
    labs(caption = " Caption test") +
    guides(colour = guide_legend(order = 2), shape = guide_legend(order = 1)) +
    theme_void() + 
    theme(legend.position = "bottom", legend.box = "vertical", legend.title.align = 0) +
    theme(plot.title = element_text(hjust = 0.5, vjust = 0.05)) +
    theme(plot.caption = element_text(hjust = 0, color="gray40", size=10)) -> gg 

  fil <- file.path(td, sprintf("%04d.png", as.integer(.x)))

  ggsave(fil, width=5, height=3, gg)

  fil

}) %>% 
  map(image_read) %>% 
  image_join() %>% 
  image_animate(fps=2, loop=1) %>% 
  image_write("animated.gif")

在此处输入图像描述

于 2017-03-22T15:30:51.853 回答
2

有一些问题gganimate_save。在文档中，在详细信息下，它指出：

如果保存为 GIF，请使用利用冗余背景（比例、静态图层等）的自定义方法。

除了显示两组轴的 gif 之外，第一张图像除了水平轴外是空白的。

相反，如果你打电话

gganimate(t, "output_test.mp4")

然后生成的电影如预期的那样。

然后，您可以在 bash 中调用 mp4 上的 imagemagick 以转换为 gif（或适应来自 R 的系统调用）：

> convert output_test.mp4 output_test.gif

来自 R：

system('convert output_test.mp4 output_test.gif')
于 2017-03-22T15:04:43.513 回答