Reputation: 1565
The package gganimate
creates gifs (MWE code from here):
library(ggplot2)
#devtools::install_github('thomasp85/gganimate')
library(gganimate)
p <- ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_boxplot() +
# Here comes the gganimate code
transition_states(
gear,
transition_length = 2,
state_length = 1
) +
enter_fade() +
exit_shrink() +
ease_aes('sine-in-out')
How can export this gif now? In the previous (now archived) version of gganimate
this was simple:
gganimate(p, "output.gif")
However, I could not find an equivalent function in the current gganimate
package.
Note: This question seems like an exact duplicated of the question from which I took the code for the MWE. However, gganimate
has been updated and in the new version, displaying an animation in the viewer pane vs. exporting it seem to be different issues.
Upvotes: 22
Views: 24325
Reputation: 1513
Based on the suggestion by @Ronak Shah, I've added an updated answer using anim_save()
from the gganimate
package - as it uses gifski now to render the .gif
output.
library(ggplot2)
library(gganimate)
# install.package("gifski") #if not already installed
p <- ggplot(mtcars, aes(factor(cyl), mpg)) +
geom_boxplot() +
transition_states(
gear,
transition_length = 2,
state_length = 1
) +
enter_fade() +
exit_shrink() +
ease_aes('sine-in-out')
anim_save("filenamehere.gif", p)
Upvotes: 18
Reputation: 84519
You can do like this:
anim <- animate(p)
magick::image_write(anim, path="myanimation.gif")
Upvotes: 10