R科研作图学习小组

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

    木萱小主 发布于:2018.04.18
    library("httr")
    yeardata=c()
    countdata=c()
    url = "https://eutils.ncbi.nlm.nih.gov/entrez/eutils/esearch.fcgi"
    for (i in 0:10) {
      year=2007 +i
      term = paste('cancer[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)
    
    library(ggplot2)
    ggplot(data,aes(x=factor(year),y=count))+
      geom_bar(stat = "identity")+
      geom_text(label=data$count,color='black',vjust=-0.5)+
      labs(x='Year',y='Count')

     

     
  • Rplot01.jpeg(大小:82.1 KB;下载:1)
  • 0条评论 190浏览 邀请回答
    沙发空缺中~

    小组告示

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