Shiny应用中kableExtra column_spec列条件格式不一致问题

问题根源 #

你当前的条件格式化逻辑错误，因为三个% change列共用了同一组判断依据（仅使用了第一组学校的变化率数据），但实际上这三个列分别对应不同学校的学费变化率，需要为每个列匹配各自对应的数据源。

修正步骤 #

1. 预处理数据时，给三个重复的percent_change列重命名，避免混淆；
2. 在column_spec中，基于管道内的当前数据（用.引用），为每个% change列单独设置对应的条件判断。

完整修正代码 #

# tuition table that is close to "beta ready".
output$tuitionTable <- function() {
  tuition_formatted %>%
    # 重命名三个重复的percent_change列，区分不同学校
    rename(
      pct_change_uaa = `percent_change(tuition, 4, 6)`,
      pct_change_uaf = `percent_change(tuition, 4, 6).1`,
      pct_change_uas = `percent_change(tuition, 4, 6).2`
    ) %>%
    select(-c("mau", "mau.1", "mau.2", "fee_type.1", "fee_type.2")) %>%
    dplyr::mutate_if(is.numeric, ~round(., 2)) %>%
    kbl(booktabs = T, 
        col.names = c("Fee Type", "Fall 2023 Total", "Fall 2022 Total", "% change",
                      "Fall 2023 Total", "Fall 2022 Total", "% change",
                      "Fall 2023 Total", "Fall 2022 Total", "% change"),
        caption = "Tuition and Revenue ($)",
        format.args = list(big.mark = ",")) %>%
    add_header_above(c(" ","School 1" = 3, "School 2" = 3, "School 3" = 3)) %>%
    # 为每个% change列单独设置条件背景色，基于当前管道内的对应列
    column_spec(4, color = "white", 
                background = ifelse(.$pct_change_uaa >= 0.01, "red", "green")) %>%
    column_spec(7, color = "white", 
                background = ifelse(.$pct_change_uaf >= 0.01, "red", "green")) %>%
    column_spec(10, color = "white", 
                background = ifelse(.$pct_change_uas >= 0.01, "red", "green")) %>%
    kable_styling("striped", full_width = T, position = "left", font_size = 12)
}

额外提示 #

注意你的阈值设置：如果percent_change列的数值是百分比的实际值（比如0.89代表0.89%），那么>=0.01对应的是1%的变化率；如果数值是百分比的倍数（比如89代表89%），则阈值应该调整为1而非0.01，可根据你的实际数据含义修改。

内容的提问来源于stack exchange，提问作者Kevin