pubmed趋势

library(yyplot)
library(ggplot2)
pm <- pubmed_trend("BPTF", year = 2000:2018)
p <- ggplot(pm_b, aes(x = year, y = number))+
  geom_bar(stat = "identity")+
  theme_classic()
p