Minimal Anscombe

anscombe.R

library(dplyr)
library(tidyr)
library(ggplot2)

df <- anscombe %>% 
  gather() %>% 
  mutate(axis = substr(key, 1, 1)) %>% 
  mutate(number = substr(key, 2, 2)) %>% 
  group_by(axis, number) %>% 
  mutate(key = 1:n()) %>%
  spread(axis, value)

ggplot(df, aes(x, y)) +
  geom_point(size = 7) +
  geom_abline(intercept = 3, slope = 0.5) +
  facet_wrap(~number) +
  theme_void() +
  xlim(c(4, 20)) +
  ylim(c(3, 13)) %>% 
  ggsave("shirt.svg", ., "svg")