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(.))) %>% ...