Visualizing My Life In Months

How much time do I have left?

Inspired by Tim Urban.

library(waffle)
library(ggplot2)

c(
  Birth = 1,
  `Care Free` = 64,
  `Primary School` = 70,
  `Middle School` = 27,
  `Middle School (USA)` = 10,
  `High school` = 46,
  College = 48,
  `Time Left` = 681,
  Death = 1
) |>
  # Plot
  waffle(
    rows = 12, flip = TRUE,
    size = 0.2,
    colors = c(
      "aliceblue",
      "firebrick1",
      "orange",
      "gold",
      "seagreen3",
      "turquoise2",
      "steelblue3",
      "slateblue1",
      "grey"
    )
  ) +
  theme(
    legend.text = element_text(size = 5),
    legend.key.size = unit(5, "mm")
  )