Как покрасить одну ячейку с помощью kableExtra - PullRequest
Новая
       8

Как покрасить одну ячейку с помощью kableExtra

0 голосов
/ 05 июня 2019

Я просто пытаюсь выделить одну ячейку в моей таблице с помощью 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)

Я пробовал это, но это не работает 

df3 %>%
  mutate(
    `6000`[,2] = cell_spec(`6000`[,2], color = "red", bold = T)
  ) %>%
  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")

У кого-нибудь есть предложения?Я чувствую, что я рядом.Я пытаюсь сделать ячейки со значением ($ 1004,31) красным.

1 Ответ

1 голос
/ 05 июня 2019

Это то, что вы ищете? 

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")
...