R中if else语句中的正则表达式

Question

我有一个相当简单的问题。 我试图使下面的if else语句起作用。

如果满足if语句，则应分配为“ 1”，否则为0。 我的问题是我无法在if语句中使用正则表达式来工作（'\\ w * | \\ W *）。 应该指定条件，该字符串是“需要注册”或“必须注册”后跟任何字符。 我无法指定确切的案例，因为在“需要注册”之后（在某些情况下），它通常是一个日期（每次观察都不同）和几个单词。

Registration_cleaned <- c()

for (i in 1:length(Registration)) {
  if (Registration[i] == ' Registration Required\\w*|\\W*') {
    Meta_Registration_cleaned <- 1
  } else {
    Meta_Registration_cleaned <- 0 
  }

 Registration_cleaned <- c(Registration_cleaned, Meta_Registration_cleaned)

}

Answer 1

您可以将transform和ifelse函数一起使用来设置Meta_Registration_cleaned。 为了匹配正则表达式，grep函数可以与模式“ Registration Required \\ w *”一起使用。

Registration <- data.frame(reg = c("Registration Required", "Registration Required ddfdqf","some str", "Regixxstration Required ddfdqf"),stringsAsFactors = F)

transform(Registration,Meta_Registration_cleaned = ifelse(grepl("Registration Required\\w*",Registration[,"reg"]), 1, 0))

给出结果：

                      reg Meta_Registration_cleaned
1          Registration Required                         1
2   Registration Required ddfdqf                         1
3                       some str                         0
4 Regixxstration Required ddfdqf                         0

Answer 2

我可能完全误解了OP，因为我对这个问题的理解与这里的其他人完全不同。

我之前的评论建议在字符串末尾查找正则表达式。

Registration <- data.frame(reg = c("Registration Required", "Registration Required ddfdqf","Registration Required 10/12/2000"),stringsAsFactors = F)

#thanks @user1653941 for drafting the sample vector

Registration$Meta_Registration_cleaned <- grepl('Registration required$', Registration$reg, ignore.case = TRUE)

Registration

1            Registration Required                      TRUE
2     Registration Required ddfdqf                     FALSE
3 Registration Required 10/12/2000                     FALSE

我对OP的理解是这样的，条件是：要么是字符串“需要注册”，而后没有字符，要么是……。 期待OP的评论。