2019-11-30 yyplot 绘制 研究 趋势线图

首先要安装y叔的包（yyplot），
例如我研究的方向为脑血管方向,想知道脑缺血方面RNA的研究趋势,在PubMed上文章数量

library(yyplot)
library(ggplot2)
Subject <- c("ischemia","lncRNA","stroke","miR")
pubmed  <- pubmed_trend(Subject, year= seq(2009,2019,by=1))
p <- ggplot(pubmed, aes(x=year, y=number, color=TERM)) + 
  geom_point() + geom_line() + theme_bw() + 
  xlab("Year") + ylab("Publications per Year")
p+scale_x_continuous(breaks=seq(2008, 2019, 1))

出图之后

Snipaste_2019-11-30_18-36-44.png

美化一下，换个杂志的风格看看

Snipaste_2019-11-30_18-36-26.png