R：根据另一列的文本条件更新列

Question

我想在我的数据框中创建一个新列，方法是使用条件语句“如果 Column_y 包含 Column_x 则 1 else 0”

例如：

Event   Name     Winner       Loser          New Column
1       James    James,Bob    John,Steve     1
1       Bob      James,Bob    John,Steve     1
1       John     James,Bob    John,Steve     0
1       Steve    James,Bob    John,Steve     0

我想要新列

请记住，这适用于 100,000 行，可能有 700 个唯一名称。当我尝试像

df$NewColumn<-ifelse(grepl(df$Name,df$Winner)==TRUE,1,0) 

或变体我得到“模式的长度 > 1”错误。

Answer 1

我认为您只想将Name 列与Winner 列进行比较：

df$NewColumn <- ifelse(df$Name == df$Winner, 1, 0)

请注意，因为df$Name == df$Winner 实际上是一个布尔表达式，您也可以简化为：

df$NewColumn <- df$Name == df$Winner

Answer 2

在您的示例中，精确的字符串匹配有效。但我假设它不适用于您的整个数据。

实现包含条件是这样的：

library(dplyr)
library(purrr)

df = df %>% 
  dplyr::mutate(NewColumn = purrr::map2_dbl(.x=Winner,.y=Name,~ifelse(grepl(.y,.x),1,0)))

使用stringr 添加替代解决方案：

df = df %>% 
  dplyr::mutate(NewColumn=ifelse(str_detect(Winner,Name),1,0))

让我知道这是否有效。

P.S.：str_detect 更快。