Onnowpurbo: Created page with " #install.packages("streamR") #install.packages("ROAuth") library(ROAuth) library(streamR) #sets your working directory setwd('/home/stats/data') #create your OAuth..."

2017-01-28T03:15:35Z

Created page with " #install.packages("streamR") #install.packages("ROAuth") library(ROAuth) library(streamR) #sets your working directory setwd('/home/stats/data') #create your OAuth..."

New page

#install.packages("streamR")
#install.packages("ROAuth")
library(ROAuth)
library(streamR)

#sets your working directory
setwd('/home/stats/data')

#create your OAuth credential
credential <- OAuthFactory$new(consumerKey='***CONSUMER KEY***',
consumerSecret='***CONSUMER SECRET KEY***',
requestURL='https://api.twitter.com/oauth/request_token',
accessURL='https://api.twitter.com/oauth/access_token',
authURL='https://api.twitter.com/oauth/authorize')

#authentication process
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))
download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.pem")
credential$handshake(cainfo="cacert.pem")

#function to actually scrape Twitter
filterStream( file.name="tweets_test.json",
track="twitter", tweets=1000, oauth=credential, timeout=10, lang='en' )

#Parses the tweets
tweet_df <- parseTweets(tweets='tweets_test.json')

#using the Twitter dataframe
tweet_df$created_at
tweet_df$text

plot(tweet_df$friends_count, tweet_df$followers_count) #plots scatterplot
cor(tweet_df$friends_count, tweet_df$followers_count) #returns the correlation coefficient

==Referensi==

* https://github.com/seandolinar/Twitter-Tutorial/blob/master/twitter_streamR_scraper.R

Twitter streamR scraper.R - Revision history

Onnowpurbo: Created page with " #install.packages("streamR") #install.packages("ROAuth") library(ROAuth) library(streamR) #sets your working directory setwd('/home/stats/data') #create your OAuth..."