Grepl for do循环，通过传递字符串

Question

mdma4 <- unique(mdma4)    
output <- c()
for (i in 1:length(mdma4)){
  m <- (mdma4[i])
  result <- mdma$MRP.Area[grepl('m', mdma$Material)]
  if (length(result) == 0 ){
    print('in if')
    output <- c(output, result)
  }
}

mdma4包含向量：c("A", "B", ...)。mdma是2列的数据帧。

我正在尝试将一个字符串从mdma4传递到mdma$Material，并从mdma$MRP中找到相应的条目。区域，但是grepl代码没有从相应的列中获取数据。

它是循环外的部分字符串匹配，下面的代码可以工作，但是如果它在for do循环中，则不工作。

test <- mdma$MRP.Area[grepl("GK180", mdma$Material)]

Answer 1

不清楚您是在寻找完整字符串还是部分字符串匹配。下列其中一项应能发挥作用：

mdma$MRP.Area[grepl(m, mdma$Material)] #remove quotes around m

mdma$MRP.Area[grepl(mdma4[i], mdma$Material)] #not creating variable m

mdma$MRP.Area[mdma$Material == mdma4[i]] #full string match

FYI，一个关闭的}丢失了

Answer 2

以下所有操作都不起作用，当它在循环内部但在for循环之外工作时

mdma$MRP.Area[grepl(m, mdma$Material)] #remove quotes around m

mdma$MRP.Area[grepl(mdma4[i], mdma$Material)] #not creating variable m

mdma$MRP.Area[mdma$Material == mdma4[i]]