Nothing
#' @title plotdata
#' @description Plots the cases data as well as birth and population dynamics.
#' @param data The dataframe with time, cases, births, and pop.
plotdata <- function(data){
p <- ggplot(melt(data,id='time'),aes_string(x='time',y='value'))+geom_line(colour='dodgerblue',size=1)+
facet_wrap(~variable,ncol=1,scales="free_y")+
theme_bw()
return(p)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.