1

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

4

1 回答 1

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>'))
于 2020-09-21T23:46:08.990 回答