twitter y R

Twitter y R

Con la librería twitteR de R podemos tener acceso a algunos datos y estadísticas de usuarios y temas de twitter. Entre otras cosas, podemos acceder al número de tweets de un usuario, el número de seguidores y el historial de sus tweets.

Por ejemplo, tomemos los twetter de la mayoría de universidades públicas en Colombia:

require(twitteR)

# Cargamos los usuarios

usuarios = c("Unicordoba_Col", "unimedios", "UdeA", "UdelAtlantico", "universidaduptc",

"uni_cartagena", "udecaldas", "UniPopularCesar", "unimagdalena", "UniLaGuajira",

"UnivalleCol", "unicauca", "PrensaUTCH", "USCOoficial", "Udenar","UFPSCUCUTA",

"Unipamplona", "Uniquindio", "UTPereira", "UISenlinea", "Unisucre", "unillanos_")

u = sapply(usuarios,getUser) # Extrae la información básica de cada usuario

Universidad = sapply(u,name) # Extrae los nombres de los usuarios

Seguidores = sapply(u,followersCount) # Número de seguidores

Siguiendo = sapply(u,friendsCount) # Número de usuarios que siguen

Actualizaciones = sapply(u,statusesCount) # Número de actualizaciones

Tweets = sapply(u,tweetCount) # Número de tweets

# Creamos un data.frame con la información anterior

datos = data.frame(Universidad, Siguiendo, Seguidores, Actualizaciones, Tweets)

datos

Universidad Siguiendo Seguidores Actualizaciones Tweets

Unicordoba_Col Unicórdoba 328 1668 177 177

unimedios Universidad Nacional 1 24192 8707 8707

UdeA UdeA 392 24105 3424 3424

UdelAtlantico udelatlantico 7 3155 435 435

universidaduptc UPTC Boyacá 45 80 62 62

uni_cartagena UniCartagena 161 2620 493 493

udecaldas Universidad Caldas 424 6198 5114 5114

UniPopularCesar Universidad Popular 712 601 93 93

unimagdalena Unimagdalena 38 3755 531 531

UniLaGuajira UniGuajira 196 99 88 88

UnivalleCol Univ. del Valle 1220 8212 1648 1648

unicauca Unicauca 12 3841 1593 1593

PrensaUTCH UChocó 2001 1653 454 454

USCOoficial USCO Oficial 0 1065 272 272

Udenar Udenar 45 371 396 396

UFPSCUCUTA UFPS 184 3666 517 517

Unipamplona Unipamplona 108 4711 2211 2211

Uniquindio Universidad Quindío 43 2551 405 405

UTPereira UTP 8318 7810 2603 2603

UISenlinea UIS 138 9171 3665 3665

Unisucre Unisucre 548 606 519 519

unillanos_ UNILLANOS 13 1095 178 178

Podemos usar la librería ggplot2 para hacer algunos gráficos:

require(ggplot2)

qplot(Universidad, Tweets, data = datos, geom = "bar") + coord_flip()

m = qplot(Universidad, Tweets, data = datos,geom="bar", fill = Seguidores)

m + coord_flip()

m + coord_flip() + coord_polar()

m = qplot(Universidad, Tweets/Seguidores, data = datos,geom = "bar")

m + coord_flip()

qplot(Universidad, Tweets/Seguidores, data = datos, geom = "bar", fill = Actualizaciones) + coord_flip()

También podemos mirar los últimos tweets de un usuario:

us = getUser("unimedios")

tl = userTimeline(screenName(us), n=10)

tl

Comparte esto: