Товарищи, вопрос) Как то задавал его в чате горячей линии,

но никто не подсказал) Пытаю счастья еще раз и уже здесь)

Надо создавать различные таблицы пакетом gt. В таблице может быть много столбцов, и мне надо к каждому применить условную заливку от максимума к минимуму.

И на данный момент я к каждому столбцу применяю функцию data_color(). Так как я могу указать в ней сразу все столбцы, но не понимаю, как указать, чтобы максимум и минимум выбирался в каждом столбце. Наверняка же можно как-то это сделать? Это уже в рамках tidyverse, наверное, а не gt.

Воспроизводимый пример:

library(gt)
library(lubridate)
library(dplyr)
library(scales)
library(RColorBrewer)

col_a <- rnorm(mean = 50000, sd = 15000, n = 10)
col_b <- rnorm(mean = 30000, sd = 5000, n = 10)
col_c <- rnorm(mean = 2000, sd = 500, n = 10)
date <- seq(ymd('2021-10-01'), ymd('2021-10-10'), by ='days') %>% ymd()
df <- data.frame(date, col_a, col_b, col_c)

df %>%
gt() %>%
fmt_number(
columns = col_a:col_c,
sep_mark = ' ',
decimals = 0
) %>%
data_color(
columns = col_a,
colors = scales::col_numeric(
palette = 'RdPu',
domain = c(min(col_a),max(col_a)),
alpha = 0.75)
) %>%
data_color(
columns = col_b,
colors = scales::col_numeric(
palette = 'RdPu',
domain = c(min(col_b),max(col_b)),
alpha = 0.75)
) %>%
data_color(
columns = col_c,
colors = scales::col_numeric(
palette = 'RdPu',
domain = c(min(col_c), max(col_c)),
alpha = 0.75))

вот тут у меня трижды вызывается data_color(), а засунуть хочу все в один.

Если просто получить максимально и минимальное значение то в базе rang () есть

ок) но все равно остается вопрос, как ее применить вот в таком варианте: df %>% gt() %>% fmt_number( columns = col_a:col_c, sep_mark = ' ', decimals = 0 ) %>% data_color( columns = col_a:col_c, colors = scales::col_numeric( palette = 'RdPu', domain = range(...), alpha = 0.75))

В инструкции указано, что надо давать палитку цветов, получается тебе надо ее подготовить

Вот почитай https://gt.rstudio.com/reference/data_color.html

читал) прочитал еще раз и понял, что можно просто поставить domain = NULL. Спасибо)