Extra Questions

Number of total tweets in both datasets

library(tidyverse)
library(lubridate)

neda_nine <- read_rds(here::here("data", 
                                 "NEDA_week_nineteen.rds")) %>% 
  mutate(data_year = 2019) %>% 
  select(-media) %>%   
  filter(created_at_tweet %within% interval(ymd("2019-02-25"), ymd("2019-03-04"))) %>% 
  mutate(interval_created = int_length(interval(ymd("2019-02-25"), created_at_tweet)))

neda_twenty <- read_rds(here::here("data", 
                                   "NEDA_week_twenty.rds")) %>%
  mutate(data_year = 2020) %>% 
  filter(created_at_tweet %within% interval("2020-02-24", ymd("2020-03-02"))) %>% 
  mutate(interval_created = int_length(interval(ymd("2020-02-24"), created_at_tweet)))


neda <- bind_rows(neda_nine, neda_twenty)


library(scales)

neda %>% 
  select(created_at_tweet, screen_name, retweeted_status_user_screen_name, text,
         interval_created, data_year) %>% 
  mutate(rec_screen_name = case_when(screen_name != "NEDAstaff" ~ "Others users", 
                                     TRUE ~ "NEDAstaff")) %>%  
  mutate(round_created_at_tweet = round_date(created_at_tweet, unit = "hour")) %>%
  count(data_year, round_created_at_tweet, rec_screen_name) %>%
  ggplot(aes(x = round_created_at_tweet, y = n, colour = rec_screen_name)) +
  geom_line() +
  labs(title = "", 
       colour = "Tweets posted by:", 
       x = "NEDAwareness week",
       y = "# of tweets") +
  scale_x_datetime() +
  facet_wrap(data_year ~ ., ncol = 1, scales = "free_x") +
  theme_light() +
  theme(legend.position = "bottom") +
  scale_color_brewer(palette = "Set1")

Common users in both datasets

Number of total users who tweeted at some point about neda so they are included in both neda-week data:

neda_nine %>% 
  filter(id %in% neda_twenty$id) %>% 
  distinct() %>% 
  count()

## # A tibble: 1 x 1
##       n
##   <int>
## 1  4237

Number of total users in both historical datasets:

neda_timelapse_twenty <- read_rds(here::here("data", "NEDA_historical_twenty.rds"))
neda_timelapse_nineteen <- read_rds(here::here("data", "NEDA_historical_nineteen.rds"))

neda_timelapse_nineteen %>% 
  filter(id %in% neda_timelapse_twenty$id) %>% 
  select(id) %>% 
  distinct() %>% 
  count()

## # A tibble: 1 x 1
##       n
##   <int>
## 1    75

Number of total users in week and neda historical:

neda_nine %>% 
  filter(id %in% neda_timelapse_nineteen$id) %>% 
  distinct() %>% 
  count()

## # A tibble: 1 x 1
##       n
##   <int>
## 1 13167

neda_twenty %>% 
  filter(id %in% neda_timelapse_twenty$id) %>% 
  distinct() %>% 
  count()

## # A tibble: 1 x 1
##       n
##   <int>
## 1  3486

Talking coronavirus

Number of total tweets including “coronavirus” or “covid”: 3816.

Some examples:

neda_timelapse_twenty %>% 
  filter(str_detect(text, "coronavirus|covid")) %>% 
  select(text) %>% 
  slice(1:10) %>% 
  gt::gt()

text
RT @MinisteroSalute: #covid19italia Resta a casa e segui i consigli utili a prevenire il contagio da #coronavirus: 🤲🙌💧Cura l'igiene delle…
RT @doyou_bangtan: Yes hello, it's Jin of @BTS_twt. These days, many people are worried due to the coronavirus, but it’d be good if we coul…
RT @Kpop_Herald: Seoul exhibition of Connect, @BTS_twt has been tentatively closed due to coronavirus concerns. Korean authorities say th…
RT @BarbieXanax: Italia: Zero casi accertati di coronavirus Tanti casi di razzismo
RT @988Patrick: It’s not a joke . Share guys and stay safe #coronavirus https://t.co/nmcciR8up3
RT @jjk_yeehaw: Recite što hoćete, ali mislim da su se hrvatska vlast i zdravstvo prilično dobro ponijeli tijekom ove covid-19 situacije. M…
RT @nochucamethruu: my dad’s korean restaurant in san francisco has lost 2/3 of our business this past month due to #coronavirus 🥺 if you’r…
RT @tyrathetaurus: why the fuck is our country so fucking stupid??? why are we REFUSING to test people for coronavirus?? why are we refusin…
RT @samklew: THIS IS BIG. Homeless families are taking over vacant homes in LA owned by the state. (!!!!!!!!!) “With the coronavirus, the…
RT @elkhalifag: the government be like: due to the coronavirus we will be providing human rights