## Not run:
# library('rplos'); library('plyr')
# dois <- searchplos(q='*:*', fl="id",
# fq=list(
# 'cross_published_journal_key:PLoSONE',
# 'doc_type:full',
# 'publication_date:[2010-01-01T00:00:00Z TO 2010-12-31T23:59:59Z]',
# '-article_type:correction'),
# limit=50)
# dois <- dois$data$id[!grepl("annotation", dois$data$id)]
# alm <- alm_ids(doi=dois, total_details=TRUE)
# alm <- ldply(alm$data, data.frame)
# plot_density(alm)
# plot_density(alm, color="#DCA121")
# plot_density(alm, title="Scopus citations from 2010")
# plot_density(alm, title="Scopus citations from 2010", description="Probablity of
# X number of citations for a paper")
# plot_density(alm, description="Probablity of X number of citations for a paper")
# plot_density(alm, source="crossref_total")
# plot_density(alm, source="twitter_total")
# plot_density(alm, source="counter_total")
# plot_density(alm, source=c("counter_total","facebook_likes"))
# plot_density(alm, source=c("counter_total","facebook_likes"))
# plot_density(alm, source=c("counter_total","facebook_likes", "twitter_total"))
# plot_density(alm, source=c("counter_total","crossref_total","twitter_total"),
# color=c("#DBAC6A", "#E09B33", "#A06D34"))
# plot_density(alm, source=c("counter_total","crossref_total",
# "twitter_total"))
# plot_density(alm, source=c("counter_total","crossref_total"),
# title="Counter and Crossref")
# plot_density(alm, source=c("counter_total","crossref_total",
# "twitter_total"), color=c("#83DFB4","#EFA5A5","#CFD470"))
# ## End(Not run)
Run the code above in your browser using DataLab