En este post vamos a ver como ver que usuarios hablan de nuestro producto en Twitter y presentarlo de una forma sencilla.
Para este ejemplo vamos a mirar el hashtag #nintendo,
Como vimos en otro Post, lo primero que tenemos que hacer es hacer la consulta en Twitter y guardarlo en un data frame.
library(twitteR)
api_key <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
api_secret <- "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
setup_twitter_oauth(api_key,api_secret)## [1] "Using browser based authentication"Consulta = searchTwitter("#nintendo", geo=NULL, since="2017-05-10", until="2017-05-15")
Datos_Tweets = twListToDF(Consulta)
Consulta_data_frame = do.call("rbind", lapply(Consulta, as.data.frame))Creamos la variables usuarios, seleccionando los usuarios del data frame y los ordenamos de mazor a menor.
Consulta_transformada = twListToDF(Consulta)
Usuarios = table(Consulta_transformada$screenName)
Usuarios_ordenados = sort(Usuarios, decreasing=T)Para presentar estos datos de manera visual creamos una paleta de colores con un degradado.
degradado = function (color1, color2, degradados)
{
library(grDevices)
palete = colorRampPalette(c(color1, color2))
palete (degradados)
}
paleta = degradado ("#033240", "#0895BF", 15)Para poder visualizar estos datos vamos a crear una grafica, desglosada en tres partes: 1º Establecemos los margenes para ajustar la imagen 2º Dibujamos la grafica con los 15 ususarios mas activos. 3º Añadimos una leyenda explicando los datos.
## Establezco los márgenes para ajustar la imagen y el color de fondo
par(mar=c(10,5,2,2), bg="white")
## Dibujo un plot de los 15 usuarios TOP
barplot(Usuarios_ordenados[1:15], las=2, cex.names =1, col=paleta)
## creo la función last para sacar la última entrada y su fecha
last = function(x) { tail(x, n = 1) }
## Incluyo una leyenda con los datos de la búsqueda.
hashtag = "Nintendo"
legend("topright", title=paste("Usuarios más activos en ",hashtag, sep=""), legend=paste(last(Consulta_transformada$created), " hasta ",Consulta_transformada$created[1]), text.col="#FFFFFF", bg="#333333B2", inset=0)
Y conseguimos una representacion grafica de los usuarios que mas Twittean con el hashtag # Nintendo.