基于多个条件的KableExtra在R标记（html）中的背景着色（NA问题）（R）

我想根据几个条件对相应矩阵的值进行背景色处理

条件如下：

X>0.5->绿色

X<0.5->红色

X=0.5->无着色

输入：

matrix %>%
    mutate_at(vars(BM), ~ cell_spec(
        ., "html", 
        background = ifelse(. > 0.5, "lightgreen", ifelse(. < 0.50, "tomato"))
        )) %>%
    mutate_at(vars(COM), ~ cell_spec(
        ., "html", 
        background = ifelse(. > 0.5, "lightgreen", ifelse(. < 0.50, "tomato"))
        )) %>%
    kable(format = "html", escape = FALSE, digits = 2) %>%
    kable_styling("striped", full_width = FALSE)

需要解决的问题

如何处理NAs，以便为所有列着色

在彩色矩阵中，舍入似乎不起作用。为什么？我怎样才能解决这个问题

非常感谢您的帮助

Error: Problem with `mutate()` input `CC`.
x missing value where TRUE/FALSE needed
i Input `CC` is `(structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
i The error occured in group 2: CNTRY = "MX":