使用rowSums为数据框新增列但无法计算行和值的问题

1. 修正代码中的语法错误 #

你提供的三段代码均存在语法问题，这是导致计算异常的直接原因：

代码1修正 #

原代码中col4缺少前引号，R无法识别为合法列名：

# 错误写法
df$col5 <- rowSums(df[c("col1","col2","col3",col4")])

# 修正后
df$col5 <- rowSums(df[c("col1","col2","col3","col4")])

代码2修正 #

存在两处错误：col4缺少前引号，且select()和rowSums()的括号未闭合：

# 错误写法
df <- df %>% mutate(col5 = rowSums(select(.,"col1","col2","col3",col4"))

# 修正后
df <- df %>% mutate(col5 = rowSums(select(., "col1", "col2", "col3", "col4")))

代码3修正 #

缺少rowwise()行分组（否则sum会计算全局总和而非行和），且c_across()和mutate()的括号未闭合：

# 错误写法
df <- df %>% mutate(col5 = sum(c_across(col1:col4)

# 修正后（两种可行方式）
# 方式1：rowwise配合sum计算行和
df <- df %>% 
  rowwise() %>% 
  mutate(col5 = sum(c_across(col1:col4))) %>%
  ungroup()

# 方式2：直接用rowSums配合c_across
df <- df %>% mutate(col5 = rowSums(c_across(col1:col4)))

2. 检查列的数据类型 #

若修正语法后仍返回NA，大概率是目标列并非数值型（numeric/integer）。比如列被识别为字符型（character）时，rowSums无法计算字符值，会返回NA。

检查列类型 #

str(df)

如果输出中col1-col4的类型为chr（字符型），需先转换为数值型：

# dplyr写法：批量转换列类型
df <- df %>% mutate(across(col1:col4, as.numeric))

# 基础R写法
df[, c("col1","col2","col3","col4")] <- lapply(df[, c("col1","col2","col3","col4")], as.numeric)

3. 测试验证 #

用你提供的测试数据验证修正后的代码：

# 构造测试数据
df <- data.frame(
  col1 = c(10,99),
  col2 = c(25,42),
  col3 = c(15,20),
  col4 = c(25,35)
)

# 基础R计算行和
df$col5 <- rowSums(df[c("col1","col2","col3","col4")])

执行后会得到正确结果：

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