如何将R中data.frame中两个相邻列的值相加，同时保持0不变？

# 创建一个示例的data.frame
df <- data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6), col3 = c(7, 8, 9))

# 创建一个新的列存储相加后的值
df$sum_col <- 0

# 循环遍历每一行，将相邻列的值相加
for (i in 1:(ncol(df) - 1)) {
  df$sum_col <- df$sum_col + df[, i] + df[, (i + 1)]
}

# 输出结果
df

# 创建一个示例的data.frame
df <- data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6), col3 = c(7, 8, 9))

# 创建一个新的列存储相加后的值
df$sum_col <- 0

# 使用apply函数遍历每一行，将相邻列的值相加
df$sum_col <- apply(df[, 1:(ncol(df) - 1)], 1, function(x) sum(x, na.rm = TRUE))

# 输出结果
df