问如果单词出现在几列中的任何一列中，如何分配TRUE或FALSE？

EN

for (i in nrow(All_dataset)) {
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 8], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 9], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 10], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 11], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 12], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 13], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 14], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 15], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 16], 1, 0)
  All_dataset[i, 18] <- ifelse("Samuel L. Jackson" %in% All_dataset[i, 17], 1, 0)
}

for (i in nrow(All_dataset)) {
  if (is.element("Samuel L. Jackson", All_dataset[i, 8]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 9]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 10]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 11]) == TRUE) {
    All_dataset[i, 18] == 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 12]) == TRUE) {
    All_dataset[i, 18] == 1
  } 
  else if (is.element("Samuel L. Jackson", All_dataset[i, 13]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 14]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 15]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 16]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else if (is.element("Samuel L. Jackson", All_dataset[i, 17]) == TRUE) {
    All_dataset[i, 18] <- 1
  }
  else {
    All_dataset[i, 18] <- 0
  }
}