如何使用kableExtra为一个单元格着色

我只是想用kableExtra突出我桌子上的一个单元格。我遇到的问题是，我的一些单元格有$s和s。这是它的样子

df3 <- data.frame(
  "Bitcoin Price:" = c("Snow Panther B1+", "ASICminer 8 nano", "S9", "Avalon 921", "Dragonmint T1", "Edit E11++"), 
  "3000" = c("($270.71)", "($3376.85)", "($115.80)", "($530.81)", "($1108.14)", "($1035.42)"),
  "6000" = c("$1050.37", "($1004.31)", "$666.06", "$547.62", "($245.39)", "$1337.12"), 
  "9000" = c("$2371.44", "$1368.24", "$1447.92", "$1626.04", "$617.35", "$3709.66"),
  stringsAsFactors = FALSE, check.names=FALSE)

---

有人有什么建议吗？我觉得我很亲近。我正在尝试制作价值1004.31美元的红色电池。

这就是您要找的吗

df3 %>%
  mutate(`6000` = cell_spec(`6000`, "html",color = ifelse(`6000` == "($1004.31)", "red", "grey"))) %>%
  select("Bitcoin Price:", everything()) %>%
  kable(align = "c", escape = F) %>%
  kable_styling("hover", "striped", full_width = F)  %>%
  add_header_above(c(" " = 1, "Current Difficulty" = 3)) %>%
  add_footnote(c("Statistics Calculated 2019"), notation = "symbol")

---

它可能是重复的，而不是重复的。我不能使用他们使用的>80，因为我在单元格中有特殊字符。它与标记的重复不完全相同，因为它们没有使用被检查为真或假的完全相同的语句，但是x>80和x==$1004.31没有本质上的不同。基于逻辑语句设置颜色的相同方法适用。然而，我认为这不是一个很好的骗局，因为它只提到了kableExtra，并且依赖于乳胶，这可能与你有关，也可能与你无关。似乎更合适

df3 %>%
  mutate(`6000` = cell_spec(`6000`, "html",color = ifelse(`6000` == "($1004.31)", "red", "grey"))) %>%
  select("Bitcoin Price:", everything()) %>%
  kable(align = "c", escape = F) %>%
  kable_styling("hover", "striped", full_width = F)  %>%
  add_header_above(c(" " = 1, "Current Difficulty" = 3)) %>%
  add_footnote(c("Statistics Calculated 2019"), notation = "symbol")