Ваш вопрос не воспроизводим, но, похоже, проблема в том, что вы не включили escape = FALSE
в вызов kable
:
library(dplyr)
library(kableExtra)
data <- data.frame(student = rep(1:5, 2), grade = sample(100, 10))
table2 <- data %>% filter(student == 1) %>%
dplyr::mutate(grade = cell_spec(grade, "latex",
color = ifelse(grade > 75, "blue", "red")))
kable(table2, format = "latex", escape = FALSE)