Du Bois Visualization Challenge
[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.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
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
Config
library(tidyverse)
library(sf)
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")
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))
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.