如何在R中减去两个结构相同的列表。以下函数创建数据集
dataSet <- function(x,y){
data <- lapply(1:4, function(x)
do.call(cbind,do.call(cbind,
lapply(lapply(1:5,function(y)
cbind(rnorm(10))), data.frame)) ))
pVariatesNames <- paste("s",seq(from=380, length.out=5),sep="")
nCasesNames <- c("Paper","R","G","B")
customerNames <- paste("Customer",seq(from=1, length.out=10),sep=" ")
names(data) <- nCasesNames
for(i in 1:4) {
colnames(data[[i]]) <- pVariatesNames
rownames(data[[i]]) <- customerNames
}
return(data)
}
dataSet1 <- dataSet(4,5); dataSet1
dataSet2 <- dataSet(4,5); dataSet2
我想从dataSet2减去dataSet1
最佳答案
这取决于结构。在这种情况下,mapply
应该可以工作:
mapply('-', dataSet2, dataSet1, SIMPLIFY = FALSE)
编辑:与
Map()
的另一个解决方案Map('-', dataSet2, dataSet1)
关于r - 在R中减去两个结构相同的列表,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/13606452/