R2-09第二阶段第四次作业

Giant Panda 2018-04-22 22:43:08 阅读: 424

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 

 

 

 
请登录后再评论
| 注册
{{item.nickname}} {{item.create_time}} {{item.floor}}楼
{{item.re_nickname}} 写于 {{item.re_time}}
切换到完整回复
科研狗 2015-2020 京ICP备16006621 科研好助手,专业的科研社交共享平台