R/plot_signature_count_trends.r

In yoni/r_we_the_people: An R client for interacting with the White House's "We The People" petition API.

#' Plots a trend of signature counts over time.
#' @param petitions data.frame of petitions
plot_signature_count_trends <- function(petitions) {
  ggplot(
    petitions,
    aes(created_POSIXct, signatureCount, color=status)
    ) +
    geom_point() +
    geom_smooth(aes(group=status), method='lm') +
    labs(x='Created', y='Signatures', color='Status')
}