Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
# Returns
return_bar <- ggplot(data = removals, aes(x = Year, y = Returns)) +
geom_col(aes(fill = Party), colour = "black") +
# geom_smooth(method = "lm", colour = "black") +
labs(x = NULL, y = "Immigrants Returned") +
scale_fill_manual(values = c("slateblue1", "firebrick1")) +
ggtitle("Returns")
# Removals
removal_bar <- ggplot(data = removals, aes(x = Year, y = Removals)) +
geom_col(aes(fill = Party), colour = "black") +
# geom_smooth(method = "lm", colour = "black") +
labs(x = NULL, y = "Immigrants Removed") +
scale_fill_manual(values = c("slateblue1", "firebrick1")) +
ggtitle("Removals")
# Stick'em
grid.arrange(return_bar, removal_bar)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment