The Tate Artwork Collection

January 13, 2021

library(tidyverse)
library(ggdark)

artwork <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-01-12/artwork.csv") %>%
  filter(artist != "Turner, Joseph Mallord William", !is.na(year)) %>%
  select(year, acquisitionYear) %>%
  mutate(period = case_when(
    year <= 1800 ~ "Pre-1800s",
    (year > 1800) & (year <= 1850) ~ "1800-1850",
    (year > 1850) & (year <= 1900) ~ "1850-1900",
    (year > 1900) & (year <= 1925) ~ "1900-1925",
    (year > 1925) & (year <= 1950) ~ "1925-1950",
    (year > 1950) & (year <= 1975) ~ "1950-1975",
    (year > 1975) & (year <= 2000) ~ "1975-2000",
    year > 2000 ~ "2000-2013"
  )) %>%
  group_by(acquisitionYear, period) %>%
  summarize(n = n()) %>%
  ungroup() %>%
  mutate(period = fct_relevel(period, c("Pre-1800s", "1800-1850", "1850-1900", "1900-1925", "1925-1950", "1950-1975", "1975-2000", "2000-2013")))

artwork_all_unique_combos <- artwork %>%
  expand(acquisitionYear, period)
  
artwork <- artwork_all_unique_combos %>%
  left_join(artwork, by = c("acquisitionYear", "period")) %>%
  replace_na(list(n = 0)) %>%
  group_by(period) %>%
  mutate(n = cumsum(n)) %>%
  ungroup() %>%
  filter(acquisitionYear >= 1900)

artwork %>%
  filter(acquisitionYear == 1900) %>%
  mutate(prop = n / sum(n))
# A tibble: 8 x 4
  acquisitionYear period        n  prop
            <dbl> <fct>     <dbl> <dbl>
1            1900 Pre-1800s   255 0.307
2            1900 1800-1850   303 0.365
3            1900 1850-1900   272 0.328
4            1900 1900-1925     0 0    
5            1900 1925-1950     0 0    
6            1900 1950-1975     0 0    
7            1900 1975-2000     0 0    
8            1900 2000-2013     0 0    
artwork %>%
  filter(acquisitionYear == 2013) %>%
  mutate(prop = n / sum(n))
# A tibble: 8 x 4
  acquisitionYear period        n   prop
            <dbl> <fct>     <dbl>  <dbl>
1            2013 Pre-1800s  1218 0.0492
2            2013 1800-1850  2374 0.0960
3            2013 1850-1900  1379 0.0557
4            2013 1900-1925  1595 0.0645
5            2013 1925-1950  2046 0.0827
6            2013 1950-1975  7789 0.315 
7            2013 1975-2000  6856 0.277 
8            2013 2000-2013  1484 0.0600
period_labels <- tribble(
    ~x,   ~y,      ~label,
  1910, 0.90, "Pre-1800s",
  1920, 0.65, "1800–1849",
  1930, 0.40, "1850–1899",
  1945, 0.22, "1900–1924",
  1957, 0.12, "1925–1949",
  1971, 0.06, "1950–1974",
  1990, 0.04, "1975–1999",
  2008, 0.02, "2000-2013"
)

percentage_labels <- tribble(
    ~x,   ~y, ~label,    ~color,
  1896, 0.18,  "33%", "#bd93f9",
  1896, 0.52,  "36%", "#ff79c6",
  1896, 0.85,  "31%", "#6272a4",
  2017, 0.03,  " 6%", "#ff5555",
  2017, 0.19,  "28%", "#ffb86c",
  2017, 0.51,  "32%", "#f1fa8c",
  2017, 0.70,  " 8%", "#50fa7b",
  2017, 0.77,  " 6%", "#8be9fd",
  2017, 0.84,  " 6%", "#bd93f9",
  2017, 0.91,  " 9%", "#ff79c6",
  2017, 0.98,  " 5%", "#6272a4"
)

ggplot(artwork) +
  geom_area(aes(acquisitionYear, n, fill = period), position = "fill", alpha = 0.6) +
  geom_text(data = period_labels, aes(x, y, label = label), color = "#f8f8f2", family = "Inter-Light") +
  geom_text(data = percentage_labels, aes(x, y, label = label, color = color), family = "Inter-Regular", size = 5) +
  scale_x_continuous(breaks = c(1825, 1850, 1900, 1925, 1950, 1975, 2000, 2013)) +
  scale_fill_manual(values = rev(c("#ff5555", "#ffb86c", "#f1fa8c", "#50fa7b", "#8be9fd", "#bd93f9", "#ff79c6", "#6272a4"))) +
  scale_color_identity() +
  guides(fill = FALSE) +
  labs(
    title = "The Ever-Changing Composition of the Tate Artwork Collection*",
    subtitle = "Sir Henry Tate founded the National Gallery of British Art in 1897, known today as Tate Britain. The institution\nfurther established Tate Liverpool (1988), Tate St Ives (1993), and Tate Modern (2000). In 1900, the artwork\ncollection included 830 pieces: 255 from pre-1800s, 303 from 1800–1849, and 272 from 1850–1899. By 2013,\nthe collection had grown to 25,000 pieces, more than half of which were made after 1950.",
    caption = "*Excluding works by JMW Turner (1775–1851) of which Tate owns nearly 40,000 (mostly sketch pages)\nData from github.com/tategallery/collection\nRecreate this graphic at nsgrantham.com/tate-artwork",
    x = NULL
  ) +
  dark_theme_minimal(base_family = "Inter-Light", base_size = 16) +
  theme(
    plot.background = element_rect(fill = "#282a36", color = "#282a36"),
    plot.title = element_text(family = "Inter-Medium", color = "#f8f8f2", size = 22, margin = margin(0, 0, 0.8, 0, unit = "line")),
    plot.title.position = "plot",
    plot.subtitle = element_text(color = "#f8f8f2", size = 13, lineheight = 1.2, margin = margin(0, 0, 0.8, 0, unit = "line")),
    plot.caption = element_text(size = 10, lineheight = 1.1),
    plot.margin = margin(1.5, 1.5, 1, 1.5, unit = "line"),
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.y = element_blank(),
    axis.title.y = element_blank(),
    axis.text.y = element_blank(),
    axis.title.x = element_text(),
    axis.text.x = element_text(color = "#f8f8f2", margin = margin(-1, 0, 1, 0, unit = "line"))
  )

ggsave("tate-artwork.png", width = 10, height = 8)

By 2013, more than half of the pieces in the Tate artwork collection were made after 1950.


Thanks for reading — follow me on Twitter and subscribe to my newsletter. 🕺