Как изменились цвета ячеек от «зеленого» до «красного» в интерфейсе R к DataTables?

Question

Отличный пример: https://rstudio.github.io/DT/010-style.html, позволяющий создать 19 цветов разрыва и 20 цветов в диапазоне от «белого» до «красного»:

library(DT)

# 1. Data
df = as.data.frame(cbind(matrix(round(rnorm(50), 3), 10), sample(0:1, 10, TRUE)))

# 2. Create 19 breaks and 20 rgb color values ranging from white to red
brks <- quantile(df, probs = seq(.05, .95, .05), na.rm = TRUE)
clrs <- round(seq(255, 40, length.out = length(brks) + 1), 0) %>%
    {paste0("rgb(255,", ., ",", ., ")")}

# 3. DT
datatable(df) %>% formatStyle(names(df), backgroundColor = 
 styleInterval(brks, clrs))

Но как сделать такую ​​же раскраскуот "ЗЕЛЕНЫЙ" до "КРАСНЫЙ"?

Спасибо!

Answer 1

Вы можете использовать colorRampPalette:

ramp <- colorRampPalette(c("red", "green"))

и затем выбрать количество цветов из length(brks)+1:

clrs <- ramp(length(brks)+1)

Это то, что вы имели в виду?