KWB Tweets

Michael Rustler

2021-09-11

Create Twitter Token

twitter_token <- kwb.twitter::create_twitter_token()
rtweet:::rate_limit(token = twitter_token)

Get Data For KWB Tweeters

users <- c("CLoderer", "kompetenzwasser", "MichaelRustler", "KWBerlin_R", 
           "nutrient_rec", "rgnirss", "UlfMiehe")

kwb_tweeters <- rtweet::lookup_users(users, token = twitter_token)

## preview users data
kwb_tweeters 

kwb_timelines <- rtweet::get_timelines(users, 
                                       n = 3200,
                                       token = twitter_token)


table(kwb_timelines$screen_name)

Plot Tweet Timeline Per Tweeter

kwb.twitter::plot_timelines_per_tweeter(timelines = kwb_timelines) 

## get user IDs of accounts followed by kwb
kwb_follows <- rtweet::get_friends("kompetenzwasser", token = twitter_token)
## get user IDs of accounts followed by CNN
kwb_followers <- rtweet::get_followers("kompetenzwasser", token = twitter_token)
kwb_followers_info <- rtweet::lookup_users(kwb_followers$user_id,token = twitter_token)
# extract most recent tweets data from the famous tweeters
kwb_tweets <- rtweet::tweets_data(kwb_tweeters)
rtweet:::rate_limit(token = twitter_token)