R语言 同Excel的sumif功能，对相同一个变量里面相同的元素进行合并，相同的行进行相加

#
data <- read.csv('train.csv')

library(tidyverse)

data2 <- pivot_wider(data, names_from = "gene", 
            values_from = "num")
data2[is.na(data2)] <- 0

#多个变量因子化、数字转化
data2[,2:4]<-lapply(data2[,2:4],as.numeric)

myFUN<- function(x){sum(x)}
#apply（数据库，循环数据库3到6列，按列，函数）
result<- apply(data2[2:4],2,myFUN)
result <- as.data.frame(result)
result