1 Load data:

counts_raw <- read.delim("data/counts-raw.txt.gz")
counts_norm <- read.delim("data/counts-norm.txt.gz")

2 Data analysis:

Figure 1: Number of Authors per Article

Figure 1: Number of Authors per Article

Figure 2: Facebook shares across articles

Figure 2: Facebook shares across articles

The average number of Facebook shares per paper in the data set is 0.6524187.