chart

R code of the ggplot2 example

library(ggplot2)
library(HistData)

## Marks (points) placed by two positions, the parents' mean height and the
## child's height, with one attribute, colour, for the child's gender.
p <- ggplot(GaltonFamilies, aes(x = midparentHeight, y = childHeight, colour = gender)) +
  geom_jitter(width = 0.15, height = 0.15, size = 0.9, alpha = 0.6) +
  scale_colour_manual(values = unname(lex_colors[c("plum", "blue")]), name = NULL,
                      labels = c(female = "Daughters", male = "Sons")) +
  scale_x_continuous(breaks = lex_break_breaks, expand = lex_break_expand) +
  scale_y_continuous(breaks = lex_break_breaks, expand = lex_break_expand) +
  labs(title = "Children of taller parents tend to be taller (r = 0.32)",
       subtitle = "934 children of 205 families, 1880s",
       x = "Parents' mean height (inches)", y = "Child's height (inches)",
       caption = "Data: Galton 1886, via the HistData R package") +
  theme_lex_viz(break_not_zero = "xy")