Calculate average altmetric

CreateMetrics.R

# MJ 14/12/2015
#### Load or install packages ####
if(!require(devtools))install.packages("devtools");library(devtools)
if(!require(rAltmetric))install.packages("rAltmetric");library(rAltmetric)
if(!require(plyr))install.packages("plyr");library(plyr)
if(!require(ggplot2))install.packages("ggplot2");library(ggplot2)

# This script expects a csv file with title / year / journal / doi
refs <- read.csv("ScharlemannlabPublications.csv",header = T,stringsAsFactors = F)

tot_r <- data.frame()

#### - Calculate average group altmetric - ####
alt <- subset(refs,DOI!="") # Kickout those studies with empty DOI. Altmetric needs an identifier
a <- with(alt,lapply(DOI,function(x) altmetrics(doi = x))) # Get altmetric objects for all refs with a DOI
alt_df <- ldply(a, altmetric_data)

# Average altmetric score + SD
tot_r <- rbind(tot_r,
                 data.frame(Metric = "Altmetric",
                            avg = mean(alt_df$score,na.rm = T),
                            sd = sd(alt_df$score,na.rm = T)))

# Make a quick plot
alt$Score <- alt_df$score;alt$Year <- as.factor(alt$Year)
qplot(Year,Score,data=alt,geom=c("boxplot", "jitter"),fill=Year,main = "Altmetric score") + theme_classic()

tot_r

ScharlemannlabPublications.csv