Genuary 2022.01 - Ten Thousand People

tenthousandpeople.R

library(ggplot2)
library(ragg)
library(systemfonts)
library(tantastic) # tanho63/tantastic
library(tidyverse)

# Weepeople font https://github.com/propublica/weepeople/
colours <- c("#5E4AE3","#44FFD1","#EFCA08","#FF3366")

crossing(
  x = 1:100 * 100,
  y = 1:100 * 100
) |> 
  mutate(
    x = jitter(x),
    y = jitter(y),
    alpha = sample(85:100/100,10000,replace = TRUE),
    label = sample(c(LETTERS,letters),10000, replace = TRUE),
    colour = sample(colours, 10000, replace = TRUE)
  ) |> 
  ggplot(aes(x,y, label = label, colour = colour, alpha = alpha)) + 
  geom_text(family = "Weepeople", size = 6) +
  scale_colour_identity() +
  theme_tantastic() +
  theme(
    legend.position = "none",
    axis.text.x = element_blank(),
    axis.title.x = element_blank(),
    axis.text.y = element_blank(),
    axis.title.y = element_blank()
  ) + 
  labs(
    title = "Ten Thousand People",
    subtitle = "Genuary 2022.01",
    caption = "@_TanHo"
  )