удалить 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.

Теперь я хочу получить оценки для всех строк.Что я могу сделать, чтобы оценки для p1 для строк, содержащих NA, были рассчитаны только по переменным без NA?