根据 grep() 中的行值创建标志

Question

我有一个 10 行的关于 potatoes 的推文数据框，需要根据每个 tweet 包含的标点符号（问号或感叹号）标记它们。 grep 函数将返回出现这些字符的行号：

grep("\\?", potatoes$tweet)
grep("!", potatoes$tweet)

我尝试在 dplyr 中使用mutate 创建标志变量question，如图所示...

potatoes$question <- NA
potatoes <- mutate(potatoes, question = +row_number(grep("\\?", potatoes$tweet)))

Error in mutate_impl(.data, dots) : 
Column `question` must be length 10 (the number of rows) or one, not 3

我也很乐意考虑比以grep 的输出为条件的更优雅的解决方案。任何帮助表示赞赏！

Answer 1

我们可以使用grepl 代替grep，因为grep 返回匹配发生的索引/位置，而grepl 返回逻辑vector，其中TRUE 表示匹配元素，FALSE 表示不匹配。可以当flag使用

i1 <- grepl("!", potatoes$tweet)

如果我们需要更改为行号，

potatoes$question <- i1 * seq_len(nrow(potatoes$sweet))

---

同样，grep 可以使用行索引进行赋值

i2 <- grep("!", potatoes$tweet)
potatoes$question[i2] <- seq_len(nrow(potatoes))[i2]