R中颜色编码表的图例答案

【问题标题】：Legend for color-coded table in RR中颜色编码表的图例
【发布时间】：2021-01-07 23:47:00
【问题描述】：

我在 R 的 gt 包中创建了一个带有条件格式的颜色编码表。我想包括一些可以用作图例的东西，以表示颜色的含义。例如（为简单起见）：

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。任何帮助或推荐表示赞赏！

【问题讨论】：

标签： r legend gt

【解决方案1】：

我四处寻找答案。我确信更有经验的编码人员可以找到更好的东西，但是将 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>'))

【讨论】：