Question

我想要做的是在我的R Markdown文件的代码块中用DiagrammeR创建一个基本流程图，并使它可引用（如果可能的话，就像我对ggplot2图形所做的那样->图中的fig.cap =“”块标题）。

到目前为止，我的代码：

```{r flowchart-ablauf, fig.cap = "Ablauf der Datenverarbeitung", fig.align = 'right', echo = FALSE}
DiagrammeR::grViz(diagram = "
              digraph rmarkdown {

              graph [nodesep = 1.5, ranksep = 1.5]                  

              node [shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 16.5, height = 3]
                'Verbrauchsdaten von der\nSpitalpharmazie (Excel-Tabelle)'; 'Belegzahlen vom Ressort\nFinanzen (Excel-Tabelle)'; 

              node [shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 20.5, height = 3]
              'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)'; 'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen';
              'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen'; 'Berechnung und grafische Darstellung\nder Grafiken und Tabellen'

              node [shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 20.5, height = 2]
              'Import der neuen Tabellen in R';

              #Pfeile
              edge [arrowhead = vee, arrowsize = 4, penwidth = 6]
              'Verbrauchsdaten von der\nSpitalpharmazie (Excel-Tabelle)' -> 'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)';
              'Belegzahlen vom Ressort\nFinanzen (Excel-Tabelle)' -> 'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)';
              'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)' -> 'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen';
              'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen' -> 'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen'
              'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen' -> 'Import der neuen Tabellen in R'
              'Import der neuen Tabellen in R' -> 'Berechnung und grafische Darstellung\nder Grafiken und Tabellen'
              }
              ")

```

蜜蜂编织成pdf后的外观：

我有几个问题：

为什么必须将fontsize设置得太大才能使其可读？我的意思是现在是80，还比yaml标头中设置为11pt的文本的字体大小小吗？！
为什么“ fig。align ='right'”什么都不做？
最重要的是：如何摆脱流程图下方（流程图和图形标题之间）的巨大空白？

Answer 1

I've found a working solution here

这就是我的代码最终的外观：

---
 header-includes:
  - \usepackage{wrapfig}
  - \usepackage{lipsum}
output: 
   pdf_document:
    keep_tex: true
 ---


```{r, include = F}
defOut <- knitr::knit_hooks$get("plot")  # save the default plot hook 
knitr::knit_hooks$set(plot = function(x, options) {  # set new plot hook ...
  x <- defOut(x, options)  # first apply the default hook
  if(!is.null(options$wrapfigure)) {  # then, if option wrapfigure is given ...
    # create the new opening string for the wrapfigure environment ...
    wf <- sprintf("\\begin{wrapfigure}{%s}{%g\\textwidth}", options$wrapfigure[[1]], options$wrapfigure[[2]])
    x  <- gsub("\\begin{figure}", wf, x, fixed = T)  # and replace the default one with it.
    x  <- gsub("{figure}", "{wrapfigure}", x, fixed = T)  # also replace the environment ending
   }
   return(x)
   })
```

```{r flowchart-ablauf, echo = F, fig.cap = "Ablauf der Datenverarbeitung", fig.align = 'right', out.extra = 'trim = {5cm 6.5cm 12.5cm 4cm}', out.width=".5\\textwidth", wrapfigure = list("R", .5)}
DiagrammeR::grViz(diagram = "
              digraph rmarkdown {

              graph [nodesep = 1.5, ranksep = 1.5]                  

              node [style = filled, fillcolor = Gray90, shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 16.5, height = 3]
                'Verbrauchsdaten von der\nSpitalpharmazie (Excel-Tabelle)'; 'Belegzahlen vom Ressort\nFinanzen (Excel-Tabelle)'; 

              node [shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 20.5, height = 3]
              'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)'; 'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen';
              'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen'; 'Berechnung und grafische Darstellung\nder Grafiken und Tabellen'

              node [shape = box, fontname = Helvetica, fontsize = 80, penwidth = 6, fixedsize = true, width = 20.5, height = 2]
              'Import der neuen Tabellen in R';

              #Pfeile
              edge [arrowhead = vee, arrowsize = 4, penwidth = 6]
              'Verbrauchsdaten von der\nSpitalpharmazie (Excel-Tabelle)' -> 'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)';
              'Belegzahlen vom Ressort\nFinanzen (Excel-Tabelle)' -> 'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)';
              'Import der Daten aus Excel ins\nMicrosoft Access (Datenbanksoftware)' -> 'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen';
              'Zusammenführen der Informationen und\nerstellen neuer, berechneter Tabellen' -> 'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen'
              'Export der neu erstellten Tabellen\nin Form von Excel-Tabellen' -> 'Import der neuen Tabellen in R'
              'Import der neuen Tabellen in R' -> 'Berechnung und grafische Darstellung\nder Grafiken und Tabellen'
              }
              ")

```

如何摆脱用DiagrammeR制作并编织成pdf的流程图下方的空白？

1 个答案: