Great reprex. Thanks.
reprex
preds.RAIN %>% ggplot(aes(temp, exp(fit))) + geom_line() + facet_wrap(~ rainfall_binary) ...