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