Analyse des données des médias sociaux avec R
Sowmya Vivek
Data Science Coach

library(rtweet)
# Extraire 18000 tweets sur "#politics"
pol <- search_tweets("#politics", n = 18000)
# Extraire les données de géolocalisation et ajouter de nouvelles colonnes
pol_coord <- lat_lng(pol)
coords_coords ou bbox_coordsView(pol_coord)

# Omettre les lignes avec des valeurs lat et lng manquantes
pol_geo <- na.omit(pol_coord[, c("lat", "lng")])
head(pol_geo)
lat lng
<dbl> <dbl>
19.17414 72.874244
53.35490 -6.247621
53.27350 -6.399521
53.67989 9.372680
12.92311 77.558448
54.59940 -5.836670
# Tracer la longitude et la latitude des tweets sur la carte des États-Unis
map(database = "state", fill = TRUE, col = "light yellow")
with(pol_geo, points(lng, lat, pch = 20, cex = 1, col = 'blue'))

# Tracer la longitude et la latitude des tweets sur la carte du monde
map(database = "world", fill = TRUE, col = "light yellow")
with(pol_geo, points(lng, lat, pch = 20, cex = 1, col = 'blue'))

Analyse des données des médias sociaux avec R