R：使用apply两个data.frames

Question

我想使用apply而不是for循环。问题是，我的for-loop使用两个data.frames作为输入。例如：

x <- data.frame(col1=c(1,NA,3,NA), col2=c(9,NA,11,12)) 
y <- data.frame(col1=c(1,2,3,4), col2=c(5,6,7,8)) 
output <- rep(NA,2) 
for(i in 1:2) 
{ 
    output[i] <- sum(is.na(x[,i]))+sum(y[,i]) 
} 

这里的结果是正确的c（12,27）。

但如果我尝试的功能和应用：

test <- function(vector1,vector2) sum(is.na(vector1))+sum(vector2) 
apply(x,y,MARGIN=2,FUN=test) 

随着应用的结果是C（38,37）。 我该如何解决这个问题？

Answer 1

可以mapply使用，而不是适用：当你表现出

x <- data.frame(col1=c(1,NA,3,NA), col2=c(9,NA,11,12)) 
y <- data.frame(col1=c(1,2,3,4), col2=c(5,6,7,8)) 
test <- function(vector1,vector2) sum(is.na(vector1))+sum(vector2) 
mapply(test, x, y) 

# col1 col2 
# 12 27 

?mapply