Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Animate normal distributions with different means and standard deviations.
#=====================================================================#
# This is code to create: 34.0-animate-norm-vars.R
# Authored by and feedback to: mjfrigaard@gmail.com
# MIT License
# Version: 1.0
# Share: http://bit.ly/gganimate-gif
#=====================================================================#
library(ggplot2)
library(gganimate)
library(gifski)
# create data
NormalData <- tibble(random_var_x = c(stats::rnorm(n = 1000,
mean = 10,
sd = 1),
stats::rnorm(n = 1000,
mean = 10,
sd = 5),
stats::rnorm(n = 1000,
mean = 10,
sd = 20),
stats::rnorm(n = 1000,
mean = 10,
sd = 50)),
group_factor = gl(n = 4, k = 1000, label = c("Mean = 10, SD = 1",
"Mean = 10, SD = 5",
"Mean = 10, SD = 20",
"Mean = 10, SD = 50")))
# NormalData
# create static plot
norm_plot <- ggplot2::ggplot(NormalData, aes(x = random_var_x,
fill = group_factor,
color = group_factor,
group = 1L)) +
ggplot2::geom_histogram(bins = 150) +
gganimate::transition_states(states = group_factor,
transition_length = 2,
state_length = 1) +
ease_aes('cubic-in-out') +
gganimate::shadow_mark() +
ggplot2::labs(title = "Means & Standard Deviations from\n Normally Generated Variables",
subtitle = "Number {frame} of {nframes}",
x = "Random Variable X",
y = "Count",
color = "Group factor",
fill = "Group factor")
# norm_plot
# animate
norm_animate <- gganimate::animate(norm_plot, nframes = 100,
res = 150,
height = 7,
width = 9,
units = "in")
norm_animate
# Save the output
anim_save(filename = 'normal-samples.gif',
animation = norm_plot,
path = "figs/")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.