El «Día Mundial de los Océanos» es el 8 de junio y Twitter se llena de tweets en conmemoración y llamando a su protección.

Así en esta ocasión se va a utilizar una librearía de R para localizar tweets con el hashtag #DíaMundialdelosOcéanos, lo pongo con tilde, no puedo evitarlo…La librería se denomina “rtweet”. Así en RStudio, la instalamos junto con otras librerías que voy a necesitar.

install.packages("rtweet")
install.packages("ggplot2")
install.packages("dplyr")
install.packages("tidytext")
install.packages("igraph")
install.packages("ggraph")

Las activo:

library(rtweet)
library(rtweet)
library(ggplot2)
library(dplyr)
library(tidytext)
library(igraph)
library(ggraph)

A continuación, indico que busque los tweets con dicho hashtag, máximo de 100:

mmarinotweets  <- search_tweets("#DíaMundialDelosOcéanos", n = 100, include_rts = FALSE)

Se le dará acceso a la API de Twitter y se incluirán en una tabla :

Podemos realizar diferentes tipos de gráficas e incluir en un mapa dicha información,  por ejemplo, en este caso se va a averiguar cuándo se han escrito:

ts_plot(mmarinotweets , "minutes")

Si se quiere localizar la ubicación de dichos tweets, se incluye el siguiente código:

mmarinotweets %>%
filter(location != "", !is.na(location)) %>%
count(location) %>%
top_n(10, n) %>%
ggplot() +
geom_col(aes(x = reorder(location, n), y = n)) +
coord_flip() +
labs(title = "Procedencia de los mmarinotweets",
x = "ubicación",
y = "cantidad")

Y se obtendrá la gráfica resultado con dicha información:

1 estrella2 estrellas3 estrellas4 estrellas5 estrellas (1 votos, promedio: 5,00 de 5)

Cargando…

Formación de calidad impartida por profesionales