使用适用于：尺寸

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)])) 是你想要的