使用 ifelse() 条件在 KableExtra 中创建 cell_spec() 工具提示答案

【问题标题】：Using ifelse() conditionals to create cell_spec() tooltips in KableExtra使用 ifelse() 条件在 KableExtra 中创建 cell_spec() 工具提示
【发布时间】：2021-08-23 19:48:07
【问题描述】：

我想使用条件向 Kable 中的某些单元格添加特定的工具提示。我在下面的示例中尝试了以下内容：

col1 <- c("A", "A*","B**")
col2 <- c("A**", "B", "C")
col3 <- c("A*", "B*", "C*")
Test <- data.frame(col1,col2,col3)
Test

Test %>%
   mutate_at(vars("col1":"col3"), ~ cell_spec(
        ., "html",
        tooltip = ifelse(. =="A*"|.=="B*"|.=="C*"|.=="D*", "Satisfactory to 22\u00B0C",
                         ifelse(. == "A**"|.=="B**"|.=="C**"|.=="D**","Satisfactory to 48\u00B0C", )))) %>%
   kable(format = "html", escape = FALSE) %>%
    kable_styling(full_width = FALSE,
                   bootstrap_options = c("striped","responsive", "hover"))

我想为每个带有一个星号（例如 A*、B*、C*）的观察添加一个工具提示“22\u00B0C 满意”，并为每个带有两个星号的观察添加一个“48\u00B0C 满意”的工具提示（A**、B**、C**）。我也想不理会其他数据。目前，如果我在 ifelse 语句的末尾包含所有 FALSE 观察的工具提示，我只能让它工作。我尝试将“else”参数设置为 NULL，但这不起作用。任何帮助将不胜感激，因为我在条件方面非常生疏。

【问题讨论】：

标签： r conditional-statements tooltip kable

【解决方案1】：

当然，你可以只使用一个空字符串""

library(kableExtra, include.only = NULL)
library(dplyr, include.only = "%>%")

col1 <- c("A", "A*","B**")
col2 <- c("A**", "B", "C")
col3 <- c("A*", "B*", "C*")
Test <- data.frame(col1,col2,col3)
Test
#>   col1 col2 col3
#> 1    A  A**   A*
#> 2   A*    B   B*
#> 3  B**    C   C*

Test %>%
  dplyr::mutate_at(
    .vars = dplyr::vars("col1":"col3"),
    .funs = ~kableExtra::cell_spec(
      x = .,
      format = "html",
      tooltip = ifelse(test = . =="A*"|.=="B*"|.=="C*"|.=="D*",
                       yes  = "Satisfactory to 22\u00B0C",
                       no   = ifelse(test = . == "A**"|.=="B**"|.=="C**"|.=="D**",
                                     yes  = "Satisfactory to 48\u00B0C", 
                                     no   = "")))) %>%
  kableExtra::kable(format = "html", escape = FALSE) %>%
  kableExtra::kable_styling(full_width = FALSE,
                            bootstrap_options = c("striped","responsive", "hover"))

【讨论】：