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

blanking 2018-05-04 21:03:40 阅读: 1672

library(RISmed)

library(ggplot2)

paper_count <- function(keyword = "p53", start_date = 2000, end_date= 2017)

{

count <- c()

x<-1

for (i in start_date:end_date){

r <- EUtilsSummary(keyword, mindate = i, maxdate = i)

count[x] <- QueryCount(r)

x = x+1

}

data <- data.frame(year = start_date:end_date, count = count)

data

}

tumor_heterogeneity <- paper_count("tumor heterogeneity", 2000, 2017)

ggplot(tumor_heterogeneity, aes(x=year, y= count))+geom_bar(aes(fill=year), stat="identity")+xlab("year")+ylab("count")

邀请讨论

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

切换到完整评论

受邀请回答

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

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭