datamations

library(datamations)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

"small_salary %>% 
  group_by(Degree) %>%
  summarize(mean = mean(Salary))" %>%
  datamation_sanddance()

Replay

"small_salary %>% 
  group_by(Degree, Work) %>%
  summarize(mean = mean(Salary))" %>%
  datamation_sanddance()

Replay