1

我制作了一个带有小计行的 gt() 表，它看起来很棒，直到我将它编织到 tufte_handout。我来给你展示。这是html中表格的摘录： 在此处输入图像描述

但是当我编织到 tufte_handout 时，小计转到一个新行，在它们的位置我得到水平线，如下图所示：在此处输入图像描述

有谁知道为什么会这样？我该如何解决？

这是我正在使用的代码：

---
title: "stuff - ppt"
date: "04/08/2020"
output:
  html_document:
    df_print: paged
    dev: CairoPNG
    fig_caption: yes
    fig_height: 16
    fig_width: 20
--- 


tib <- tibble(Categ = c("A","B","C","B","B","C","A","A","A"),
              Subcateg=c("A1","B1","C2","B2","B3","C2","A1","A1","A3"),
              Id=c("AA","BB","CC","DD","EE","FF","GG","HH","II"))

tib %>%
  count(Subcateg, Categ) %>%
  mutate(prop = round((n / sum(n)) * 100, 2)) %>%
  gt(rowname_col = "Subcateg", groupname_col = "Categ")  %>% 
  summary_rows(
    groups = TRUE,
    columns = vars(n, prop),
    fns = list(total = ~sum(., na.rm = TRUE))
  ) %>% 
  summary_rows(
    groups = TRUE,
    columns = vars(n),
    fns = list(total = ~sum(., na.rm = TRUE)),
    formatter = fmt_number,
    decimals = 0) %>% 
  tab_options(
    row_group.font.weight = "bold"
  ) %>% 
  
  cols_label(
    Subcateg = "Classification",
    n = "Frequency",
    prop = "Percentage"
  ) %>%
  tab_spanner(
    label = "Number of stuff",
    columns = vars(n, prop)
  ) %>%
  tab_header(
    title = "Classification",
    subtitle = md("&nbsp;")
  )  %>% 
  as_latex()

提前致谢！

4

0 回答 0