R中颜色编码表的图例

问题描述

我已经用条件格式在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。任何帮助或转介表示赞赏！

解决方法

我四处张望，找到了答案。我敢肯定，经验丰富的编码人员可以找到更好的方法，但是将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>'))