Сводная таблица R gt (): проблемы при "вязать до tufte_handout" - PullRequest
Новая
       119

Сводная таблица R gt (): проблемы при "вязать до tufte_handout"

1 голос
/ 06 августа 2020

Я создал таблицу gt () со строками промежуточного итога, и она отлично выглядит, пока я не свяжу ее с tufte_handout. Позволь мне показать тебе. Это выдержка из таблицы в html: введите здесь описание изображения

Но когда я вяжу до tufte_handout, промежуточные итоги go переходят на новую строку и на свои места я получаю горизонтальные линии, как на следующем рисунке: введите описание изображения здесь

Кто-нибудь знает, почему это происходит? Как я могу это исправить?

Это код, который я использую: 

---
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()

Заранее спасибо!

...