R语言中shapply、unlist函数的应用

 

R语言中sappy、unlist函数的应用

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）