2

我正在使用 gt 包来完善表格，但我无法弄清楚为什么我的摘要行中没有出现任何值。

我能够格式化组名，因此似乎 gt 正在识别组，但实际汇总值却没有运气。我错过了一些明显的东西吗？

数据和代码：

library(gt)

df <- structure(list(Data.Source = c("Group A", "Group A", "Group A", 
                                       "Group A", "Group B", "Group B", "Group B", "Group B"), 
                     Action_Bucket = c("Individuals Educated", "Warnings", "Part I Offence", "Part III Offence"), 
                     Jan = c(0, 0, 0, 0, 0, 0, 0, 0), Feb = c(0, 0, 0, 0, 0, 0, 0, 0), Mar = c(0, 0, 0, 0, 0, 0, 0, 0), 
                     Apr = c(3162, 20, 159, 19, 0, 3, 31, 1), May = c(13696, 7, 429, 9, 0, 18, 24, 0), Jun = c(8104, 4, 103, 1, 0, 0, 0, 0), 
                     Jul = c(610, 2, 23, 4, 0, 0, 0, 0), Aug = c(304, 0, 2, 10, 0, 0, 0, 0), Sep = c(370, 0, 12, 3, 0, 0, 0, 0), 
                     Oct = c(345, 5, 49, 2, 0, 0, 0, 0), Nov = c(0, 0, 0, 0, 0, 0, 3, 0)), 
                row.names = c(NA, -8L), class = "data.frame")

gt_table <- gt(df, groupname_col = "Data.Source") %>%
  tab_header(
    title = md("GT Table"),
    subtitle = md("Subtitle")
  ) %>%
  summary_rows(
    groups = TRUE,
    columns = vars(Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov),
    fns = list(Total = "sum")) %>%
  tab_options(
    #heading.background.color = "#477DC0"
    column_labels.background.color = "#477DC0",
    row_group.background.color = '#D9E1F2',
    table.font.size = 10
  )

gt_table

谢谢！

4

1 回答 1

0

请参阅@Ben 的评论 - 需要指定 rowname_col。

于 2020-11-22T13:44:29.547 回答