data('Salmon-chum-Columbia-River-ESU-CRchum2020', package='VRData')
out$NUMBER_OF_SPAWNERS[out$NUMBER_OF_SPAWNERS == -99] <- NA ggplot2::ggplot(out, ggplot2::aes(x=.data$YEAR, y=.data$NUMBER_OF_SPAWNERS)) + ggplot2::geom_point(na.rm = TRUE) + ggplot2::ggtitle('Spawner Counts') + ggplot2::facet_wrap(~COMMON_POPULATION_NAME)
out$FRACWILD[out$FRACWILD == -99] <- NA ggplot2::ggplot(out, ggplot2::aes(x=.data$YEAR, y=.data$FRACWILD)) + ggplot2::geom_point(na.rm = TRUE) + ggplot2::ggtitle('Fraction Wild') + ggplot2::ylim(0,1) + ggplot2::facet_wrap(~COMMON_POPULATION_NAME)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.