# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[, 1:6])
tpath <- tourr::save_history(flea_std, tour_path = tourr::grand_tour(), max = 3)
class <- tourr::flea$species
# }
# NOT RUN {
play_tour_path(tour_path = tpath, data = flea_std)
play_tour_path(tour_path = tpath, data = flea_std, angle = .25, fps = 4,
render_type = render_gganimate, color = class, shape = class, axes = "bottomleft")
# }
Run the code above in your browser using DataLab