创建一个 table 列总和可以通过管道传输到 kable

Question

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

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)

创建一个 table 列总和可以通过管道传输到 kable

Creating a table with column sums which can be piped into kable

r

dplyr

r-markdown

kable