Блог

Прекрасного дня всем вам!

Я хочу вставить mschart в Rmd, который я хотел бы связать с docx. Я понятия не имею, как вставить график. Для «обычного» docx это работает:

 ms_linechart(data = mtcars, x = "vs", y = "mpg", group = "gear") -> chart
doc <- read_docx()
doc <- body_add_chart(doc, chart = chart, style = "centered")
print(doc, target = "example.docx")
  

Вот мой код, который пока не работает:

 ---
date: "`r Sys.Date()`"
author: "Your Name"
title: "Untitled"
output: 
  officedown::rdocx_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, fig.cap = TRUE)
library(officedown)
library(flextable)
library(officer)
library(mschart)
```

```{r}
body_add_chart(ms_linechart(data = mtcars, x = "vs", y = "mpg", group = "gear"))

```
  

Спасибо за вашу помощь!

Я отправил электронное письмо разработчику, и это невозможно.

Обходной путь, который не идеален, но который может быть полезен для некоторых:

В виде фрагмента:

 
#Create plot object
my_plot <- 
data %>% 
  mschart::ms_scatterchart('x', 'y')

#Create a doc object using officer. Add chart.  
doc <- 
officer::read_docx() %>% 
body_add_chart(chart = my_plot)

#Save document to a folder
print(doc, target = here::here(path_results, "my_plot.docx"))

#Pour that document into the rmarkdown 
block_pour_docx(here::here(path_results, "my_plot.docx"))