# Basic knitr options library(knitr) opts_chunk$set(comment = NA, echo = FALSE, warning = FALSE, message = FALSE, error = TRUE, cache = FALSE, fig.width = 8.64, fig.height = 4.86, fig.path = 'figures_plot_when/')
source('prepare_data.R')
people <- tolower(sort(unique(df$username))) for(i in 1:length(people)){ this_person <- people[i] print(plot_when(user = this_person, ca = TRUE)) }
for(i in 1:length(people)){ this_person <- people[i] print(plot_when(user = this_person, ca = FALSE)) }
The code for this analysis is publicly available at https://github.com/joebrew/vilaweb/tree/master/analyses/deleted_tweets. These charts are part of an analysis at r paste0("https://github.com/joebrew/vilaweb/tree/master/analyses/deleted_tweets", '/README.md')
.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.