使用 kableExtra 将分组变量与 stripping/shading 匹配

Question

我有一个 table，每个人都有多个记录 (ID1)，并且希望行阴影（即 kable_styling(c("striped")) 按组交替 (ID1)而不是每隔一行。我希望我可以将 group_by(ID1) 添加到下面的代码中......唉，我仍在寻找解决方案。虽然有 lots of helpful tips are shown here，但我无法找到解决方案。

我也想知道如何为 table 制作一个外部边框，而不是为每个单元格添加边框。

下面是一个可重现的数据集。

非常感谢。

```{r echo=F, warning=F, message = FALSE}
library(tidyverse)
library(kableExtra)

set.seed(121)
Dat <- data.frame(
  ID1 = sample(c("AAA", "BBB", "CCC","DDD"), 100, replace = T),
  ID2 = sample(c("Cat", "Dog", "Bird"), 100, replace = T),
  First = rnorm(100),
  Two = sample.int(100)) 

ExTbl <- Dat %>%
  group_by(ID1, ID2) %>%
  summarize(One = mean(First),
            Max = max(Two)) %>%
  arrange(ID1) 


kable(ExTbl) %>%
  kable_styling(c("striped", "bordered"), full_width = F)


```

> head(as.data.frame(ExTbl) )
  ID1  ID2         One Max
1 AAA Bird  0.15324169  86
2 AAA  Cat -0.02726006  83
3 AAA  Dog -0.19618126  78
4 BBB Bird  0.62176633 100
5 BBB  Cat -0.35502912  77
6 BBB  Dog -0.29977145  87
>

Answer 1

目前kableExtra中没有直接的方法，但这是我上次使用的方法。也许我应该把它打包到这个包里。

library(tidyverse)
library(kableExtra)

set.seed(121)
Dat <- data.frame(
  ID1 = sample(c("AAA", "BBB", "CCC","DDD"), 100, replace = T),
  ID2 = sample(c("Cat", "Dog", "Bird"), 100, replace = T),
  First = rnorm(100),
  Two = sample.int(100)) 

ExTbl <- Dat %>%
  group_by(ID1, ID2) %>%
  summarize(One = mean(First),
            Max = max(Two)) %>%
  arrange(ID1) 

ind_end <- cumsum(rle(as.character(ExTbl$ID1))$lengths)
ind_start <- c(1, ind_end[-length(ind_end)] + 1)
pos <- purrr::map2(ind_start, ind_end, seq)
pos <- unlist(pos[1:length(pos) %% 2 != 0])

kable(ExTbl) %>%
  kable_styling(c("bordered"), full_width = F) %>%
  row_spec(pos, background = "#EEEEEE")

使用 kableExtra 将分组变量与 stripping/shading 匹配

Match grouping variable with stripping/shading using kableExtra

markdown

r

kableextra

kable