r - R gt summary_row 但没有新列

Question

我正在使用 GT() 包制作一个非常简单的表格。

df <- data.frame(
  Size = c("Small", "Medium", "Large"),
  Sold = c(1000, 2000, 3000)
)

df %>%
  gt() %>% 
  fmt_number(
    columns = vars(Sold),
    sep_mark = ",",
    drop_trailing_zeros = T
  ) %>% 
  summary_rows(
    columns = vars(Sold),
    fns = list(
      Total = ~sum(.))
  )

但是有一个 -- 列，我希望总数低于大小，但仍然是汇总行。因为我可以更轻松地更改颜色和尺寸。

谢谢

Answer 1

您可以添加带有空值的 missing_text 参数

library(gt)
df <- data.frame(
  Size = c("Small", "Medium", "Large"),
  Sold = c(1000, 2000, 3000)
)

df %>%
  gt() %>% 
  fmt_number(
    columns = vars(Sold),
    sep_mark = ",",
    drop_trailing_zeros = T
  ) %>% 
  grand_summary_rows(
    columns = vars(Sold),
    fns = list(
         Total = ~sum(.)), 
         missing_text = ' '
  )