rstudio 提取列名中前面的字符，按提取结果分组对列求和

RStudio中，如果你有一个数据框（data frame），并且想要根据列名前的部分进行分组并对每个组内的数值型列求和，可以使用`dplyr`包提供的功能，它是一个流行的数据操作库。假设你的数据框叫做`df`，你可以按照以下步骤操作：

1. 首先，你需要安装并加载`dplyr`包，如果尚未安装，可以运行`install.packages("dplyr")`然后`library(dplyr)`。

2. 使用`mutate_at`函数创建一个新的列，这个新列包含原始列名的前几个字符。例如，如果你只想保留每列名前两个字符，可以这样做：

   df <- df %>% mutate_at(contains("_"), ~ substr(.x, 1, 2))

3. 然后，你可以使用`group_by`函数根据新的列进行分组，再结合`summarise_all`函数对所有数值型列求和：

   result <- df %>% group_by(`new_col_name`) %>%
                         summarise_all(sum, na.rm = TRUE) # 或者指定需要求和的具体列名

这里`new_col_name`应该替换为你之前创建的新列的实际名字。

4. `summarise_all`会默认对所有数值类型的列求和，如果列中有非数值类型，可以添加`.funs`参数明确指定哪些列参与求和。

注意：确保你的列名中没有特殊字符会影响到`substr`或`contains`函数的匹配。如果有非标准格式的列名，可能需要做一些额外的处理。