Instalar paquetes

Para esto vamos a usar el paquete twitterR:

#Instalar paquetes(esto solo es necesario la primera vez)
install.packages("twitteR")
install.packages("dplyr")
install.packages("tidyr")

#Cargar librerias
library(twitteR)
library(dplyr)
library(tidyr)

Acceder a Twitter

Para ello requerimos los accesos de nuestra API de twitter que creamos en: https://apps.twitter.com

consumerKey = "INSERT KEY HERE"
consumerSecret = "INSERT SECRET KEY HERE"
accessToken = "INSERT TOKEN HERE"
accessSecret = "INSERT SECRET TOKEN HERE"
options(httr_oauth_cache=TRUE)
setup_twitter_oauth(consumer_key = consumerKey, consumer_secret = consumerSecret,
access_token = accessToken, access_secret = accessSecret)

Extraer tweets de un usuario

Por ejemplo si fueran los tweets de Luis Guillermo Solís:

#Creamos un objeto que guarde los tweets
luisguitweets<- userTimeline("luisguillermosr", n = 3200)
#Comvertimos el objeto en una base de datos
luisguitweets_df <- tbl_df(map_df(luisguitweets, as.data.frame))
#Lo guardamos como un csv
write.csv(obamatweets_df, "luisguitweets.csv")
Buscar por hashtag
Por ejemplo si buscamos el hashtag #yeswecan
#Ponemos exclude:retweets para que no salgan los retweets
yeswecan <- searchTwitter("#yeswecan exclude:retweets", n=3200)
#convertir en base de datos
yeswecan_df <- tbl_df(map_df(yeswecan, as.data.frame))
#Exportar a csv
write.csv(yeswecan_df, "yeswecan.csv")

Buscar tweets dirigidos a un usuario

Por ejemplo si queremos ver todos los tweets dirigidos a Antonio Álvarez (@alvarez_desanti):

tweetsdesanti<- searchTwitter("@alvarez_desanti exclude:retweets", n=3200)
tweetsdesanti_df <- tbl_df(map_df(tweetsdesanti, as.data.frame))
write.csv(tweetsdesanti_df, "tweetsdesanti.csv")

Salvar archivos como excel

Para salvar como un archivo .xlsx usamos el paquete xlsx. Este requiere tener instalado Java en la computadora. Nota: si se tiene Java el paquete funciona correctamente en Windows, en Mac da problemas.

#Instalar paquete
install.packages("xlsx")
#Cargar paquetes
library(xlsx)
#Guardar un archivo como excel, por ejemplo el de los tweets de desanti:
write.xlsx(tweetsdesanti_df, "tweetsdesanti_df.xlsx")