代码语言:javascript复制
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指的是动画最后是否循环回去。
我们直接看个实例:
代码语言:javascript复制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)
代码语言:javascript复制anim<- p transition_states(Species,transition_length = 2, state_length = 1)
anim
2.ease_aes(default = "linear", ...) 渐变动画转化过程中的转化样式设置。其主要就是转化方式的选择:
其中需要function和modifiers配合使用,modifiers主要是设置转化的形式,in代表按原样式;-out代表样式反转。
我们直接看个实例:
代码语言:javascript复制anim ease_aes('cubic-in-out')# Slow start and end for a smoother look
当然也可以进行对单个坐标轴的转化:
代码语言:javascript复制anim ease_aes(y= 'cubic-in-out') # Sets special ease for y aesthetic
3.ggtitle(label, subtitle = waiver()) 动态标签。这个主要是增加每一帧的动画的注释。我们直接看下实例:
代码语言:javascript复制anim ggtitle('Nowshowing {closest_state}', subtitle = 'Frame {frame} of {nframes}')
4.转化的一些定义好的行为,如下:
我们就不多做解释,直接看下实例:
代码语言:javascript复制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参数进行动画格式的改变:
这样就可以直接保存为视频文件,我们直接看下实例:
代码语言:javascript复制animate(anim enter_fade() exit_fly(y_loc = 1), renderer = av_renderer())