如何在row_spec kable（）中动态指定最后一行号？

我正在生成不同行长的不同表格，因此我希望所有文本都具有特定的颜色，但我对

row\u spec

 library(kable)
 library(kableExtra)

mtcars  %>% filter(cyl=4) %>% 
kable(align=c("l", rep("c", ncol(.)-1)),bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  kable_styling(c("striped", "hover", "condensed", "responsive"), full_width = TRUE) %>% 
  row_spec(0: nrow(.),  color = "black")

---

0:nrow（.）无效，我不知道为什么，而rep（“c”，ncol（.）-1））有效。

我认为它无效，因为

nrow（.）

返回

NULL

：

library(kable)
library(kableExtra)
mtcars  %>%
  kable(align=c("l", rep("c", ncol(.)-1)),bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  kable_styling(c("striped", "hover", "condensed", "responsive"), full_width = TRUE) %>% nrow(.)
#NULL

您可以这样做来为所有行着色：

  mtcars  %>%
    kable(align=c("l", rep("c", ncol(.)-1)),bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
    kable_styling(c("striped", "hover", "condensed", "responsive"), full_width = TRUE) %>% 
  row_spec(1:nrow(mtcars),color = "black")

---

我认为它不起作用，因为

nrow（.）

返回

NULL

：

library(kable)
library(kableExtra)
mtcars  %>%
  kable(align=c("l", rep("c", ncol(.)-1)),bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  kable_styling(c("striped", "hover", "condensed", "responsive"), full_width = TRUE) %>% nrow(.)
#NULL

您可以这样做来为所有行着色：

  mtcars  %>%
    kable(align=c("l", rep("c", ncol(.)-1)),bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
    kable_styling(c("striped", "hover", "condensed", "responsive"), full_width = TRUE) %>% 
  row_spec(1:nrow(mtcars),color = "black")

---

即使不优雅，我也会分两步来做：

库（knitr）
图书馆（kableExtra）
图书馆（dplyr）
#步骤1：准备数据
温度%
过滤器（气缸==4）%>%
样本n（样本（2:nrow（.），1））%>%
选择（1:3）
#步骤2：生成表
温度%>%
可校准（校准=c（“l”，代表（“c”，ncol（临时）-1）））%>%
可折叠样式（c（“条纹”、“悬停”、“浓缩”），全宽=假）%>%
#设置最后一行的格式：
行规格（nrow（temp），color=“red”，italic=TRUE，bold=TRUE）

---

即使不优雅，我也会分两步来做：

库（knitr）
图书馆（kableExtra）
图书馆（dplyr）
#步骤1：准备数据
温度%
过滤器（气缸==4）%>%
样本n（样本（2:nrow（.），1））%>%
选择（1:3）
#步骤2：生成表
温度%>%
可校准（校准=c（“l”，代表（“c”，ncol（临时）-1）））%>%
可折叠样式（c（“条纹”、“悬停”、“浓缩”），全宽=假）%>%
#设置最后一行的格式：
行规格（nrow（temp），color=“red”，italic=TRUE，bold=TRUE）

---

嗨！它的问题是，如果我在管道之后改变我汽车中的行数，那么实际上我的行数比mtcarsHi少或多！问题是，如果我在管道安装后改变了车内的行数，那么实际上我的行数比mtcars少或多