R：選擇帶有 NA 的列用於變異函數

Question

我正在嘗試對數據框中的列進行子集化，以僅在 mutate 函數中使用它們，作為帶有 knitr::kable 和 kableExtra 的 HTML 表的條件格式的一部分。

#Conditional Formating function
highlights <- function(x) { cell_spec(x, background = ifelse( x != NA, "#C9FFE5","white")) }

#build table
ds.tab <- ds%>%
  mutate_if("column contains ANY NA values", funs(highlights(.)))%>% ...

我需要在 R 中寫括號之間的位（ “列包含任何 NA 值” ）。

謝謝！

Answer 1

如果您使用any(is.na(.)) ，它應該可以工作，例如：

ds.tab <- ds %>%
  mutate_if(function(x) any(is.na(x)), funs(highlights(.))) %>% ...

或者，如果您願意，以下語法的工作方式相同

ds.tab <- ds %>%
  mutate_if(~any(is.na(.)), funs(highlights(.))) %>% ...