R/plot_signature_count.r

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

#' Plots the signature counts over time.
#' @param signatures data.frame of the signatures to plot
#' @return ggplot2 plot object
#' @export
#' @examples
#' data(signatures)
#' print(plot_signature_count(signatures))
plot_signature_count <- function(signatures) {
  signatures$count <- 1
  signatures$cumsum <- cumsum(signatures$count)
  title <- sprintf("Cumulative signatures for petition: %s", unique(signatures$petition_id))
  ggplot(
    signatures,
    aes(
      x=created_POSIXct,
      y=cumsum
    )
  ) +
    geom_smooth() +
    labs(
      x='Date',
      y='Signatures',
      title=title
    )
}