Du Bois Visualization Challenge 01

Map — Negro population of Georgia by counties, 1870, 1880 – W.E.B Du Bois

Recreating the the data visualization of W.E.B Du Bois from the 1900 Paris Exposition using modern tools. See the challenge presentation.

Setup

library(tidyverse)
library(sf)
library(janitor)
library(showtext)
library(glue)

font_add_google("Play", family = "dubois")
showtext_auto()

Data

Correcting a typo and reprojecting to UTM…

counties <- read_sf("data/DuBoisChallenge - Georgia Counties w 1870 & 1880 data.shp") |> 
  clean_names() |> 
  pivot_longer(starts_with("data"),
               names_to = "year", 
               values_to = "pop", 
               names_pattern = "(\\d{4})") |> 
  mutate(pop = if_else(pop == "> 1000", "< 1000", pop)) |> 
  st_transform("EPSG:32617")

Map

counties |> 
  ggplot() +
  geom_sf(aes(fill = pop), 
          key_glyph = "dotplot",
          color = "#333333") +
  facet_wrap(~ year) +
  scale_fill_manual(
    values = list(
      "< 1000"        = "#516253",
      "1000 - 2500"   = "#E7B14D",
      "2500 - 5000"   = "#E69A96",
      "5000 - 10000"  = "#DE324F",
      "10000 - 15000" = "#CDAA8F",
      "15000 - 20000" = "#744A33",
      "20000 - 30000" = "#32295E"), 
    labels = c(
      "under 1000",       
      "1,000 to 2,500",  
      "2,500 to 5,000",  
      "5,000 to 10,000", 
      "10,000 to 15,000",
      "15,000 to 20,000",
      "20,000 to 30,000"),
    na.value = "#E3CFBC") +
  guides(fill = guide_legend(keywidth = unit(13, units = "mm"),
                             reverse = TRUE)) +
  labs(title = str_to_upper("Negro Population of Georgia by counties."),
       subtitle = "",
       fill = "",
       caption = glue("https://r.iresmi.net/ - {Sys.Date()}
                      inspired by W.E.B Du Bois
                      data: https://github.com/ajstarks/dubois-data-portraits/tree/master/challenge/2024")) +
  theme_void() +
  theme(text = element_text(family = "dubois", size = 20, lineheight = .5),
        plot.title = element_text(size = 25),
        plot.background = element_rect(fill = "#E6D4C3", color = NA),
        plot.margin = margin(0, .3, 0.1, .3, "cm"),
        plot.caption = element_text(size = 10), 
        plot.caption.position = "plot",
        strip.text = element_text(size = 20, hjust = 0.2))

Map of negro population of Georgia by counties in 1870 and 1880 in the Dubois style — Figure 1: Recreating *Negro population of Georgia by counties*

--- title: "Du Bois Visualization Challenge 01" description: "Map" author: "Michaël" date: "2024-02-11T23:00:00" date-modified: last-modified categories: - R - datavisualization - DuBoisChallenge - spatial draft: false freeze: true editor_options: chunk_output_type: console chunk_output_type: console execute: eval: true --- ```{r} #| label: preview #| echo: false #| fig-cap: "Negro population of Georgia by counties, 1870, 1880 -- W.E.B Du Bois" #| fig-alt: "Map" #| fig-link: https://github.com/ajstarks/dubois-data-portraits/blob/master/challenge/2024/challenge01/original-plate-06.jpg #| class-output: "preview-image" #| out-width: "100%" knitr::include_graphics("images/original-plate-06.jpg") ``` Recreating the the data visualization of [W.E.B Du Bois](https://en.wikipedia.org/wiki/W._E._B._Du_Bois) from the 1900 Paris Exposition using modern tools. [See the challenge presentation](https://github.com/ajstarks/dubois-data-portraits/tree/master/challenge/2024). ## Setup ```{r} #| label: setup library(tidyverse) library(sf) library(janitor) library(showtext) library(glue) font_add_google("Play", family = "dubois") showtext_auto() ``` ## Data Correcting a typo and reprojecting to UTM... ```{r} #| label: data counties <- read_sf("data/DuBoisChallenge - Georgia Counties w 1870 & 1880 data.shp") |> clean_names() |> pivot_longer(starts_with("data"), names_to = "year", values_to = "pop", names_pattern = "(\\d{4})") |> mutate(pop = if_else(pop == "> 1000", "< 1000", pop)) |> st_transform("EPSG:32617") ``` ## Map ```{r} #| label: fig-map #| fig-cap: Recreating *Negro population of Georgia by counties* #| fig-alt: Map of negro population of Georgia by counties in 1870 and 1880 in the Dubois style #| out-width: "100%" #| fig-width: 8 #| dev: png #| dev.args: #| bg: "#E6D4C3" counties |> ggplot() + geom_sf(aes(fill = pop), key_glyph = "dotplot", color = "#333333") + facet_wrap(~ year) + scale_fill_manual( values = list( "< 1000" = "#516253", "1000 - 2500" = "#E7B14D", "2500 - 5000" = "#E69A96", "5000 - 10000" = "#DE324F", "10000 - 15000" = "#CDAA8F", "15000 - 20000" = "#744A33", "20000 - 30000" = "#32295E"), labels = c( "under 1000", "1,000 to 2,500", "2,500 to 5,000", "5,000 to 10,000", "10,000 to 15,000", "15,000 to 20,000", "20,000 to 30,000"), na.value = "#E3CFBC") + guides(fill = guide_legend(keywidth = unit(13, units = "mm"), reverse = TRUE)) + labs(title = str_to_upper("Negro Population of Georgia by counties."), subtitle = "", fill = "", caption = glue("https://r.iresmi.net/ - {Sys.Date()} inspired by W.E.B Du Bois data: https://github.com/ajstarks/dubois-data-portraits/tree/master/challenge/2024")) + theme_void() + theme(text = element_text(family = "dubois", size = 20, lineheight = .5), plot.title = element_text(size = 25), plot.background = element_rect(fill = "#E6D4C3", color = NA), plot.margin = margin(0, .3, 0.1, .3, "cm"), plot.caption = element_text(size = 10), plot.caption.position = "plot", strip.text = element_text(size = 20, hjust = 0.2)) ```