我想将五个变量合并为一个新变量（创建索引）。我的问题是，如果一行在五个变量之一上包含一个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得分？