根据另一列中的模式为一列分配值

Question

我有以下数据框：

Sample <- data.frame(Sample_Name=c('502B_BCD_0TBC','0102_PER_2TBC', '0302_COR_0TBC', '0500_LN_TGHV'))<br />

我想根据多个条件创建一个“Sample_Type”列：

• 如果 Sample_Name 包含“B_”或“_BLO”，则 Sample_Type 应为“BLO”
• 如果 Sample_Name 具有“PER”，则 Sample_Type 应为“PER”
• 如果 Sample_Name 具有“COR”，则 Sample_Type 应为“COR”
• 如果 Sample_Name 具有“LN”，则 Sample_Type 应为“LN”
• 如果 Sample_Name 不是上述任何一个，则 Sample_Type 应为“OTH”

或者类似图片的东西。

如何实施？

Answer 1

我想你可以用正则表达式来完成这一切：

library(tidyverse)

Sample %>%
  mutate(code = str_replace_all(Sample_Name,
                                c("^.*(B_|_BLO_).*$", "^.*_PER_.*$", 
                                  "^.*_COR_.*$", ".*_LN.*$"),
                                c("BLO", "PER", "COR", "LAN")),
         code = ifelse(code %in% c("BLO", "PER", "COR", "LAN"), code, "Other"))
#>     Sample_Name code
#> 1 502B_BCD_0TBC  BLO
#> 2 0102_PER_2TBC  PER
#> 3 0302_COR_0TBC  COR
#> 4  0500_LN_TGHV  LAN