#' 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
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.