r - 使用带有 stringr::str_extract 的参数函数

Question

我正在尝试通过 stringr::str_extract 解析来自自定义函数的参数，但我无法使其工作。

这是我到目前为止所尝试的：

library(tidyverse)

extr_var <- function(data, variable) {

      res <- data %>% 
      mutate(kk = str_extract(variable, 'setosa'))

      return(res)
}


extr_var(iris, "Species")

以及输出的前 6 行：

#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species   kk
#1          5.1         3.5          1.4         0.2  setosa <NA>
#2          4.9         3.0          1.4         0.2  setosa <NA>
#3          4.7         3.2          1.3         0.2  setosa <NA>
#4          4.6         3.1          1.5         0.2  setosa <NA>
#5          5.0         3.6          1.4         0.2  setosa <NA>
#6          5.4         3.9          1.7         0.4  setosa <NA>

我试过使用match.call,substitute和其他的，但我无法让它工作。任何帮助表示赞赏。

标签： rtidyversestringr