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