以编程方式为数据表中的数字列设置颜色格式

Question

我正在为每个数字列设置颜色格式，以便根据每个列的范围显示一个蓝色范围条。这是我要实现的目标的照片。

#Here is the the table I have so far.
#I am adding filters to the columns. This works great

library(DT)
library(magrittr)
df = datatable(iris, filter = 'top', options = list(pageLength = 5, autoWidth = TRUE))

#I try to add the blue bars here to the first 2 numeric columns

df %>%formatStyle(names(df)[1:2],
            background = styleColorBar(range(df[,1:2]), 'lightblue'),
            backgroundSize = '98% 88%',
            backgroundRepeat = 'no-repeat',
            backgroundPosition = 'center')
Error in df[, 1:2] : incorrect number of dimensions

如果有一个自动将蓝色条形图放置在所有数字列上的功能也很好。预先感谢

Answer 1

您可以改进以下两点：

• 以编程方式定义数字列（传递sapply(iris, is.numeric)结果）。
• 要格式化样式，您需要传递原始表（iris而不是df）。由于行名，df可能具有不同的列。
• 要向styleColorBar传递原始表，而不要传递df。

代码：

library(magrittr)
library(DT)

# Specify numeric columns
foo <- sapply(iris, is.numeric)

datatable(iris, filter = 'top', options = list(pageLength = 5, autoWidth = TRUE)) %>%
    formatStyle(names(iris)[foo],
            background = styleColorBar(range(iris[, foo]), 'lightblue'),
            backgroundSize = '98% 88%',
            backgroundRepeat = 'no-repeat',
            backgroundPosition = 'center')

结果：