Как показать количество строк и количество групп для фреймов данных в html-выводе файла Rmd?

Чтобы отобразить информацию tibble (количество строк x столбцов и информацию о группе) вместе с постраничным выводом, мы можем написать пользовательскую функцию, изменив функцию print.paged_df (которая используется внутри rmarkdown для функции df_print) и использовать CSS для красивого форматирования вывода.

---
title: "Showing data group info"
output: html_document
---

# R markdown

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, df_print = "info_paged")
```


```{r, echo=FALSE}
info_paged_print <- function(x, options) {
  tibble_info <- paste0("<div class=\"tibble-info\">A tibble: ", nrow(x), " x ", ncol(x), "</div>")
  group_info <- paste0("<div class=\"group-info\">Groups: ", 
                      paste0(group_vars(x), collapse = ", "), 
                      " [", nrow(group_keys(x)), "]", "</div>")
  
  if (dplyr::is_grouped_df(x)) {
    tab_info <- paste0("<div class=\"info\">", tibble_info, " ", group_info, "</div>")
    cat(tab_info)
  } else {
    cat(paste0("<div class=\"info\">", tibble_info, "</div>"))
  }
  knitr::asis_output(
    rmarkdown:::paged_table_html(x, options = attr(x, "options")),
    meta = list(
      dependencies = rmarkdown:::html_dependency_pagedtable()
    )
  )
}

knitr::opts_hooks$set(df_print = function(options) {
  if (options$df_print == "info_paged") {
    options$render = info_paged_print
    options$comment = ""
    options$results = "asis"
  }
  options
})
```

```{css, echo=FALSE}
.tibble-info,
.group-info {
  display: inline-block;
  padding: 15px;
}

.info {
  margin-top: 5px;
  margin-bottom: 5px;
  border: 1px solid #ccc;
  border-radius: 4px;
  font-weight: 600;
  color: #999898;
}
```


```{r, message=FALSE, warning=FALSE, comment = ""}
library(dplyr)
```

## Grouped Data

```{r}
mtcars %>% 
  group_by(am, vs)
```

## Ungrouped Data

```{r}
head(mtcars)
```


## logical filtering

```{r}
mtcars %>% 
  mutate(
    logical = if_else(mpg > mean(mpg), TRUE, FALSE)
  ) %>% 
  filter(logical)
```

И вы можете настроить CSS для отображения информации tibble по своему усмотрению.

Я попытался воспроизвести это с помощью простой пользовательской функции. Результат не совсем тот же, но он может соответствовать вашим потребностям.

Ниже приведена демонстрация с использованием набора данных mtcars и столбца «cyl».

PrintSummary <- function(df, col){
  
  Line1 <- paste0("A tibble: ", nrow(df), " x ", ncol(df))
  Line2 <- paste0("Groups: ", col, "[", length(unique(df[, col])), "]")
  
  message(Line1)
  message(Line2)
  
}

PrintSummary(mtcars, "cyl")

Вывод должен быть следующим:

A tibble: 32 x 11
Groups: cyl[3]