Используя функцию data_color в пакете gt , я бы хотел настроить пользовательские цвета для непрерывного распределения с использованием неравных диапазонов. cut () организует данные правильно (вне gt), но при использовании scale :: col_bins () в качестве аргумента data_color () , мой кодтерпит неудачу, не производя цвета:
library(tidyverse)
library(gt)
diamonds %>% select(color, price) %>% group_by(color) %>% summarise(meanprice=mean(price))-> junk
junk$cutprice <- cut(junk$meanprice, breaks=c(3000, 3500, 4000, 5000, 10000), labels=FALSE)
junk %>% select(-cutprice) %>% gt() %>%
data_color(columns=var(meanprice),
color=scales::col_bin(
bins=c(3000, 3500, 4000, 5000, 10000),
palette = c("red", "orange", "green", "blue", "black"),
domain=c(2000, 8000))
)
Первоначальное использование base :: cut () работает нормально, но мой синтаксис для аргумента col_bin для цвета данных явно терпит неудачу.Предложения по альтернативному синтаксису.Я не смог найти пример scale :: col_bins () для решения этой ситуации.
Большое спасибо,