错误：使用“lapply”时，dim（X）必须具有正长度

Question

When running this command:

tmp <- lapply(tmp, function(y) apply(sapply(y, function(x) unique(grpproc[,2]) %in% x), 1, sum))

I get the error:

Error in apply(sapply(y, function(x) unique(grpproc[, 2]) %in% x), 1,  :     
dim(X) must have a positive length

I believe I possibly need a different apply statement there maybe? Thank you for the help!

Answer 1

sapply() returns a vector, but apply() is looking for a matrix

xx <- c(0,1,2,3,4,5)
dim(sapply(xx, mean)) # NULL
xxx <- matrix(rep(xx,3), nrow = 3) # what happens if we give sapply a matrix?
dim(sapply(xxx, mean)) # why?
sapply(xxx, mean) # because it returns a vector

Possibly your colleague may want to use sum() instead of apply()? Or a different apply function that returns the correct matrix or data.frame.