anscombe.R

library(tidyverse)
library(plotly)
library(broom)

data("anscombe")

round_fun <- function(value, func, precision = 2) {
  round(func(value), precision)
}

clean_anscombe <- anscombe %>% 
  mutate(observation = seq_len(n())) %>% 
  gather(key, value, -observation) %>% 
  separate(key, c("variable", "set"), 1, convert = TRUE) %>%
  mutate(set = c("A", "B", "C", "D")[set]) %>% 
  spread(variable, value)