# NOT RUN {
library(spinifex)
raw <- ggplot2::diamonds
dat <- scale_sd(raw[1:10000, c(1, 5:6, 8:10)])
gt_path <- save_history(dat, grand_tour(), max = 3)
## 10000 rows is quite heavy to animate.
## Increase performance by aggregating many points into few hexagons
ggp <- ggtour(gt_path, dat) +
proto_basis() +
proto_hex(bins = 20)
## Hexagons don't show up in plotly animation.
# }
# NOT RUN {
animate_gganimate(ggp)
# }
Run the code above in your browser using DataLab