使用 lapply 尝试以下方法之一:

Try one of these alternatives using lapply :

large_df$new_c <- Reduce(`|`, lapply(large_df[, 2:3], `%in%`, long_list))

或 sapply :

large_df$new_c <- rowSums(sapply(large_df[, 2:3], `%in%`, long_list)) > 0

两者均返回:

large_df
#  A B C new_c
#1 1 a e  TRUE
#2 2 b f  TRUE
#3 3 c g  TRUE
#4 4 d h FALSE