如何将单元格颜色添加到R中的非数字值？ （格式表或DT）

Question

获得了以下数据

library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
    Name=c("Dow Jones", "S&P 500", "Technology", 
       "IBM", "Apple", "Microsoft"),
         Value=(c(15988.08, 1880.33, NA, 
            130.00, 97.05, 50.99)),
              Change=(c(-0.0239, -0.0216, 0.021, 
               -0.0219, -0.0248, -0.0399)))

试图在表格中将其可视化，例如formattable或DT

唯一的问题是我想为每个“名称”值添加不同的单元格颜色

所以基本上，当您查看表格时，您正在查看的是一个彩色单元格的名称

似乎无法在DT或可格式化的文件中完成

有什么想法吗？

Answer 1

是您想要的吗？我不知道包含“ DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"), Name=c("Dow Jones", "S&P 500", "Technology", "IBM", "Apple", "Microsoft"), Value=(c(15988.08, 1880.33, NA, 130.00, 97.05, 50.99)), Change=(c(-0.0239, -0.0216, 0.021, -0.0219, -0.0248, -0.0399))) colors <- substring(viridisLite::viridis(nrow(DF)), 1, 7) datatable(DF) %>% formatStyle(2, backgroundColor = styleEqual(DF$Name, colors)) ”的单元格有什么问题...

datatable(DF, escape = 2) %>%
  formatStyle(2, backgroundColor = styleEqual(DF$Name, colors))

---

编辑

一个人必须转义以解决该问题：

{{1}}