Создание таблицы с суммами столбцов, которые могут быть переданы в Kable

У меня есть df, который я хотел бы включить в отчет с rmarkdown в формате html:

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, Я хотел бы, чтобы сумма была выделена жирным шрифтом. Как мне этого добиться? Благодарю.

Источник

1 ответ

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

Источник
Другие вопросы по тегам