使用套用：尺寸错误

Question

data <- data.frame(A = c(1:4), B = c(10:13), C = c(19:22))

我想按行计算1 / A + 1 / C

df$calc <- apply(data, 2, function(x) sum(1/x[,c(1,3)])

Error in x[, c(1, 3)] : incorrect number of dimensions

我不明白为什么我应该在这里得到一个错误

fun<- function(x){

 f <- sum(1/x[,c(1,3)])
 return(f)
}

fun(data[1,])
1.052632

正常工作

Answer 1

我们可以对rowSums进行矢量化处理

data$calc <- rowSums(1/data[c("A", "C")])

或另一个有效的选择是

Reduce(`+`, 1/data[c("A", "C")])

Answer 2

我相信

df <- apply(data, 1, function(x) sum(1/x[c(1,3)]))是您想要的