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

木萱小主 2018-04-18 12:01:53 阅读: 1817

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')

邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论 评论

{{item.nick_name}} 受邀请回答 {{item.create_time}}

{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复 发送回复

赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭

小组最新话题

• R2-20 第二阶段第四次作业 科研狗聪 05-05
• R2-04-第二阶段第四次作业 blanking 05-04
• R2-37 第2阶段第4次 洪学志 04-25
• R2-35 第2阶段第4次 德先森 04-23
• R2-09第二阶段第四次作业 Giant Panda 04-22
• R2-01-第二阶段第四次作业 木萱小主 04-18
• R2-30第二阶段第四次作业 土貉 04-17
• R2-03 第二阶段第四次作业 微思微丝 04-15
• 【源码参考】R语言第二期2-4 统计某个研究领域的研究趋势 真·科研狗 04-07
• R2-36第二阶段第三次作业 范志敏 04-01