Как добавить цвет ячейки к нечисловым значениям в 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 или в формате formmattable

есть идеи?

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