用列总和创建一个表，该列总和可通过管道传递给kable

Question

我有一个df，我想将其包含在html格式的带有rmarkdown的repport中：

df <- structure(list(n = 1:4, nn = c(14695L, 4304L, 264L, 36L)), class = c("tbl_df", "tbl", "data.frame"), 
                row.names = c(NA, -4L), .Names = c("n","nn"))



# A tibble: 4 x 2
      n    nn
  <int> <int>
1     1 14695
2     2  4304
3     3   264
4     4    36

我想在按钮的底部添加一行，其中包含以下信息：

df %>% 
  summarise(total = sum(nn))

# A tibble: 1 x 1
  total
  <int>
1 19299

然后将结果通过管道传递到kable中。我希望总和以粗体显示。我该如何实现？ 谢谢。

Answer 1

library(kableExtra)
options(knitr.kable.NA = '')
df %>% 
  bind_rows(., tibble(nn = sum(.[["nn"]]))) %>%
  kable() %>%
  row_spec(5, bold = TRUE)