基于正则表达式和正则表达式值变异数据帧

this 张贴并尝试使用我的问题的答案。

library(dplyr)
library(stringr)

dat.p <- dat.p %>%
  mutate(
    cad = ifelse(str_locate(text_field, "\\[[^]]*\\]"), 
                 str_extract(text_field, "\\[[^]]*\\]"),
                 NA)
    )

\\[[^]]*\\] 在text_字段中,在新列cad中使用该值,否则将cad的值设为NA。

当我运行它时,我得到错误:

Error: wrong result size (1000000), expected 500000 or 1

df <- data.frame(
  id = 1:2,
  sometext = c("[cad] apples", "bannanas")
)

df.desired <- data.frame(
  id = 1:2,
  sometext = c("[cad] apples", "bannanas"),
  cad = c("[cad]", NA)
)