1. For the state of California, make time series plots showing rates for all diseases. Include only years with 10 or more weeks reporting. Calculate the rates as before using:

dat <- us_contagious_diseases %>%
  ...
  mutate(rate = count / population * 10000 * 52 / weeks_reporting)
  ...

Include only years with 10 or more weeks reporting. Use a different color for each disease. Do this using the local aes of the geom_line function. Store the resulting ggplot object in p_cal

2. Now do the same for the rates for the US. Hint: compute the US rate by using the summarize function. Divide the total counts by total population and don’t forget to remove NAs. Store the resulting ggplot object in p_us