一段代码：
cca_rank<-function(x){for(x in 1:nrow(adm)) {
if(adm$cca[x]<=400){print("Low")} else if(adm$cca[x]>400 & adm$cca[x]<=700){print("Mid")} else if(adm$cca[x]>700){print("High")}}}
cca_ranks <- cca_rank(1:400)
adm是一张带有400行表的excel表。 cca_rank（1：400）为我返回正确的输出，但是我能够将所有的Lows，Medium和High放到一个向量中。我需要将此向量放在数据框中。我有什么方法可以做到这一点吗？