服务热线
178 0020 3020
R2-09第二阶段第四次作业
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)
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)##给每个柱子添加文字标签
附件