R 问题。使用 2 个 data.frames 进行元素明智乘法、加法和除法，给定行中缺失数据的数量各不相同

Question

我有各种具有相同长度列的 data.frames，我试图将多个 2 行按元素组合在一起，然后将其相加。例如，下面是我想用来执行此操作的两个向量。

> a.1[186,]
q01_a q01_b q01_c q01_d q01_e q01_f q01_g q01_h q01_i q01_j q01_k q01_l q01_m
    3     3     3     3     2     2     2     3     1    NA    NA     2     2

问题

> u.1[186,]
q04_avl_a q04_avl_b q04_avl_c q04_avl_d q04_avl_e q04_avl_f q04_avl_g q04_avl_h q04_avl_i q04_avl_j q04_avl_k q04_avl_l q04_avl_m        
        4         2         3         4         3         4         4         4         3         4         3         3         3`

是不同的行有不同数量的 NA。我想做的是跳过与任何缺失值的乘法（上面示例中的第 10 个和第 11 个位置），然后在加法之后除以相乘的元素数量（上面示例中的 11 个）。大多数行都是完整的，只需乘以 13。

谢谢！

Answer 1

x <- c(3,3,3,3,2,2,2,3,1,NA,NA,2,2)
y <- c(4,2,3,4,3,4,4,4,3,4,3,3,3)

sum(x*y,na.rm = T)/sum(!is.na(x*y))
[1] 8

编辑

如果有因子，首先将它们转换为数字

x <- as.factor(c(3,3,3,3,2,2,2,3,1,NA,NA,2,2))
y <- as.factor(c(4,2,3,4,3,4,4,4,3,4,3,3,3))
xy <- as.numeric(as.character(x)) * as.numeric(as.character(y))
sum(xy,na.rm = T)/sum(!is.na(xy))
[1] 8

Answer 2

在这里取得一些进展。我使用 Fseries 包中的 ReplaceNA 将所有缺失值更改为零。

> sum(a.11[186,]*u.11[186,])/min((rowSums(a.11!=0)), rowSums(u.11!=0))

现在我只需要让这个工作循环起来！