R语言实现动画效果
install.packages("gifski")
install.packages("magick")#linux系统需要下载此包
install.packages("ggplot2")
install.packages("av")
install.packages("gganimate")接下来我们看下包中主要的函数：
1．transition_states(states, transition_length = 1, state_length = 1,wrap = TRUE) 生成渐变的动画。其中主要参数：states指的是进行转化的各组数据；state_length指的是每个动画暂停的相对速度；transition_length各组之间转化的相对速度；wrap指的是动画最后是否循环回去。
我们直接看个实例：
library(gganimate)
#>Loading required package: ggplot2
# We'llstart with a static plot
p <-ggplot(iris, aes(x = Petal.Width, y = Petal.Length)) + geom_point()
plot(p)
anim<- p + transition_states(Species,transition_length = 2, state_length = 1)
anim
2．ease_aes(default = "linear", ...) 渐变动画转化过程中的转化样式设置。其主要就是转化方式的选择：
其中需要function和modifiers配合使用，modifiers主要是设置转化的形式，in代表按原样式；-out代表样式反转。
我们直接看个实例：
anim + ease_aes('cubic-in-out')# Slow start and end for a smoother look
当然也可以进行对单个坐标轴的转化：
anim + ease_aes(y= 'cubic-in-out') # Sets special ease for y aesthetic
3．ggtitle(label, subtitle = waiver()) 动态标签。这个主要是增加每一帧的动画的注释。我们直接看下实例：
anim + ggtitle('Nowshowing {closest_state}', subtitle = 'Frame {frame} of {nframes}')
4．转化的一些定义好的行为，如下：
我们就不多做解释，直接看下实例：
anim <- ggplot(iris, aes(x =Petal.Width, y = Petal.Length)) + geom_point(aes(colour = Species), size = 2) + transition_states(Species, transition_length =2, state_length = 1)
anim + enter_fade()+ exit_shrink()
当然，除了gif，还可以通过修改animate()中的renderer参数进行动画格式的改变：
这样就可以直接保存为视频文件，我们直接看下实例：
animate(anim + enter_fade() +exit_fly(y_loc = 1), renderer = av_renderer())
本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2020-04-06，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读