examples.Rmd [170:184]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  geom_line(aes(size = line_thick, color=`County Population`)) +
  geom_ribbon(aes(ymin = qLow, ymax = qHigh, fill=`County Population`), alpha = .25, color=NA) +
  list(
    scale_size_manual(values = c(a=0.8, b=1.4), guide=FALSE),
    scale_color_manual(values = c("Overall"="black",
                                  "> 250k" =plot_colors[1],
                                  "100k - 250k"=plot_colors[2],
                                  "25k - 100k"=plot_colors[3],
                                  "< 25k"=plot_colors[4])),
    scale_fill_manual(values = c("Overall"="black",
                                 "> 250k" =plot_colors[1],
                                 "100k - 250k"=plot_colors[2],
                                 "25k - 100k"=plot_colors[3],
                                 "< 25k"=plot_colors[4]))
  ) +
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



examples.Rmd [271:285]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  geom_line(aes(size = line_thick, color=`County Population`)) +
  geom_ribbon(aes(ymin = qLow, ymax = qHigh, fill=`County Population`), alpha = .25, color=NA) +
  list(
    scale_size_manual(values = c(a=0.8, b=1.4), guide=FALSE),
    scale_color_manual(values = c("Overall"="black",
                                  "> 250k" =plot_colors[1],
                                  "100k - 250k"=plot_colors[2],
                                  "25k - 100k"=plot_colors[3],
                                  "< 25k"=plot_colors[4])),
    scale_fill_manual(values = c("Overall"="black",
                                 "> 250k" =plot_colors[1],
                                 "100k - 250k"=plot_colors[2],
                                 "25k - 100k"=plot_colors[3],
                                 "< 25k"=plot_colors[4]))
  ) +
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



