Papyrus 📜

I came upon a post by Andrew Heiss, Working with R, Cairo graphics, custom fonts, and ggplot, and couldn’t help but notice that the featured font was one I’d seen before…



I thought I could forget about it— move on with my life. Maybe I could just load the tidyverse, recreate Andrew’s plot, and be done with the whole thing.

library(tidyverse)

# Create sample data
set.seed(1234)  # This makes R run the same random draw
df <- data_frame(x = rnorm(100),
                 y = rnorm(100))

# Create plot
p <- ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  labs(title = "This is a title",
       subtitle = "This is a subtitle") +
  annotate("text", x = 0, y = 0, label = "This is some text",
           family = "Papyrus", color = "darkred", size = 8) +
  theme_light(base_family = "Comic Sans MS")
p

But no— that was too easy. His font choice mocked me, still.


So I did what I had to do. I pulled the appropriate data from Box Office Mojo, and made it all nice and R-friendly using Miles McBain’s datapasta package/add-in.

# abbreviated version shown for aesthetic reasons
data <- tibble::tribble(
            ~Date, ~Rank,  ~Weekly.Gross, ~X..Change, ~Theaters, ~Change,      ~Avg.,  ~Gross.to.Date, ~Week,
       "Aug 6–12",   73L,      "$10,511",  "-48.40%",         1,     -1L,  "$10,511",  "$749,766,139",   34L,
   "Jul 30–Aug 5",   58L,      "$20,353",  "-18.90%",         2,     -1L,  "$10,177",  "$749,755,628",   33L,
      "Jul 23–29",   55L,      "$25,099",     "0.03",         3,     -1L,   "$8,366",  "$749,735,275",   32L,
      "Jul 16–22",   54L,      "$24,371",  "-62.70%",         4,     -5L,   "$6,093",  "$749,710,176",   31L,
       "Jul 9–15",   47L,      "$65,367",     "0.25",         9,      0L,   "$7,263",  "$749,685,805",   30L
)



data %>%
  ggplot(aes(x = Week, y = Theaters)) +
  geom_point() +
  annotate("text", x = 17, y = 1500, label = "AVATAR",
           family = "Papyrus", color = "skyblue2", size = 24) +
  theme_minimal(base_family = "sans")

At least one person understands…

Share Comments
comments powered by Disqus