如何在R接口中将单元格从“绿色”到“红色”进行着色？

Question

这里有一个很好的例子：https://rstudio.github.io/DT/010-style.html 可以创建19个间隔和20种从"white"到"red"的RGB颜色值。

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

那么如何将颜色从“绿色”渐变到“红色”呢？

谢谢！

- Andrii

Answer 1

您可以使用colorRampPalette函数：

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

然后从length(brks)+1中选择颜色数量：

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

您是否想了解以下内容？

- Ben