R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:22643
  • 小组等级:9
  • 话题:593
  • 回答:39
  • 签到:408
  • 小组排名:
  • R2-37 第2阶段第4次

    洪学志 发布于:2018.04.25

    library("httr")

    library(ggplot2)


    yeardata=c()


    countdata=c()


    url = "https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi"


    for (i in 1:10) {


      year=2007 +i


      term = paste('Rheumatoid arthritis[TI] AND ',year,'[DP]',sep = "")


      r<- POST(


        url,


        body = list(


          db='pubmed',


          term=term,


          retmode='json',


          retstart=0,


          retmax=10,


          rettype='uilist'


          )


       )


      stop_for_status(r)


      data=content(r,"parsed","application/json")


      esearchresult=data$esearchresult


      count=esearchresult$count


      yeardata=c(yeardata,year)


      countdata=c(countdata,count)


    }


    data=data.frame(year=yeardata,count=countdata)


    print(data)


    ggplot(data,aes(x=factor(year),y=count))+


     geom_bar(aes(fill=count),stat='identity',width = 0.8)


    1.png

     
    0条评论 131浏览 邀请回答
    沙发空缺中~

    小组告示

    科研狗 2012-2016 京ICP备16006621 科研好助手,专业的科研社交共享平台