@Ddkozlov Итак. Не нужео никаких скринов, а нужен воспроизводимый пример

с исходными данными.
Данные:
library(readr)
library(dplyr)
library(knitr)

cancer_data <- read_csv("http://www.evanlray.com/data/stat2/CancerSurvival.CSV")
desc_data <- cancer_data %>%
group_by(Organ) %>%
summarise(mean = mean(Survival, na.rm = TRUE),
sd = sd(Survival, na.rm = TRUE),
ns = n(),
na = sum(is.na(Survival)))
Таблицы:
> kable(desc_data, format = "markdown")


|Organ | mean| sd| ns| na|
|:--------|---------:|---------:|--:|--:|
|Breast | 1395.9091| 1238.9667| 11| 0|
|Bronchus | 211.5882| 209.8586| 17| 0|
|Colon | 457.4118| 427.1686| 17| 0|
|Ovary | 884.3333| 1098.5788| 6| 0|
|Stomach | 286.0000| 346.3096| 13| 0|
> kable(desc_data, format = "markdown", digits = c(0, 2, 2, 0, 0))


|Organ | mean| sd| ns| na|
|:--------|-------:|-------:|--:|--:|
|Breast | 1395.91| 1238.97| 11| 0|
|Bronchus | 211.59| 209.86| 17| 0|
|Colon | 457.41| 427.17| 17| 0|
|Ovary | 884.33| 1098.58| 6| 0|
|Stomach | 286.00| 346.31| 13| 0|
Что не так с ними?

Вопрос снят, но появился другой. Перезагрузившись с утра, с удивлением обнаружил, что все работает. Воспроизвести эффект не смог. Вот код в knitr, который генерирует аналогичные по структуре данные и выполняет аналогичные операции, тоже все работает. С чем может быть связано, что какие-то функции могут почему-то перестать работать?... {r setup, include=FALSE, echo = FALSE} knitr::opts_chunk$set(echo = TRUE) Пример таблицы {r echo = FALSE, results = 'asis'} library(dplyr, warn.conflicts = FALSE) library(knitr) a <- as.factor(rep(letters[1:5], 14)) b <- round(rnorm(70, mean = 600, sd = 200), 0) dfrm <- as_tibble(cbind(a,b)) descriptives <- dfrm %>% group_by(a) %>% summarize(Means = mean(b), sd = sd(b), ns = length(b), na = sum(is.na(b))) kable(descriptives, digits = c(0, 2, 2, 0, 0), col.names = c('Letter', 'Mean', 'Standard deviation', 'N', 'Missing values'))