R科研作图学习小组

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

    德先森 发布于:2018.04.23

    library("httr")

    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('CRISPR[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)

    4-1.png4-2.png

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

    小组告示

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