require(ggplot2)
require(tidyr)
require(dplyr)
data(anscombe_tidy)
ggplot(datasaurus_dozen, aes(x=x, y=y)) +
geom_point() +
facet_wrap(~dataset, ncol=3, scales = "free")
sc_skewed(datasaurus_dozen_wide$dots_x, datasaurus_dozen_wide$dots_y)
sc_skewed(datasaurus_dozen_wide$h_lines_x, datasaurus_dozen_wide$h_lines_y)
sc_skewed(datasaurus_dozen_wide$x_shape_x, datasaurus_dozen_wide$x_shape_y)
Run the code above in your browser using DataLab