r.iresmi.net - Du Bois Visualization Challenge 02

Bar plot — Slave and Free Negroes – 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(janitor)
library(showtext)
library(glue)

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

Data

data_02 <- read_csv("data.csv") |> 
  clean_names() |> 
  pivot_longer(c(slave, free), names_to = "status", values_to = "pcent") |> 
  mutate(plot_pcent = case_when(year == 1870 & status == "slave" ~ 90,
                                year == 1870 & status == "free" ~ 10,
                                .default = pcent))

Plot

data_02 |> 
  ggplot() +
  geom_area(aes(year, plot_pcent, fill = status), 
            color = "#E6D4C3") +
  scale_x_reverse(breaks = seq(1790, 1870, by = 10),
                  sec.axis = dup_axis(labels = \(x) data_02 |> 
                                        filter(year %in% x & status == "free") |> 
                                        pull(pcent))) +
  scale_y_continuous(labels = \(x) rep("", times = length(x)),
                     sec.axis = dup_axis(labels = \(x) paste0(100 - x, "%"))) +
  scale_fill_manual(values = list("slave" = "#141414",
                                  "free"  = "#CB2A44")) +
  coord_flip(ylim = c(97, 100)) +
  labs(title = str_to_upper("slave and free negroes."),
       x = "",
       y = "",
       fill = "percent of\nfree negroes",
       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_minimal() +
  theme(text = element_text(family = "dubois", size = 20, lineheight = .5),
        panel.background = element_rect(fill = NA, color = NA),
        panel.ontop = TRUE,
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.y = element_line(color = "#E6D4C3"),
        panel.grid.minor.y = element_blank(),
        legend.justification = "top",
        legend.text = element_text(size = 0),
        legend.key.size = unit(0, "cm"),
        plot.title = element_text(size = 25),
        plot.background = element_rect(fill = "#E6D4C3", color = NA),
        plot.margin = margin(0.2, .3, 0.1, .3, "cm"),
        plot.caption = element_text(size = 10), 
        plot.caption.position = "plot",
        strip.text = element_text(size = 20, hjust = 0.2))

--- title: "Du Bois Visualization Challenge 02" description: "Area plot" author: "Michaël" date: "2024-02-12T08:00:00" date-modified: last-modified categories: - R - datavisualization - DuBoisChallenge draft: false freeze: true editor_options: chunk_output_type: console chunk_output_type: console execute: eval: true --- ```{r} #| label: preview #| echo: false #| fig-cap: "Slave and Free Negroes -- W.E.B Du Bois" #| fig-alt: "Bar plot" #| fig-link: https://github.com/ajstarks/dubois-data-portraits/blob/master/challenge/2024/challenge02/original-plate-12.jpg #| class-output: "preview-image" #| out-width: "100%" knitr::include_graphics("images/original-plate-12.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(janitor) library(showtext) library(glue) font_add_google("Play", family = "dubois") showtext_auto() ``` ## Data ```{r} #| label: data data_02 <- read_csv("data.csv") |> clean_names() |> pivot_longer(c(slave, free), names_to = "status", values_to = "pcent") |> mutate(plot_pcent = case_when(year == 1870 & status == "slave" ~ 90, year == 1870 & status == "free" ~ 10, .default = pcent)) ``` ## Plot ```{r} #| label: fig-plot #| fig-cap: Recreating *Slave and free negroes* #| fig-alt: Bar plot of slave and free negroes in the Dubois style #| out-width: "100%" #| fig-width: 4 #| fig-height: 5 #| dev: png #| dev.args: #| bg: "#E6D4C3" data_02 |> ggplot() + geom_area(aes(year, plot_pcent, fill = status), color = "#E6D4C3") + scale_x_reverse(breaks = seq(1790, 1870, by = 10), sec.axis = dup_axis(labels = \(x) data_02 |> filter(year %in% x & status == "free") |> pull(pcent))) + scale_y_continuous(labels = \(x) rep("", times = length(x)), sec.axis = dup_axis(labels = \(x) paste0(100 - x, "%"))) + scale_fill_manual(values = list("slave" = "#141414", "free" = "#CB2A44")) + coord_flip(ylim = c(97, 100)) + labs(title = str_to_upper("slave and free negroes."), x = "", y = "", fill = "percent of\nfree negroes", 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_minimal() + theme(text = element_text(family = "dubois", size = 20, lineheight = .5), panel.background = element_rect(fill = NA, color = NA), panel.ontop = TRUE, panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(), panel.grid.major.y = element_line(color = "#E6D4C3"), panel.grid.minor.y = element_blank(), legend.justification = "top", legend.text = element_text(size = 0), legend.key.size = unit(0, "cm"), plot.title = element_text(size = 25), plot.background = element_rect(fill = "#E6D4C3", color = NA), plot.margin = margin(0.2, .3, 0.1, .3, "cm"), plot.caption = element_text(size = 10), plot.caption.position = "plot", strip.text = element_text(size = 20, hjust = 0.2)) ```