Web2Day

Collecte des données :

library(tidyverse)
library(rtweet)
web2day <- search_tweets("#Web2Day")

Les données

DT::datatable(web2day, options = list(scrollX = TRUE))

Visualisation

web2day %>%
  ggplot() + 
  aes(created_at) + 
  geom_density()

Les users

web2day %>%
  count(screen_name, sort = TRUE) %>%
  top_n(5)

## Selecting by n

## # A tibble: 8 x 2
##   screen_name         n
##   <chr>           <int>
## 1 FlorianneFDB        5
## 2 billet_p            4
## 3 ArmonieBLIV         3
## 4 BernardMarcadet     3
## 5 ClemenceRouart      3
## 6 Dverlinde           3
## 7 HeleneBertin        3
## 8 PironTristan        3