r - 使用字符串向量在数据框中查找字符串

Question

晚上好

我有以下数据框:

df <- data.frame(I(list(c("nugget de blé","boeuf"),"nugget de blé")))
list_dishes <- c("nugget de blé")

我想在 list_dishes 中识别 df 的菜品:当识别到一个菜品时计数 1。

我写了下面的算法，但它没有字。基本上，算法仅在“nugget the blé”单独出现时才进行识别。

classification <- function(X,list){
  compteur = 0
  if(length(which(X%in%list)>=1){compteur = compteur + 1}
  return(compteur)
}

results <- data.frame(apply(df, c(1,2), function(x) calcul(x,list_dishes)))

你能帮帮我吗

谢谢

Answer 1

我们可以将 sapply 与来自 base R 的 grepl 一起使用

df$found_dishes <- sapply(df[[1]], function(x) any(grepl(list_dishes, x)))