如何在 R 中创建阻塞的悬挂缩进报告格式最好使用 gt

如何解决如何在 R 中创建阻塞的悬挂缩进报告格式最好使用 gt

我想使用类似于 MS Access 块分组报告的显示格式报告 R 中的数据，即省略在组的后续行中重复的数据。

library(gt)
library(tidyverse)


df = tribble( ~a,~b,~c,'a','b','c','d','e','1','e')

这里的期望输出（如果你能想象红色被剪掉的话）

我尝试了两种不同的方法。简单的 gt() 调用接近，但我想摆脱重复的值，例如第 2-3 行中的值 a/b 和第 5-6 行中的 1/b.s

df %>% gt()

首先，我按 2 列分组，但随后我丢失了列级格式和描述性标题。

df %>%
  group_by( a,b) %>%
  gt()

解决方法

也许你可以把重复的值变成空白 -

df[duplicated(df[1:2]),1:2] <- ''
gt::gt(df)

,

我们可以使用replace

library(dplyr)
library(gt)
df %>%
    mutate(across(1:2,~ replace(.,duplicated(.),""))) %>%
    gt()