counts_raw <- read.delim("data/counts-raw.txt.gz")
counts_norm <- read.delim("data/counts-norm.txt.gz")
Figure 1: Number of Authors per Article
Figure 2: Facebook shares across articles
The average number of Facebook shares per paper in the data set is 0.6524187.