# NOT RUN {
library(ggplot2)
ggplot(mtcars, aes(cyl, mpg, color = factor(stat(.draw)))) +
stat_summary_boot(fun.y = "mean", geom = "point")
# }
# NOT RUN {
library(gganimate)
ggplot(mtcars, aes(cyl, mpg)) +
stat_summary_boot(
aes(color = factor(stat(.draw))),
fun.y = "mean", geom = "point", size = 2
) +
transition_states(stat(.draw), 1, 1)
# doesn't work
ggplot(mtcars, aes(cyl, mpg)) +
geom_point() +
stat_summary_boot(
aes(color = factor(stat(.draw))),
fun.y = "mean", geom = "point", size = 2
) +
transition_states(stat(.draw), 1, 1)
# }
Run the code above in your browser using DataLab