# 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')

CatalĂ 

people <- tolower(sort(unique(df$username)))
for(i in 1:length(people)){
  this_person <- people[i]
  print(plot_when(user = this_person, ca = TRUE))
}

English

for(i in 1:length(people)){
  this_person <- people[i]
  print(plot_when(user = this_person, ca = FALSE))
}

Technical details

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').



joebrew/vilaweb documentation built on Sept. 11, 2020, 3:42 a.m.