R科研作图学习小组

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

    土貉 发布于:2018.04.17
    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('miRNA[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(aes(fill=count),stat = "identity")+
      geom_text(label=data$count,colur='red',vjust=-0.5)+
      theme(axis.ticks = element_blank(),
          panel.grid.minor.y=element_blank(),
          panel.grid.major.y = element_blank(),
          axis.text.y =element_blank())+
      labs(x='year',y='count')

    001.png

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

    小组告示

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