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