Skip to content

Instantly share code, notes, and snippets.

@seabbs

seabbs/plot_per_decrease

Last active November 15, 2017 12:12
Show Gist options
  • Save seabbs/fcca5387d2dd9fbd785a226549bae7b0 to your computer and use it in GitHub Desktop.
Save seabbs/fcca5387d2dd9fbd785a226549bae7b0 to your computer and use it in GitHub Desktop.
Download ZIP
Plot the annual percentage decrease in TB notifications
Raw
plot_per_decrease
nots %>% ggplot(aes(x = year, y = prop_decrease, col = prop_decrease)) +
geom_hline(yintercept = 0, linetype = 1, alpha = 0.5) +
geom_hline(yintercept = 0.09, linetype = 2, alpha = 0.5) +
geom_point(size = 2) +
scale_y_percent() +
geom_smooth(alpha = 0.2) +
scale_colour_viridis_c() +
theme_minimal()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment