categorical legends with ggtext

categorical-legends.md

library(ggplot2)
library(ggtext)
 
dat <- economics_long[economics_long$variable %in% c("psavert", "uempmed"), ]
ggplot(dat, aes(date, value, color = variable)) +
  geom_line() +
  scale_color_manual(values = c("#0072B2", "#009E73")) +
  labs(
    x = "", y = "",
    title = "<span style='color:#0072B2'>savings</span> and <span style='color:#009E73'>unemployment duration</span>" 
  ) +
  theme(
    plot.title = element_markdown()
  ) +
  guides(color = "none")

^{Created on 2020-02-25 by the reprex package (v0.3.0)}