Как отобразить фрейм данных R в сгенерированном PowerPoint - PullRequest
Новая
       47

Как отобразить фрейм данных R в сгенерированном PowerPoint

1 голос
/ 15 апреля 2019 
---
title: "Untitled"
output: powerpoint_presentation
---

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

## Table

```{r table, echo=FALSE, message=FALSE, warning=FALSE}
library(tidyverse)
library(kableExtra)
mtcars %>% 
  count(cyl) %>% 
  ungroup()  # %>%
  # kable() %>%
  # kable_styling()
```

Я работаю над репро выше.Я хотел бы представить вычисленный фрейм данных mtcars в формате kable или kableExtra, например:

kableExtra

Вместо этого таблица выводит данные в следующей консолиформат: 

## # A tibble: 3 x 2
##     cyl     n
##   <dbl> <int>
## 1     4    11
## 2     6     7
## 3     8    14

Как сделать мои таблицы R PowerPoint красивыми и, что еще лучше, редактируемыми в PowerPoint?

1 Ответ

2 голосов
/ 15 апреля 2019

Вы можете использовать flextable пакет.Это поддержка вывода powerpoint_presentation с R Markdown.Ниже вы найдете пример: 

---
title: "Untitled"
output: powerpoint_presentation
---

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

## Table

```{r table, echo=FALSE, message=FALSE, warning=FALSE}
library(magrittr)
library(flextable)
mtcars[1:5,1:4] %>% 
  tibble::rownames_to_column() %>% 
  flextable() %>%
  set_header_labels(rowname = "") %>% 
  add_header_row(values = c("", "Group 1", "Group 2"), 
                 colwidths = c(1, 2, 2)) %>% 
  theme_zebra() %>% autofit()
```
...