rstudio 按列名分组对列求和，结果数据行数不变

RStudio中的dplyr包是一个非常流行的用于数据操作的数据框工具，其中`summarise()`函数常用于按指定列进行分组并计算汇总值。如果你想保持结果数据行数不变，即每一组只有一行汇总信息，通常会使用`group_by()`和`summarise()`配合`n()`, `mean()`, `sum()`等聚合函数。

例如，如果你有一个数据框df，想要按列`col_name`分组并对其他数值列求和，可以这样做：

library(dplyr)
result <- df %>%
  group_by(col_name) %>%   # 按列名分组
  summarise_all(funs(sum))  # 对所有数值列求和，非数值列会忽略

# 如果你只想保留每个组的一行，那么可以添加`.n`来计数每组的数量：
result <- df %>%
  group_by(col_name) %>%
  summarise_all(funs(sum), .groups = "drop") %>%   # 使用drop模式，保持一行
  bind_rows(data.table::data.table(.n = n()))  # 添加行数作为新的一列

上述代码将返回一个新的数据框，其中每一行代表一个`col_name`组，包含各组内数值列的总和以及行数。

相关问题

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`函数的匹配。如果有非标准格式的列名，可能需要做一些额外的处理。

rstudio 对列按列名分组求和，需要按照列名的前两个字符分组对列求和

RStudio 中，如果你想要使用 `dplyr` 包来对数据框（data frame）的列按列名的前两个字符分组并计算每个组内各列的总和，可以这样做：

library(dplyr)  # 首先加载 dplyr 包

# 假设你的数据框叫 df，这里是一个示例
df <- data.frame(
  col1 = c(1, 2, 3, 4, 5),
  colA = c(6, 7, 8, 9, 10),
  colB = c(11, 12, 13, 14, 15),
  colC = c(16, 17, 18, 19, 20)
)

# 使用 group_by 和 summarize 函数进行分组求和
grouped_df <- df %>%
  group_by(substr(col_name, 1, 2)) %>%  # 利用 substr 函数截取前两个字符作为分组依据
  summarize_all(sum)  # 对所有列求和

grouped_df

在这个例子中，`substr(col_name, 1, 2)` 会提取出每列名的前两个字符作为新的分组键。`summarize_all(sum)` 则会对每个分组内的所有列应用求和操作。