查看原文
其他

听说你还不会画动图

Y叔叔 biobabble 2020-02-05

正如我在「知识星球」里说的,《邪恶的曲线》和《emojifont新功能(有视频哦)》两篇文章中我都有教过如何制作动图。

今天借这个问题,再演示一遍,因为Thomas Lin有新动作,他重写了gganimate包,提出了一套用于做动图的语法,以前gganimate包是加入frame这个aes mapping,现在废掉了,加入了新动词,不过现在还在开发中。目前你需要装github版本的ggplot2, tweenr, transfomr以及thomasp85/gganimate,所以并不推荐大家用,大家还是等以后发布吧,我现在是先跟进给大家演示一下,看看以后我们做动图到底有多爽,而且用ggplot2你天然有好多好东西,比如这里用到的分面,语言是苍白的,以代码为证,以图为证。

library(gapminder)
library(ggplot2)
library(gganimate)
start_pause <- min(gapminder$year)
end_pause <- max(gapminder$year)
p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, colour = country)) +
 geom_point(alpha = 0.7) +
 scale_colour_manual(values = country_colors) +
 scale_size(range = c(2, 12)) +
 scale_x_log10() +
 facet_wrap(~continent) +
 theme(legend.position = 'none') +
 labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') +
 transition_time(year) +
 ease_aes('linear')
magick::image_write(animate(p, 100, 10), "gapminder.gif")



    您可能也对以下帖子感兴趣

    文章有问题?点此查看未经处理的缓存