Data

The Public Library of Science (PLoS) is a nonprofit open-access science, technology, and medicine publisher. PLoS journals represent an extensive library of open-access journals and other scientific literature under an open-content license. The rplos package interacts with the PLoS journals and allows you to search and retrieve a wide variety of information from PLoS – no API key required!

Retrieve PLoS Titles

library(dplyr)
library(tm)
library(rplos)
#plosabstract searches the abstracts
#the fl command identifies what to retrieve
plos = plosabstract(q= "climate change", fl= "title", limit = 500)
head(plos)
$meta

$data
NA
#create a corpus of titles stripped of meaningless words
titleCorpus=with(plos, VCorpus(VectorSource(plos)))%>%
  tm_map(stripWhitespace)  %>%
  tm_map(removeNumbers)  %>%
  tm_map(removePunctuation)  %>%
  tm_map(content_transformer(tolower))  %>%
  tm_map(removeWords, stopwords("english"))

PLoS Climate Change Wordcloud

library(SnowballC)
library(wordcloud)
library(RColorBrewer)
wordcloud(titleCorpus, max.words = 50, scale = c(6, 1),
          colors=brewer.pal(3, "Set2"),random.order = FALSE)

LS0tCnRpdGxlOiAiT25lIE1vcmUgUExvUyBXb3JkY2xvdWQiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazogCiAgICB0aGVtZTogcmVhZGFibGUKLS0tCgojRGF0YQpUaGUgUHVibGljIExpYnJhcnkgb2YgU2NpZW5jZSAoUExvUykgaXMgYSBub25wcm9maXQgb3Blbi1hY2Nlc3Mgc2NpZW5jZSwgdGVjaG5vbG9neSwgYW5kIG1lZGljaW5lIHB1Ymxpc2hlci4gUExvUyBqb3VybmFscyByZXByZXNlbnQgYW4gZXh0ZW5zaXZlIGxpYnJhcnkgb2Ygb3Blbi1hY2Nlc3Mgam91cm5hbHMgYW5kIG90aGVyIHNjaWVudGlmaWMgbGl0ZXJhdHVyZSB1bmRlciBhbiBvcGVuLWNvbnRlbnQgbGljZW5zZS4gVGhlICpycGxvcyogcGFja2FnZSBpbnRlcmFjdHMgd2l0aCB0aGUgUExvUyBqb3VybmFscyBhbmQgYWxsb3dzIHlvdSB0byBzZWFyY2ggYW5kIHJldHJpZXZlIGEgd2lkZSB2YXJpZXR5IG9mIGluZm9ybWF0aW9uIGZyb20gUExvUyAtLSBubyBBUEkga2V5IHJlcXVpcmVkIQoKI1JldHJpZXZlIFBMb1MgVGl0bGVzCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkoZHBseXIpCmxpYnJhcnkodG0pCmxpYnJhcnkocnBsb3MpCiNwbG9zYWJzdHJhY3Qgc2VhcmNoZXMgdGhlIGFic3RyYWN0cwojdGhlIGZsIGNvbW1hbmQgaWRlbnRpZmllcyB3aGF0IHRvIHJldHJpZXZlCnBsb3MgPSBwbG9zYWJzdHJhY3QocT0gImNsaW1hdGUgY2hhbmdlIiwgZmw9ICJ0aXRsZSIsIGxpbWl0ID0gNTAwKQpoZWFkKHBsb3MpCmBgYAoKYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0KI2NyZWF0ZSBhIGNvcnB1cyBvZiB0aXRsZXMgc3RyaXBwZWQgb2YgbWVhbmluZ2xlc3Mgd29yZHMKdGl0bGVDb3JwdXM9d2l0aChwbG9zLCBWQ29ycHVzKFZlY3RvclNvdXJjZShwbG9zKSkpJT4lCiAgdG1fbWFwKHN0cmlwV2hpdGVzcGFjZSkgICU+JQogIHRtX21hcChyZW1vdmVOdW1iZXJzKSAgJT4lCiAgdG1fbWFwKHJlbW92ZVB1bmN0dWF0aW9uKSAgJT4lCiAgdG1fbWFwKGNvbnRlbnRfdHJhbnNmb3JtZXIodG9sb3dlcikpICAlPiUKICB0bV9tYXAocmVtb3ZlV29yZHMsIHN0b3B3b3JkcygiZW5nbGlzaCIpKQpgYGAKCiMgUExvUyBDbGltYXRlIENoYW5nZSBXb3JkY2xvdWQKCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkoU25vd2JhbGxDKQpsaWJyYXJ5KHdvcmRjbG91ZCkKbGlicmFyeShSQ29sb3JCcmV3ZXIpCndvcmRjbG91ZCh0aXRsZUNvcnB1cywgbWF4LndvcmRzID0gNTAsIHNjYWxlID0gYyg2LCAxKSwKICAgICAgICAgIGNvbG9ycz1icmV3ZXIucGFsKDMsICJTZXQyIikscmFuZG9tLm9yZGVyID0gRkFMU0UpCmBgYAoK