R语言添加多分类列及数据框求和添加合计行的技术问询

嗨，针对你提出的两个R语言数据处理需求，我来给你详细的解决方案：

1. 计算数据框列总和并生成合计行 #

首先我们先处理你提到的计算列总和并生成"Totals"行的具体需求。首先先还原你提供的数据框：

# 创建示例数据框
df <- data.frame(
  Kingdom = c("Animals", "Bacteria", "Viruses"),
  D1 = c(2, 4, 1),
  D2 = c(4, 3, 4),
  D4 = c(4, 1, 4),
  H1 = c(6, 2, 5),
  H5 = c(7, 4, 6)
)

你之前尝试了colSums但没完成，其实只需要几步就能搞定：

• 提取除首列外的数值列，用colSums()计算每列的总和
• 将总和转换为数据框格式，并设置首列值为"Totals"
• 可以选择单独输出合计行，或者追加到原数据框末尾

完整代码实现： #

# 计算数值列的总和（排除首列Kingdom）
col_totals <- colSums(df[, -1])

# 将总和转换为数据框，添加Kingdom列并命名为"Totals"
total_row <- data.frame(Kingdom = "Totals", t(col_totals))

# 输出你期望的合计行
print(total_row)

运行后会得到你想要的结果：

Kingdom D1 D2 D4 H1 H5
1  Totals  7 11  9 13 17

如果你想把合计行添加到原数据框的末尾，只需要用rbind()合并：

df_with_total <- rbind(df, total_row)
print(df_with_total)

输出会包含原数据和合计行：

Kingdom D1 D2 D4 H1 H5
1   Animals  2  4  4  6  7
2  Bacteria  4  3  1  2  4
3   Viruses  1  4  4  5  6
4    Totals  7 11  9 13 17

2. 添加代表不同类别的多列 #

针对你提到的添加类别列的需求，通常是为每个类别生成一个指示列（也就是常说的哑变量），下面提供几种常用的实现方法：

方法1：Base R 手动创建（适合类别较少的情况） #

如果你的类别不多，可以用ifelse()直接生成：

df$is_Animal <- ifelse(df$Kingdom == "Animals", 1, 0)
df$is_Bacteria <- ifelse(df$Kingdom == "Bacteria", 1, 0)
df$is_Virus <- ifelse(df$Kingdom == "Viruses", 1, 0)

方法2：使用dplyr 简化代码 #

用dplyr包的话，可以利用as.integer()将逻辑值转换为0/1，代码更简洁：

library(dplyr)

df <- df %>%
  mutate(
    is_Animal = as.integer(Kingdom == "Animals"),
    is_Bacteria = as.integer(Kingdom == "Bacteria"),
    is_Virus = as.integer(Kingdom == "Viruses")
  )

方法3：使用fastDummies 自动生成哑变量（适合类别较多的情况） #

如果你的类别数量较多，推荐使用fastDummies包的dummy_cols()函数，它会自动为类别列生成所有对应的指示列：

library(fastDummies)

# 为Kingdom列生成哑变量，自动添加到数据框中
df <- dummy_cols(df, select_columns = "Kingdom")

运行后会生成Kingdom_Animals、Kingdom_Bacteria、Kingdom_Viruses三列，每列对应一个类别的指示值（1表示属于该类别，0表示不属于）。

内容的提问来源于stack exchange，提问作者Pablita