создать таблицу сопряженности в rmarkdown, используя kable - PullRequest
Новая
       60

создать таблицу сопряженности в rmarkdown, используя kable

0 голосов
/ 08 апреля 2020

Я пытаюсь создать отформатированную таблицу сопряженности в документе rmarkdonw html. Вот код: 

---
title: "Probabilidad"
author: "Nicolás Molano Gonzalez"
date: "7 de Abril de 2020"
output:
  html_document:
  fig_caption: true
---

```{r echo=F, message = FALSE, warning =F}

library(tidyverse)
library(kableExtra)
library(knitr)

set.seed(150)

```

это данные для таблицы: 

```{r echo=FALSE, results = 'asis'}

ca_ctr_r<-.3

n   <- 250
nCA <- round(n*ca_ctr_r)
z0  <- data.frame(status=c(rep("CA",nCA),rep("CTR",n-nCA)))
z0$exposition <- NA
exp_CA  <- .45
exp_CTR <- .19

z0[z0$status %in% "CA","exposition"]  <- ifelse(runif(nCA) < exp_CA,"yes","no")
z0[z0$status %in% "CTR","exposition"] <- ifelse(runif(n-nCA) < exp_CA,"yes","no")

z0$exposition <- factor(z0$exposition,levels = c("yes","no"))

```

вот код для печати таблицы сопряженности, которая должна быть улучшена. 

```{r echo=FALSE, results = 'asis'}

res  <- kable(t(table(z0)%>%addmargins))
#res <- kable(t(table(z0)))
kable_styling(res,"striped", position = "center",full_width = F) %>% add_header_above(c("exposition","status"=2," "))

```

Я хочу, чтобы вывод кода был аналогичен выводу базы R, а именно: 

          status
exposition  CA CTR Sum
       no   40  96 136
       yes  35  79 114
       Sum  75 175 250

add_header_above позволяет мне получить заголовок для столбцов, но я изо всех сил пытаюсь получить заголовок для строки (экспозиция) в правильном положении.

...