R 마크 다운 ioslides에 큰 주파수 테이블을 맞추는 방법은 무엇입니까?

Question

큰 표를 내 슬라이드에 맞추려고합니다. 많은 가치가 있으며, 드물게 보여 주기도합니다.

나는 다른 옵션을 가지고 놀았지만 만족스런 해결책을 제공하지 못했습니다.

표 2는 압착 할 수 있지만, 작은 글꼴 및 측면에 낭비되는 공간이 많은 :

--- 
title: "Untitled" 
author: "author" 
date: "date" 
output: ioslides_presentation 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = FALSE) 
df <- as.data.frame(table(rownames((USArrests)))) 
``` 

## table 1 

```{r t1, echo = TRUE} 
table(rownames((USArrests))) 
``` 

## table 2 

```{r t2} 
library(knitr) 
library(kableExtra) 
kable(df, "html") %>% 
    kable_styling(bootstrap_options = "striped", font_size = 10) 
``` 

표 1은 적합하지 않습니다 여기에 지금까지 Rmd입니다.

나는 또한 pander, xtable 및 stargazer을 살펴 보았지만 해결 방법을 찾지 못했습니다.

다른 대안이 있습니까?

Answer 1

공간에 맞게 여러 열에 걸쳐 표를 펼칠 수 있습니다. 아래 예제에서 프레임을 길이가 다른 3 쌍의 열로 나눕니다.

--- 
output: ioslides_presentation 
--- 

```{r setup, include=FALSE} 
library(dplyr) 
library(magrittr) 
library(knitr) 
library(kableExtra) 
``` 

## table 1 

```{r, echo=TRUE, eval=FALSE} 
USArrests %>% rownames %>% table 
``` 

```{r, echo=FALSE} 
df <- USArrests %>% 
    rownames %>% 
    table %>% 
    as_tibble 

df %$% 
    tibble(
    name1 = `.`[1:17], 
    n1 = n[1:17], 
    name2 = `.`[18:34], 
    n2 = n[18:34], 
    name3 = c(`.`[35:50], ""), 
    n3 = c(n[35:50], "") 
) %>% 
    kable("html", align = c("l", "c"), col.names = rep(c("Name", "Frequency"), 3)) %>% 
    kable_styling(bootstrap_options = c("striped", "condensed"), font_size = 18) 
``` 

N.B. 여러 단계로 변환 단계를 수락하면 좀 더 우아하게 처리 할 수 ​​있고 프로그래밍 방식의 솔루션을 제공 할 수 있습니다. 그러나이를 다른 사람들에게 수정하여 맡길 것입니다.