Visualize (and maybe assess) relative impact of climate and host availability

[jcoliver]

For forecasts, how much are the changes in area due to changes in predicted host availability and how much are due to changes in climate? We have areas for total suitable area of insect and areas suitable for insect plus one host.

Make this plot and logic it out.

library(dplyr)
library(tidyr)
library(ggplot2)
ov <- read.csv(file = "output/summary-stats/overlap-summary-allspp.csv")
ov <- ov %>% filter(climate %in% c("current", "ssp370_2041"))
ov_area <- ov %>% select(insect, distribution, climate, area)
ggplot(data = ov_area, mapping = aes(x = climate, y = area, group = interaction(insect, distribution), color = distribution)) + geom_line() + facet_wrap(~ insect, scales = "free_y")