Length of names of months and weekdays

gistfile1.R

library(lubridate)
library(ggplot2)

period_name <- c(month.name, as.character(wday(1:7, label = TRUE, abbr = FALSE)))
name_length <- sapply(strsplit(period_name, ""), length)

df <- data.frame(period_name, name_length, period_order = c(1:12, 1:7),
                 type = rep(c("Months", "Weekdays"), c(12, 7)))

ggplot(df, aes(x = period_order, y = name_length, label = period_name)) +
  geom_smooth(se = FALSE) +
  geom_text(size = 3, hjust = "inward", position = "jitter") +
  facet_wrap(~type, scales = "free") +
  theme_bw() +
  scale_x_continuous(breaks = 1:12) +
  labs(x = "\nPeriod order", y = "# of characters in name\n",
       title = "Length of names of months and weekdays\n")