Блог

Я создал таблицу с цветовой кодировкой в пакете gt R с условным форматированием. Я хотел бы включить что-то, что будет функционировать как легенда, чтобы показать, что означают цвета. Например (для простоты):

 a <- c(1 , 3 , 5 , 9)
b <- c(1 , 2 , 6 , 10)
ab <- data.frame(a , b)

library(gt)

gt(ab) %>%
  tab_style(style = list(cell_fill(color = '#E69F00') ,
                         cell_text(weight = 'bold')) ,
            locations = cells_body(columns = vars(a) ,
                                   rows = (a > b)))
  

Это создает пример таблицы с цветовой кодировкой. Я хотел бы иметь обозначение в примечаниях к источнику или в месте под рисунками, которое воспроизводило бы цвет и указывало в тексте, что цветная ячейка означает, что a выше, чем b. Любая помощь или рекомендации приветствуются!

Я покопался и нашел ответ. Я уверен, что более опытные программисты могли бы найти что-то получше, но добавление html-инструкций в tab_source_note сработало для меня. Это просто доказательство концепции; Я могу изменить размер шрифта, чтобы сделать его лучше. Передаю ее на случай, если у кого-то еще возникнет такая проблема.

 a <- c(1 , 3 , 5 , 9)
b <- c(1 , 2 , 6 , 10)
ab <- data.frame(a , b)

library(gt)
#> Warning: package 'gt' was built under R version 3.6.3

gt(ab) %>%
  tab_style(style = list(cell_fill(color = '#E69F00') , 
                         cell_text(weight = 'bold')) , 
            locations = cells_body(columns = vars(a) , 
                                   rows = (a > b))) %>%
  tab_source_note(html('<pre><span style="background-color: #E69F00;"
                       >        </span> = Higher</pre>'))