R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:25837
  • 小组等级:9
  • 话题:593
  • 回答:39
  • 签到:428
  • 小组排名:
  • R2-09第二阶段第四次作业

    Giant Panda 发布于:2018.04.22

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

    11111.png


    library("ggplot2")

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

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

      geom_text(label=data$count,color='red',vjust=-0.5)##给每个柱子添加文字标签

    33333.png 

     

     

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

    小组告示

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