前者:
for (row in 1:nrow(gterms)) { gene_terms <- str_split(gterms[row,"GOs"], ",", simplify = FALSE)[[1]] gene_id <- gterms[row, "query"][[1]] tmp <- data_frame(gene = rep(gene_id, length(gene_terms)), term = gene_terms) dim(tmp) gene2go <- rbind(gene2go, tmp)} gene_ids <- egg$query gene_ids eggnog_lines_with_go <- egg$GOs != "" eggnog_annoations_go <- str_split(egg[eggnog_lines_with_go,]$GOs, ",")
后者: gene_to_go <- data.frame(gene = rep(gene_ids[eggnog_lines_with_go], times = sapply(eggnog_annoations_go, length)), term = unlist(eggnog_annoations_go)) head(gene_to_go)
标签:前者,terms,语言,nrow,后者,gene From: https://www.cnblogs.com/liujiaxin2018/p/18095649