View source: R/pubmed_search.R
pubmed_search | R Documentation |
This functions returns dataframe, several .
pubmed_search(search_str, years, outfmt)
search_str |
character: search strings using pubmed filter. E.g. [ti],[tiab],[tw] Literature Search Methods |
years |
integer vector: E.g. 1980:2017 |
outfmt |
character: "tab" is a table of results ,or "cnt" is a count of hits per years. The default value is "tab". |
dataframe or EUtilsSummary object
## pubmed table ## Not run: str1 <- "microarray[tiab]" str2 <- "next-generation sequencing[tiab]" str3 <- "microarray[tiab] AND next-generation sequencing[tiab]" str4 <- "cpa2[gs]" str4 <- "MinION[tiab]" yr <- 1980:2018 res1 <- pubmed_search(search_str = str1, years = yr, outfmt = "tab") res2 <- pubmed_search(search_str = str2, years = yr, outfmt = "tab") res3 <- pubmed_search(search_str = str3, years = yr, outfmt = "tab") res4 <- pubmed_search(search_str = str4, years = yr, outfmt = "tab") ## count cnt1 <- pubmed_search(search_str = str1, years = yr, outfmt = "cnt") cnt2 <- pubmed_search(search_str = str2, years = yr, outfmt = "cnt") ## count plot barplot(cnt1, las=2, ylim=c(0,6000), col=adjustcolor(2, 0.5), border = adjustcolor(2, 0.5)); par(new=T); barplot(cnt2, las=2, ylim=c(0,6000), col=adjustcolor(4, 0.5), border = adjustcolor(4, 0.5)) legend("topleft", legend = c("microarray[title & abstract]", "next-generation sequencing[title & abstract]"), col = adjustcolor(c(2,4), 0.5), pch = 15, bg = "transparent", box.lwd = NA) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.