我有两个数据框,我正在根据加权分数进行分组操作。我使用PROFVIS来分析代码,并认为循环遍历数据帧以检查和添加组标签是一项代价高昂的操作。我知道我们可以使用lapply,但不知道如何解析两个数据帧和一个新的变量。请帮忙。我只需要使用apply函数来减少此代码的时间和空间复杂性。
rank1<-c()
occup_cats<-c()
for(i in 1:length(data_set$primary_occupation)){
for(j in 1:length(occup_cat_prop$Category)){
**if((as.character(data_set$primary_occupation[i])) == (as.character(occup_cat_prop$income_source[j])))**{
rank1[i]<-occup_cat_prop$prop[j]
occup_cats[i]<-as.character(occup_cat_prop$Category[j])
}
}
}