Site icon R-bloggers

A glance at R-bloggers Twitter feed

[This article was first published on Maëlle, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

It’s the second time I write a post about the blog aggregator R-bloggers, probably because I’m all about R blogs now that I have one. My husband says my posts are so meta. My first post was about R blogs names, in this one I shall focus on the last 1,000 tweets from R-bloggers.

< !--more-->

Getting the tweets

Thanks to rtweet, this is fairly easy. I get rid of empty columns using janitor, which is a package you should really check out if you ever have to clean data.

library("rtweet")             
rbloggers <- get_timeline(user = "Rbloggers",
                          n = 1000)

rbloggers <- janitor::remove_empty_cols(rbloggers)

readr::write_csv(rbloggers, path = "data/2017-02-28-rbloggerstweets.csv")

knitr::kable(head(rbloggers))
created_at status_id text source is_quote_status retweet_count favorite_count lang user_id screen_name mentions_user_id mentions_screen_name hashtags urls is_retweet
2017-02-28 20:00:42 836667465333673984 How to annotate a plot in ggplot2 https://t.co/78h18Plc5e #rstats #DataScience r-bloggers.com FALSE 12 17 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Crh FALSE
2017-02-28 17:00:40 836622157295857665 How to create correlation network plots with corrr and ggraph (and which countries drink like https://t.co/K8g1OkvWMs #rstats #DataScience r-bloggers.com FALSE 14 55 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Cre FALSE
2017-02-28 16:11:45 836609848276037636 forecast 8.0 https://t.co/XATCVdeoJ8 #rstats #DataScience r-bloggers.com FALSE 15 38 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Crc FALSE
2017-02-28 15:18:28 836596435307081729 New R job: Applied Research Statistician/Methodologist https://t.co/Hfkanf74aM #rstats #DataScience #jobs r-bloggers.com FALSE 2 7 en 144592995 Rbloggers NA NA rstats,DataScience,jobs https://www.r-users.com/jobs/applied-research-statisticianmethodologist/ FALSE
2017-02-28 13:12:59 836564859647033344 [WEBINAR] Trading in Live Markets using R https://t.co/nNGyQOqUmw #rstats #DataScience r-bloggers.com FALSE 5 21 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Cra FALSE
2017-02-28 00:40:34 836375506945716226 Video Introduction to Bayesian Data Analysis, Part 2: Why use Bayes? https://t.co/fmHtKr99kw #rstats #DataScience r-bloggers.com FALSE 49 101 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-CqZ FALSE

Now that I have the data, I’ll have a look at the content of the tweet, at their temporal patterns and at their popularity.

What are the most frequent words?

For finding the most frequent words in the tweets I use what has now become my usual workflow with tidytext. I remove 4 words that correspond to the hashtags used in every tweet (#rstats and #datascience) and to links (https and t.co)

rbloggers <- readr::read_csv("data/2017-02-28-rbloggerstweets.csv")
library("tidytext")
library("dplyr")
library("rcorpora")
library("lubridate")
library("ggplot2")
library("viridis")
stopwords <- corpora("words/stopwords/en")$stopWords

rbloggers_words <- rbloggers %>%
  unnest_tokens(word, text) %>%
  count(word, sort = TRUE) %>%
filter(!word %in% stopwords) %>%
  filter(!word %in% c("rstats", "datascience",
                      "t.co", "https"))
knitr::kable(head(rbloggers_words, n = 20))
word n
data 171
analysis 62
jobs 48
package 46
job 41
2 36
shiny 33
science 28
1 27
2017 26
regression 22
learning 20
scientist 19
app 18
map 18
ggplot2 17
interactive 17
rstudio 17
statistics 17
model 16

I’m not surprised by the trendy words, I guess you could mix a few of them up and get a pretty cool title, e.g. “How to make an app in RStudio with an interactive map in it” or “let’s analyse data with a regression and plot everything with ggplot2”. I think I’m more surprised that in 1,000 tweets, no word is that predominant.

When are blog posts published?

I’ll start with a warning, R-bloggers tweets appear a bit after the actual blog posts are published, about a few hours I’d say. I actually need a second warning, regarding time of day we have to keep in mind R blogs can be written from everywhere on the planet so in theory R-bloggers is an account that never sleeps.

rbloggers <- mutate(rbloggers, wday = as.factor(wday(created_at, label = TRUE)))
rbloggers <- mutate(rbloggers, hour = as.factor(hour(created_at)))
rbloggers <- mutate(rbloggers, week = week(created_at))
rbloggers <- mutate(rbloggers, day = as.Date(created_at))

Note that the reason I can use week is that there are no tweets from more than one year ago in my data.

Here I’ll show the number of tweets by day of the week.

weekday_dat <- rbloggers %>%
  group_by(week, wday) %>%
  summarize(n = n(), created_at = created_at[1]) 

arrange(weekday_dat, desc(n)) %>%
  head() %>%
  knitr::kable()
week wday n created_at
4 Sun 98 2017-01-22 23:50:19
4 Mon 82 2017-01-23 23:10:18
3 Sat 65 2017-01-21 23:52:03
4 Wed 34 2017-01-25 22:10:27
4 Fri 19 2017-01-27 23:40:37
6 Tues 19 2017-02-07 23:50:44

There are a few days with a lot of tweets, which I guess is due to one blog being added and all its posts being shared at once? In any case, I’ll remove these days from the figure by not showing outliers.

ggplot(weekday_dat) +
  geom_boxplot(aes(wday, n),
               outlier.shape = NA) +
  scale_y_continuous(limits =  quantile(weekday_dat$n, c(0, 0.9)))

I’m not too sure what to conclude as regards a possible day-of-the-week pattern. Maybe I’d need more data, since I don’t even have a full year of data:

min(rbloggers$created_at)
## [1] "2016-12-14 19:06:23 UTC"
max(rbloggers$created_at)
## [1] "2017-02-28 20:00:42 UTC"

With more data maybe I could say whether R-bloggers, who I think are often not blogging for work, post more on the week-ends. Thinking of programming, week-ends and weekdays makes me think of this very good post of Julia Silge’s. Similarly for hour of the day (results not shown) I’m a victim, I think, of the size of my dataset. Moreover, even with a bigger sample, I’d still have trouble finding a circadian rythm since it’d mix tweets from several timezones, without any information about the location of the blog author. Too bad! And with years of data I could even look at seasonality!

How popular are R-bloggers tweets?

I’ll be honest, this is the primary reason why I got interested into R-bloggers’ feed. I wondered how famous it made my poor young blog. Well if I have to be honest I also wondered how visible an error of mine would be.

ggplot(rbloggers) +
  geom_histogram(aes(favorite_count))

ggplot(rbloggers) +
  geom_histogram(aes(retweet_count))

Both look like negative binomial distributions, right? But I don’t want to model them, I’m in a minimalistic mood. Note that the median number of retweet is 8 and the median number of favorites is 19. Let’s see which were the most popular tweets.

arrange(rbloggers, desc(retweet_count)) %>%
  head() %>%
  knitr::kable()
created_at status_id text source is_quote_status retweet_count favorite_count lang user_id screen_name mentions_user_id mentions_screen_name hashtags urls is_retweet wday hour week day
2016-12-29 08:02:09 8.143810e+17 7 Visualizations You Should Learn in R https://t.co/p7aww3ueiU #rstats #DataScience r-bloggers.com FALSE 119 214 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-BEP FALSE Thurs 8 52 2016-12-29
2017-01-03 17:42:14 8.163389e+17 Why R is the best data science language to learn today https://t.co/Bp5XouKIZ9 #rstats #DataScience r-bloggers.com FALSE 101 129 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-BGQ FALSE Tues 17 1 2017-01-03
2017-01-25 03:10:20 8.240920e+17 Free guide to text mining with R https://t.co/o8pkSA3Rke #rstats #DataScience r-bloggers.com FALSE 99 191 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-C1p FALSE Wed 3 4 2017-01-25
2017-02-24 10:50:47 8.350795e+17 Announcing ggraph: A grammar of graphics for relational data https://t.co/5jKGoK6Dsu #rstats #DataScience r-bloggers.com FALSE 94 141 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Cpx FALSE Fri 10 8 2017-02-24
2017-02-07 03:50:39 8.288132e+17 Deep Learning in R https://t.co/HTHKDy7mnN #rstats #DataScience r-bloggers.com FALSE 92 189 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-Cer FALSE Tues 3 6 2017-02-07
2017-01-28 12:10:33 8.253151e+17 The “Ten Simple Rules for Reproducible Computational Research” are easy to reach for R users https://t.co/9hsKE2FgHt #rstats #DataScience r-bloggers.com FALSE 91 122 en 144592995 Rbloggers NA NA rstats,DataScience https://wp.me/pMm6L-C6O FALSE Sat 12 4 2017-01-28

I’m happy to report I’d heard of most of these posts. I feel so well informed.

Now I guessed that the number of retweets and favorites were correlated, so I decided to draw a scatterplot which according to one of the posts above is a visualization you should learn.

ggplot(rbloggers) +
geom_point(aes(retweet_count, favorite_count))

Wow! I was so surprised by this plot that I decided to make the same for another R content aggregator account, R Weekly.

rweekly_org <- get_timeline(user = "rweekly_org",
                          n = 1000)

ggplot(rweekly_org) +
geom_point(aes(retweet_count, favorite_count)) +
  ggtitle("rweekly_org's timeline")

Well here we have far less tweets sadly. I still think there might be a golden ratio of some sort hidden here, so I’ll fit linear models to both datasets.

model <- lm(favorite_count ~ retweet_count, data = rbloggers)
broom::tidy(model) %>% knitr::kable()
term estimate std.error statistic p.value
(Intercept) 4.945224 0.4105901 12.04419 0
retweet_count 1.779315 0.0223167 79.73038 0
model2 <- lm(favorite_count ~ retweet_count, data = rweekly_org)
broom::tidy(model2) %>% knitr::kable()
term estimate std.error statistic p.value
(Intercept) 2.118446 2.7470733 0.7711648 0.4434471
retweet_count 1.382438 0.1783162 7.7527315 0.0000000

Now I just hope that if we collected more data for both accounts, the second coefficient estimate would be close to the golden ratio, about 1.618. Or I could let social media specialists explain me why retweets and favorites have this correlation. Or where the mistake in my post is, which I’d like to know before it gets sort of viral thanks to R-bloggers.

To leave a comment for the author, please follow the link and comment on their blog: Maëlle.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.