如何對r中的所有列使用ifelse函數？

Question

以下代碼適用於 1 列（列名）。 我想對所有列使用這個函數。 如何為所有列編寫以下代碼？

data <- data %>% 
mutate(colname = ifelse(colname == "NA",NA,colname)) %>%
filter(!is.na(colname))

Answer 1

我認為您可以使用rowSums來選擇其中沒有"NA"行。

data <- data[rowSums(data == 'NA', na.rm = TRUE) == 0, ]

在dplyr使用if_all -

data <- data %>% filter(if_all(.fns = ~. != 'NA'))

Answer 2

我們可以使用base R

subset(data, !rowSums(data == 'NA', na.rm = TRUE))