【R】グラフのラベル装飾 mdthemes

グラフのラベルを装飾できるmdthemesというパッケージがCRANに登録されました。

library(tidyverse)
library(mdthemes)

beer_taxed <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-03-31/beer_taxed.csv')

beer_taxed %>% 
  filter(type %in% c("Sub Total Taxable", "Sub Total Tax-Free", "Production") ) %>%
  mutate(ym = paste(year, "-", month, sep="")) %>%
  ggplot(aes(x=ym, y=month_current, col = tax_status)) +
  geom_point() + 
  ggtitle(
    paste0(
      "Tax Paied in each month / ",
      "**Sub Total Taxable**",
      "/**Sub Total Tax-Free**",
      "/**Totals**"
    )
  ) +
  labs(
    x = "**_Year-Month_**",
    y = "**_Paied Tax_**"
  ) + 
  scale_color_manual(
    values = c("Sub Total Taxable" = "green", "Sub Total Tax-Free" = "red", "Totals" = "blue"),
    guide = "none"
  ) +
  md_theme_economist_white()

Italicにしたり、Boldにしたりと変更できましたが、年月を90度回転させたかったのですが、どうしてもできず。。。あきらめました。