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

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

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

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