R，dplyr 按列中的字符串拆分数据帧

Question

我在这里看到的示例展示了如何使用列索引范围拆分数据框，但如何使用列中找到的字符串将我的数据框与 dplyr 拆分？我特意创建了我的数据框，以便列中包含某些字符串以供将来拆分。

示例数据:

Site   A_Argas   A_Arachnicea   A_Brus   B_Burkoll   B_Brielle  B_Bact
 1       10        0              0         0           0         0
 2       0         0              0         10          22        123
 3       1         2              3         88          12        546

我想根据“A_”或“B_”等字符串拆分此数据帧，并将它们分配给新的数据帧。

例如输出将是:

 dataframeA
 Site   A_Argas   A_Arachnicea   A_Brus 
 1       10        0              0        
 2       0         0              0        
 3       1         2              3       

 dataframeB
 Site   B_Burkoll   B_Brielle  B_Bact
  1       0           0         0
  2      10          22        123
  3      88          12        546

因为这些数据不是长格式，我似乎无法弄清楚如何更改我用来拆分长格式数据帧的旧代码(用于不同的分析)。

dataframeA <- data %>% filter("GroupID" == "Arachnids") # where "A_" in column headers signify arachnid species
dataframeB <- data %>% filter("GroupID" == "Bacteria") # where all "B_" in the column headers are bacterial species

Answer 1

一个基本的 R 选项可能是对以 A_ 和 B_ 开头的列进行 grep，然后对原始数据框进行子集化。

a_names <- grep("^A_", names(data), value=TRUE)
dataframeA <- data[ , c("Site", a_names)]
b_names <- grep("^B_", names(data), value=TRUE)
dataframeB <- data[ , c("Site", b_names)]