Web2Day

Rtweet et Web2Day

Collecte des données :

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

Visualisation

DT::datatable(web2day)

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

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

## Selecting by n

## # A tibble: 10 x 2
##    screen_name         n
##    <chr>           <int>
##  1 adrienpoggetti      3
##  2 GroupeLaPoste       3
##  3 FlorianneFDB        2
##  4 HeleneBertin        2
##  5 IOT_city            2
##  6 lephareweb          2
##  7 LPNews_PDL          2
##  8 Mlle_Ringenbach     2
##  9 ThierryDelavaud     2
## 10 webofacto           2