Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- economics_mod <- economics_long %>%
- mutate(type = variable) %>%
- mutate(type = recode(type, `pce` = "1", `pop` = "1", .default = "2"))
- ggplot(economics_mod, aes(date, value01, group = variable)) +
- geom_path() +
- facet_wrap( ~ type, ncol = 1) +
- geom_smooth()
Add Comment
Please, Sign In to add comment