如何根据单元格的值有条件地设置 [gt] 表中单元格的格式

Question

该包使用户可以根据有关行的条件语句gt轻松格式化单元格。我正在寻找一种根据单元格中的值格式化每个单元格的方法。

这就是我的意思。在下表中，我想根据每个单元格包含的值用 S&P 值对每个单元格进行着色。

library(gt)
library(dplyr)
library(tidyr)

# some arbitrary values of the S&P 500
jan08 <- sp500 %>% 
  filter(between(date, as.Date("2008-01-01"), as.Date("2008-01-15"))) %>%
  select(date, open, high, low, close)

gt(jan08)

此函数以字符串形式返回每个值的适当颜色名称。

## this is the range of values
sp500.range <- jan08 %>% pivot_longer(cols = c(open, high, low, close))
heat_palette <- leaflet::colorNumeric(palette = "YlOrRd",
                                      domain = sp500.range$value)

# For example:
> heat_palette(1411.88)
[1] "#FEB852"

每个单元格都可以手动着色，但这显然不实用。

gt(jan08) %>%
  tab_style(style = cell_fill(color = heat_palette(1411.88)),
            locations = cells_body(columns = "open", 
                                   rows = (open == 1411.88)))

有没有办法使用该tab_style函数根据单元格的值有条件地填充单元格？

Answer 1

首先创建gt对象，然后循环遍历行序列for以着色，因为color参数 incell_fill的值为length1

library(gt)
gtobj <- gt(jan08)
ht_values <- heat_palette(jan08$open)
for(i in seq_along(jan08$open)) {
   gtobj <- gtobj %>%
         tab_style(style = cell_fill(color = ht_values[i]),
                   locations = cells_body(columns = "open", rows = i))
}



gtobj

-输出

编辑：for然后可以将该循环放置在这样的函数中。

fill_column <- function(gtobj, column){
  ht_values <- heat_palette(jan08 %>% pull(sym(column)))
  for(i in seq_along(jan08 %>% pull(sym(column)))){
    gtobj <- gtobj %>%
      tab_style(style = cell_fill(color = ht_values[i]),
                locations = cells_body(columns = column, rows = i))
  }
  gtobj
}

然后，这个函数可以包含在管道中。

gt(jan08) %>%
  fill_column("open") %>%
  fill_column("high") %>%
  fill_column("low") %>%
  fill_column("close")