Бок о бок в Rmarkdown - PullRequest
Новая
       5

Бок о бок в Rmarkdown

0 голосов
/ 06 февраля 2020

Я относительно новичок в Rmarkdown и хотел бы создать отчет с двумя таблицами рядом.

Существует множество ссылок на то, как это сделать, используя kable, knitr и mini.pages, и несколько ссылок включают: Выравнивание нескольких таблиц рядом , Разделение таблицы рядом Сид , Книтр Гитхуб . Есть несколько других на SO.

Что я делаю: У меня есть фрейм данных, где я запускаю некоторую базовую c статистику. Я хотел бы сообщить об этой статистике в двух основных таблицах c рядом. Приведенный ниже код - это то, что я считаю лучшим для этого, но когда я создаю отчет, я просто получаю код, возвращенный без таблиц. 

 ```{r message=FALSE,include=FALSE, warning=FALSE,message=FALSE}

       dep<-dep%>%filter(tier !=0)
       d<-dep%>%dplyr::group_by(Level)%>%
       dplyr::summarise(Count=n(),
        `MeanBalance`=mean(Bal),
        `MedianBalance`=median(Bal),
        `MaxBalance`=max(Bal),
        `MinBalance`=min(Bal),
        `1stQuantBalance`=quantile(Bal,probs=.25,type = 1),
        `3rdQuantBalance`=quantile(Bal,probs=.75,type = 3),
        `MeanRate`=mean(HR),
        `MedianRate`=median(HR),
        `MaxRate`=max(HR),
        `MinRate`=min(HR),
        `1stQuantRate`=quantile(HR,probs=.25,type = 1),
        `3rdQuantRate`=quantile(HR,probs=.75,type = 3))%>%
        mutate_each(funs(prettyNum(., big.mark=",",scientific=FALSE)))


   `````

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

   t1 <- kable(head(d)[1:6], format = "latex", booktabs = TRUE)
   t2 <- kable(head(d)[7:12], format = "latex", booktabs = TRUE)

   cat(c("\\begin{table}[!htb]
\\begin{minipage}{.5\\linewidth}
  \\caption{}
  \\centering",
    t1,
"\\end{minipage}%
\\begin{minipage}{.5\\linewidth}
  \\centering
    \\caption{}",
    t2,
"\\end{minipage} 
\\end{table}"
 ))  
``````

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

Любая помощь будет высоко ценится.

* Обновление ниже для образца из 2 столбцов. 

d<-structure(list(Level=c(rep(1:7)),MeanBalance=c(seq(100,500,length.out = 7)),MedianBalance=c(seq(.003,.9,length.out = 7))))
...