R语言长款数据转换（自备）_r语言宽数据转换成长数据-CSDN博客

数据

rm(list = ls()) 
library(ggplot2)
library(ggpubr)
library(cowplot)
data <- iris##鸢尾花数据集
#[1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"   

计算

先整合指定计算的列名，然后使用rowSums(data[,列])进行计算

#计算特定列的和
col1 <-  c("Sepal.Length","Sepal.Width")
data$col1 <- rowSums(data[,col1])

col2 <-  c("Petal.Length","Petal.Width")
data$col2 <- rowSums(data[,col2])

head(data)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species col1 col2
1          5.1         3.5          1.4         0.2  setosa  8.6  1.6
2          4.9         3.0          1.4         0.2  setosa  7.9  1.6
3          4.7         3.2          1.3         0.2  setosa  7.9  1.5
4          4.6         3.1          1.5         0.2  setosa  7.7  1.7
5          5.0         3.6          1.4         0.2  setosa  8.6  1.6
6          5.4         3.9          1.7         0.4  setosa  9.3  2.1

参考：R 数据框的选定列的总和 | D栈 - Delft Stack