Author

Jen Richmond

packages

library(datasauRus)
library(tidyverse)
library(gt)

data

Code 
df <- datasauRus::datasaurus_dozen

glimpse(df)
Rows: 1,846
Columns: 3
$ dataset <chr> "dino", "dino", "dino", "dino", "dino", "dino", "dino", "dino"…
$ x       <dbl> 55.3846, 51.5385, 46.1538, 42.8205, 40.7692, 38.7179, 35.6410,…
$ y       <dbl> 97.1795, 96.0256, 94.4872, 91.4103, 88.3333, 84.8718, 79.8718,…

descriptives

Code 
df %>%
  group_by(dataset) %>%
  summarise(x_mean = mean(x), 
            y_mean = mean(y), 
            sd_x = sd(x),
            sd_y = sd(y), 
            corr = cor(x,y)) %>%
    gt() %>%
              fmt_number(
                columns = c(x_mean, y_mean, sd_x, sd_y),
                decimals = 1
              ) %>%
              fmt_number(
                columns = corr,
                decimals = 4
              )
dataset x_mean y_mean sd_x sd_y corr
away 54.3 47.8 16.8 26.9 −0.0641
bullseye 54.3 47.8 16.8 26.9 −0.0686
circle 54.3 47.8 16.8 26.9 −0.0683
dino 54.3 47.8 16.8 26.9 −0.0645
dots 54.3 47.8 16.8 26.9 −0.0603
h_lines 54.3 47.8 16.8 26.9 −0.0617
high_lines 54.3 47.8 16.8 26.9 −0.0685
slant_down 54.3 47.8 16.8 26.9 −0.0690
slant_up 54.3 47.8 16.8 26.9 −0.0686
star 54.3 47.8 16.8 26.9 −0.0630
v_lines 54.3 47.8 16.8 26.9 −0.0694
wide_lines 54.3 47.8 16.8 26.9 −0.0666
x_shape 54.3 47.8 16.8 26.9 −0.0656

plots

Code 
df %>%
  ggplot(aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~dataset) +
  theme_minimal()