R：正值和负值之和

我有一个向量：

vec <- c(1,-2,9,-7,7,4,5,2,1,-10)

vec
neg试试：

pos 0））
neg或者您可以使用类似于
lappy（split（vec，vec>0）、sum）的方法将结果保存在列表中，或者使用
符号
将结果拆分，以使列表中的名称更有意义。
neg <- sum of the negative values in vec
pos <- sum of the positive values in vec

neg <- sum(vec[vec<0]);
pos <- sum(vec[vec>0]);

pos <- sum(subset(vec, vec > 0))
neg <- sum(subset(vec, vec < 0))

l <- split(vec, vec < 0)
pos <- sum(l[[1]])
neg <- sum(l[[2]])

m <- lapply(split(vec, vec < 0), sum)
pos <- m[[1]]
neg <- m[[2]]