我有两个数据框,我正在根据加权分数进行分组操作。我使用 PROFVIS 来分析代码,并认为循环遍历数据框以检查和添加组标签是一项昂贵的操作。我知道我们可以使用 lapply,但不确定如何为此解析两个数据帧和一个新变量。请帮忙。我只需要使用应用函数来降低这段代码的时间和空间复杂度。
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])
}
}
}