如何在循环数据帧时减少R中的内存使用

我有两个数据帧，我正在基于加权分数进行分组操作。我使用PROFVIS分析代码，并认为通过数据帧循环检查和添加组标签是一项成本高昂的操作。我知道我们可以使用lappy，但不确定如何解析两个数据帧和一个新变量。请帮忙。我只需要使用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])

    }
  }
}

---

rank1
idxsPlesse提供一些示例数据并简化您的代码。嘿！我确实找到了一个解决方案：占领猫=占领猫道具$Category names（占领猫）=占领猫道具$income\u source data\u set$occup\u cat=occup\u cats[数据集$primary\u职业]