Site icon R-bloggers

Du Bois Visualization Challenge

Michael
[This article was first published on r.iresmi.net, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

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.

https://github.com/ajstarks/dubois-data-portraits/tree/master/challenge/2024

< section id="config" class="level2">

Config

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

_add_google("Play", family = "dubois")
showtext_auto()
< section id="data" class="level2">

Data

data_02 <- read_csv("data.csv") |> 
  clean_names() |> 
  pivot_longer(c(slave, free), names_to = "status", values_to = "pcent")
< section id="plot" class="level2">

Plot

data_02 |> 
  ggplot() +
  geom_area(aes(year, 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),
        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, .3, 0.1, .3, "cm"),
        plot.caption = element_text(size = 10), 
        plot.caption.position = "plot",
        strip.text = element_text(size = 20, hjust = 0.2))

Figure 1: Recreating slave and free negroes
< !-- -->
To leave a comment for the author, please follow the link and comment on their blog: r.iresmi.net.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Exit mobile version