Как изменить размер объекта grViz в пакете DiagrammeR

Я изо всех сил пытаюсь изменить размер объекта grViz в пакете DiagrammeR. Я бы хотел, например, чтобы объект был размером 18 см в ширину и высотой 14 см. Когда я пробую свойства высоты и ширины в пакете, мне кажется, что я не получаю правильного измерения. Или, в качестве альтернативы, есть способ сохранить grViz как изображение, чтобы его можно было просто вытащить в Rmarkdown?

Вот код:

---
title: "Flowchart on Trial"
author: "Moses Otieno"
date: "25/05/2021"
output: word_document
---

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


```{r test}
nodedata2 <- list(a = 1000, b = 940, c=900, d= 500, e=400, f = 230, g = 260, h = 10, i = 180, j = 190, k = 30 )

 grViz("digraph flowchart {
      # node definitions with substituted label text
      node [fontname = Helvetica, shape = rectangle]        
      tab1 [label = '@@1']
      tab2 [label = '@@2']
      tab3 [label = '@@3']
      tab4 [label = '@@4']
      tab5 [label = '@@5']
      tab6 [label = '@@6']
      tab7 [label = '@@7']
      tab8 [label = '@@8']
      tab9 [label = '@@9']
      tab10 [label = '@@10']
      tab11 [label = '@@11']


      # edge definitions with the node IDs
      tab1 -> tab2;
      tab2 -> tab3;
      tab3 -> {tab4 tab5}; 
      tab4 -> {tab6 tab7 tab8};
      tab5 -> {tab9 tab10 tab11};

      }

      [1]: paste('Sampled n=', nodedata2$a,  'participants')
      [2]: paste('Contacted ', nodedata2$b)
      [3]: paste('Enrolled n=', nodedata2$c)
      [4]: paste('Male  n=',nodedata2$d)
      [5]: paste('Female n=',nodedata2$e) 
      [6]: paste('Drug A n=', nodedata2$f)
      [7]: paste('Drug B n= ',  nodedata2$g)
      [8]: paste('Refusals n=', nodedata2$h)
      [9]: paste('Drug A n=', nodedata2$i)
      [10]: paste('Drug B n=', nodedata2$j)
      [11]: paste('Refusals n=', nodedata2$k)
      
      ")




```

```

r diagrammer
person Moses    schedule 26.05.2021    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вы можете сохранить его как изображение, используя -

library(rsvg)
library(DiagrammeRsvg)

plot %>% export_svg %>% charToRaw %>% rsvg_png("graph.png")

где plot - диаграмма grViz. Вы также можете указать высоту и ширину в rsvg_png.

person Ronak Shah    schedule 26.05.2021
comment
Ошибка в export_svg (.): Не удалось найти функцию export_svg - person Moses; 26.05.2021
comment
Я вижу только две функции экспорта export_csv и export_graph_. - person Moses; 26.05.2021
comment
Я вижу только одну функцию в пакете DiagrammeRsvg - export_svg. Он также присутствует на странице пакета github github.com/rich -iannone / DiagrammeRsvg / blob / master / R / Возможно, попробуйте обновить пакет до последней версии. Код у меня работает. - person Ronak Shah; 26.05.2021
comment
Это сработало! Я не загрузил пакет DiagrammeRsvg - person Moses; 26.05.2021