pi-double.R

# 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)