R: how to create custom multiple legend titles in ggplot2

Question

I have the following code

ggplot(al_counties_data, aes(x = long, y = lat, group = group)) + 
  geom_polygon(aes(fill = dailyave_last7d), color = "white&q