使用嵌套 ifelse 计算嵌套循环中的正确输出

Question

几天来，我试图为嵌套 ifelse 和嵌套循环的组合获得正确计数的输出。我想要么我的嵌套完全错误，要么我尝试计算输出的方式，也许两者兼而有之。

ifelse.1 = function(input_matrix) {

  result = 1
  output = 0
  sum_output = 0

  for(i in 1:dim(input_matrix)[1]){
    for(j in 1:dim(word_list_matrix-one)[1]){
      for(k in 1:dim(word_list_matrix_two)[1]){

  ifelse(str_detect(input_matrix[i], ("word")) == TRUE 
  &  str_detect(input_matrix[i], word_list_matrix_one[j]) == TRUE
     &  str_detect(input_matrix[i], word_list_matrix_two[k]) == TRUE,
           output[i] <- output[i] + result, 
  ifelse(
     str_detect(input_matrix[i], word_list_matrix_three[j]) == TRUE
     &  str_detect(input_matrix[i], word_list_matrix_two[k]) == FALSE,
           output[i] <- output[i] + result, NA))

        sum_output = output[i]
    } # k-loop
  } # j-loop
} # i-loop
  return(sum_output)
}

该代码是关于在多个单列矩阵的多行中检测某些字符串（通过包stringr 的str_detect 函数）。 所以在input_matrix 的第一个row [i] 中，应该检测到word_list_matrix 中row [j] 给出的字符串。

只要上面提到的 ifelse 之一为真，就应该在输出中添加 +1，在所有 i 个周期结束时，应该返回输出的总和。

问题是我得到NA 作为答案，或者（对于此代码的某些变体）我得到的输出计数多于我输入的输入。

我知道 ifelse 应该能够计算向量，这可能会导致不需要循环，但尽管我从来没有这样工作，但我必须计算的矩阵长度不同。

我希望我设法提供了一个具有足够细节的良好、可重复的问题。 非常感谢您的宝贵时间。

Answer 1

你可以用这个。

one <- as.data.frame(apply(df, 2, function(x) {
    str_detect(x, paste(word_list_matrix, sep = '|', collapse = '|'))
}))

two <- as.data.frame(apply(df, 2, function(x) {
  str_detect(x, paste(word_list_matrix_two, sep = '|', collapse = '|'))
}))

three <- as.data.frame(apply(df, 2, function(x) {
  str_detect(x, paste(word_list_matrix_three, sep = '|', collapse = '|'))
}))

which(one & two & three, TRUE)

结果将是原始矩阵中元素的行号和列号，其中包含所有三个 word_list 中的至少一个单词。如果您想检查另一个条件，例如该单词是否属于列表 1 && 2 ||清单 3，您可以相应地更改最后一行，例如

which(one & two | three, TRUE)