删除NA，但保留行

Question

我想将五个变量合并为一个新变量（创建索引）。我的问题是，如果一行在五个变量之一上包含一个NA，它将在新变量中显示NA。如何通过使用其他四个变量来获取新变量的值？因此，我不想排除该行，而只排除该行包含NA的变量。

    Country Occupation Age Gender avg(Income)
1       AT          1  73   male       128.0
2       AT          2  53     NA        56.0
3       AT          3  43   male        71.0
4       AT          NA 19   male        86.5
5       CH          1  18 female       138.0
6       CH          2  NA   male        45.0
7       CH          3  39   male        84.0
8       CH          5  25 female          NA
9       DE          NA 32 female       123.0
10      DE          2  51 female        59.5
11      DE          3  NA   male        72.0
12      DE          5  19   male        76.0

df1 <- df
df1 <- select(occupation, age, gender, avg(income))

library(GPArotation)
p1 <- fa(df1, nfactors = 1, rotate = "oblimin", fm = "pa")
p1$scores

如果我这样做，它会给我第1、3、5、7、10和12行的分数。但是，由于第2、4、6、8、9和11行包含NA，所以它给了我不适用。

现在，我想获取所有行的分数。我该怎么做，才能仅根据不包含NA的变量来计算包含NA的行的p1得分？