# NOT RUN {
library(ggplot2)
`%>%` <- magrittr::`%>%`
plt <- economics_long %>%
dplyr::filter(variable %in% c("psavert", "uempmed")) %>%
ggplot(aes(date, value, color = variable)) +
geom_line() +
scale_y_continuous(
labels = label_wsj(prefix = "$", suffix = " %")
) +
theme_wsj() +
labs(
title = "Some Economics Plot",
caption = "Source: Top secret."
)
# }
Run the code above in your browser using DataLab