kableExtra 如何使用用户定义范围中的 cell_spec？答案

【问题标题】：kableExtra how to use cell_spec from a user defined range?kableExtra 如何使用用户定义范围中的 cell_spec？
【发布时间】：2017-12-19 14:14:34
【问题描述】：

首先，包 kableExtra 确实产生了很棒的表格。我只是有一个额外的要求：

运行此示例时（来自手册）

 iris[1:10, ] %>% select(-Species) %>%
    mutate_if(is.numeric, function(x) {
          cell_spec(x, "latex", bold = T, color = spec_color(x, end = 0.9),
              font_size = spec_font_size(x))
        }) %>%
    kable("latex", escape = F, booktabs = T, linesep = "", align = "c")

单元格在每一列中格式化。 (1) 如何将它们调整到整个表？ (2) 还是用户定义的比例？我注意到kableExtra::spec_color 和 kableExtra::cell_spec 使用 scales::rescale 函数，该函数接受 from 参数，但未在函数中使用。

下面是可重现的 .Rnw 脚本代码。

\documentclass{article}
\usepackage[usenames,dvipsnames,svgnames,table]{xcolor} 
\usepackage{booktabs}
\usepackage{float}
\usepackage{colortbl}

\begin{document}
<<tab10, echo=FALSE, results="as.is">>=
require(knitr)
require(kableExtra)
require(tidyverse)
@
<<tab1, echo=FALSE, results="as.is">>=
require(knitr)
require(kableExtra)
require(tidyverse)
iris[1:10, ] %>% select(-Species) %>%
    mutate_if(is.numeric, function(x) {
          cell_spec(x, "latex", bold = T, color = spec_color(x, end = 0.9),
              font_size = spec_font_size(x))
        }) %>%
    kable("latex", escape = F, booktabs = T, linesep = "", align = "c") 
@


\end{document}

【问题讨论】：

我可以将 from 参数从 rescale 添加到选项列表。这听起来是个好主意！谢谢！

标签： r knitr kableextra kable

【解决方案1】：

好的，使用最新的开发版本，您可以在spec_color、spec_font_size 和spec_angle 中使用scale_from。

library(kableExtra)
library(dplyr)
library(knitr)
iris[1:10, ] %>% 
  select(-Species) %>%
  mutate_if(is.numeric, function(x) {
    cell_spec(x, "latex", bold = T, 
              color = spec_color(x, end = 0.9, scale_from = range(unlist(iris[1:10, ]))),
              font_size = spec_font_size(x, scale_from = range(unlist(iris[1:10, ]))))
  }) %>%
  kable("latex", escape = F, booktabs = T, linesep = "", align = "c")

【讨论】：