从特定数据框列表修改数据框中的值

问题描述

我有以下数据。frame

df <- c("sauté de boeuf","sauté de boeuf ou sauté de porc","sauté de boeuf ou omelette")
df <- data.frame(df)

我有一个要在此数据框中标识的关键字列表

motsclés_oeuf <- c("omelette","oeuf","tortilla") 
motsclés_oeuf_ME <-> c("Nowords") 
oeuf <- cbind(motsclés_oeuf,motsclés_oeuf_ME)

Motsclés_viande_rouge <- c("boeuf","veau")
Motsclés_viande_rouge_ME <- c("canard","dinde")
viande_rouge <- cbind(Motsclés_viande_rouge,Motsclés_viande_rouge_ME)

Motsclés_viande_blanche <- c("poulet","lapin","porc")
Motsclés_viande_blanche_ME <- c("Nowords")
viande_blanche <- cbind(Motsclés_viande_blanche,Motsclés_viande_blanche_ME)

Meat_list <-list(oeuf,viande_rouge,viande_blanche)

我有以下分类程序

classification_function <- function(X,MC,ME){   
  Xsep<-unlist(strsplit(toupper(X)," OU "));
  compteur=0; 
  for(mot in Xsep){
      motsep <- unlist(strsplit(tolower(mot)," "));
      motsep <- lapply(motsep,function(x) sub("(.*)s$",'\\1',x));
      if(length(which(motsep%in%MC))>=1 && length(which(motsep%in%ME))<=0){compteur <- compteur+1}
    }
  return(compteur)
}

output <- vector('list',length(Plat_protidique_liste))
for (i in seq_along(Meat_list)){ 
    output[[i]]  <- data.frame(apply(df,c(1,2),function(x) classification_function(x,Meat_list[[i]][,1],2])))} 
}   

但是，我只想将if条件应用于“ viande_rouge”和“ viande_blanche”关键字，而不是“ oeuf”。我应该如何进行？ 我应该如何修改if(length(which(motsep%in%MC))>=1 && length(which(motsep%in%ME))<=0){compteur <- compteur+1}？

谢谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）