Wordcloud de social media en Twitter

wall2

Podemos obtener una nube de palabras  con el uso de la libreria wordcloud en lenguaje R. Debemos realizar la autenticacion con una cuenta en twitter  con la informacion obtenida en el registro APPS de Twitter (https://apps.twitter.com/) para  configurar las variables: api_key, api_secret, access_token y access_token_secret. Hicimos el ejercicio con las palabras «social» y «media», en idioma ingles, y el resultado se puede apreciar en la grafica.   Palabras asociadas como manager, marketing,  people, like, business, aparecen como las mas relevantes y nos dan una idea de palabras que debemos asociar a futuras publicaciones  en Twitter, debido a que son las populares en búsquedas a «social media».

A continuación el código para realizar la nube de palabras en R:

 

library(tm)
library(igraph)
library(RColorBrewer)
library(httr)
library(twitteR)
library(wordcloud)
oauth_endpoints(«twitter»)
## using my existing twitter api
##
api_key <- ‘ ‘
api_secret <- ‘  ‘
access_token <- ‘ ‘
access_token_secret <- ‘ ‘

setup_twitter_oauth(api_key,api_secret,access_token,access_token_secret)
twitter_search =searchTwitter(«social+media», n=2000, lang=»en»)

searchTwitter(«social+media», n=2000, lang=»en», resultType=»recent»)
searchTwitter(«social+media», n=201100, lang=»en», resultType=»popular»)
##searchTwitter(«social + media», n=500, lang=»en», resultType=»popular»)
##searchTwitter(«social + media», n=25, geocode=’37.781157, -122.39720, 1mi’)
##searchTwitter(«social+media», n=500,lang=»en», until=’2016-04-18′)

# Get text data from the result of Twitter search
text1 <- sapply(twitter_search, function(x) x$getText())
# Remove retweets
text1 = gsub(«(RT|via)((?:\\b\\W*@\\w+)+)», «», text1)
# Remove at people
text1 = gsub(«@\\w+», «», text1)
# Remove punctuation
text1 = gsub(«[[:punct:]]», «», text1)
# Remove numbers
text1 = gsub(«[[:digit:]]», «», text1)
# Remove html links
text1 = gsub(«http\\w+», «», text1)
# remove unnecessary spaces
text1 = gsub(«[ \t]{2,}», «», text1)
text1 = gsub(«^\\s+|\\s+$», «», text1)

# define «tolower error handling» function
tryTolower = function(x)
{
# create missing value
y = NA
# tryCatch error
try_error = tryCatch(tolower(x), error=function(e) e)
# if not an error
if (!inherits(try_error, «error»))
y = tolower(x)
# result
return(y)
}

 


Warning: count(): Parameter must be an array or an object that implements Countable in /homepages/11/d622453770/htdocs/clickandbuilds/SocialTechMonkeys/wp-includes/class-wp-comment-query.php on line 405

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *