选择值包含新列的特定字符串

Question

例如，我有一个df，如下所示，我想创建一个带有特定string 的新列

df <- data.frame(name1 = c("Amydrium sp. 01", "Aporosa sp.", "Arecaceae sp. 02","Adenia macrophylla"))
             name1
1  Amydrium sp. 01
2      Aporosa sp.
3 Arecaceae sp. 02
4 Adenia macrophylla

我想要另外 2 个名为 family 和 genus 的列

我可以通过检测ceae 字符串（即df %>% mutate(family = case_when(str_detect(name1, "ceae") ~ name1))）来制作family 列。

对于genus 列，我可以获得检测sp.exclude ceae 的语法，并且不想使用多个具有全名的单元格，即Adenia macrophyll 同时获取列吗？。

-期望的输出

             name1    family              genus
1  Amydrium sp. 01    NA                 Amydrium sp. 01
2      Aporosa sp.    NA                 Aporosa sp.
3 Arecaceae sp. 02    Arecaceae sp. 02   NA
4 Adenia macrophylla  NA                 NA

Answer 1

反其道而行之，同时寻找sp.：

df %>%
  mutate(
      family = case_when(str_detect(name1, "ceae")  ~ name1),
      genus  = case_when((!str_detect(name1, "ceae") & str_detect(name1, "sp.")) ~ name1)
  )

输出：

               name1           family           genus
1    Amydrium sp. 01             <NA> Amydrium sp. 01
2        Aporosa sp.             <NA>     Aporosa sp.
3   Arecaceae sp. 02 Arecaceae sp. 02            <NA>
4 Adenia macrophylla             <NA>            <NA>