R语言使用gganimate创建可视化动图

目录

  • 使用ggplot2绘制
    • 1. transition_time() 核心函数,添加动态
    • 2 按需设置
    • 参考资料
介绍一个主要用于绘制动画的ggplot2的扩展包---gganimate包。
Hans Rosling的关于“New Insights on Poverty”的TED演讲绝对是对我影响最大的几个TED之一,原来数据可以这样展示,,,可视化可以这样炫,,,故事可以这样讲...

下面尝试使用 gganimate 包和 gapminder 数据集,实现类似可视化过程。
加载R包,数据
#R包安装install.packages("devtools")library(devtools)install_github("thomasp85/gganimate")install.packages("gapminder")#加载library(gganimate)library(gapminder)#查看数据head(gapminder)# A tibble: 6 x 6countrycontinentyear lifeExppop gdpPercap< fct> < fct> < int> < dbl> < int> < dbl> 1 Afghanistan Asia195228.88425333779.2 Afghanistan Asia195730.39240934821.3 Afghanistan Asia196232.0 10267083853.4 Afghanistan Asia196734.0 11537966836.5 Afghanistan Asia197236.1 13079460740.6 Afghanistan Asia197738.4 14880372786.

复制
数据集包括全球主要国家在1952-2007年的人均GDP增长、预期寿命以及人口增长的数据 。
二 ggplot2绘制

使用ggplot2绘制
theme_set(theme_bw())p < - ggplot(gapminder,aes(x = gdpPercap, y=lifeExp, size = pop, colour = country)) +geom_point(show.legend = FALSE, alpha = 0.7) +scale_color_viridis_d() +scale_size(range = c(2, 12)) +scale_x_log10() +labs(x = "GDP per capita", y = "Life expectancy")p

复制

◆ ◆ ◆ ◆ ◆
三 gganimate 动态

1. transition_time() 核心函数,添加动态
p + transition_time(year) +labs(title = "Year: {frame_time}")

复制


2 按需设置
1)添加小尾巴
p + transition_time(year) +labs(title = "Year: {frame_time}") +shadow_wake(wake_length = 0.1, alpha = FALSE)

复制

2)原数据做背景
p + transition_time(year) +labs(title = "Year: {frame_time}") +shadow_mark(alpha = 0.3, size = 0.5)

复制


参考资料
https://www.datanovia.com/en/blog/gganimate-how-to-create-plots-with-beautiful-animation-in-r/
TED:https://www.ted.com/talks/hans_rosling_the_best_stats_you_ve_ever_seen?language=zh-TW
【R语言使用gganimate创建可视化动图】以上就是R语言使用gganimate创建可视化动图的详细内容,更多关于gganimate可视化动图的资料请关注脚本之家其它相关文章!

    推荐阅读