我可以理解你的要求，将在代码部分以外的文本进行翻译。

huangapple
go评论164阅读模式
英文:

How can I draw a flow chart in ggplot2?

问题

I can help you with the translation. Here's the translated content:

我想要在R中使用ggplot2包绘制这种类型的流程图。

我可以理解你的要求，将在代码部分以外的文本进行翻译。

我尝试使用ggflowchart包。我的代码如下：

  1. library(tidyverse)
  2. library(ggflowchart)
  3. library(rcartocolor)
  4. workflow <- tibble::tibble(from = c("RMD","MD","MD","MD","LaTeX"), to = c("MD","LaTeX","HTML","WORD","PDF"))
  5. ggflowchart(workflow)
  6. node_data <- tibble::tibble(name = c("RMD","MD","LaTeX","HTML","WORD","PDF"), label = c("RMD","MD","LaTeX","HTML","WORD","PDF"))
  7. ggflowchart(workflow,node_data)                          
  8. quarto <- ggflowchart(workflow,
  9.             node_data,
  10.             colour = "#585c45",
  11.             text_colour = "#585c45",
  12.             arrow_colour = "#585c45"
  13. )+
  14.   scale_fill_carto_d(palette = "Antique") +
  15.   labs(title = "R Markdown工作流程") +
  16.   theme(
  17.     legend.position = "none",
  18.     plot.background = element_rect(
  19.       colour = "#f2e4c1",
  20.       fill = "#f2e4c1"
  21.     ),
  22.     plot.title = element_text(
  23.       size = 20,
  24.       hjust = 0.5,
  25.       face = "bold",
  26.       colour = "#585c45"
  27.     )
  28.   )

我希望图表从左到右流动（即，左侧为“RMD”节点，右侧为“PDF”节点）。但是在这个代码中，它是从上到下流动的。我还希望沿箭头旁边有文字，就像上面的链接中所示。我该如何做？

英文:

I want to draw this kind of flow chart in R using ggplot2 package.

我可以理解你的要求，将在代码部分以外的文本进行翻译。

I tried using ggflowchart package. My code is as follows:

  1. library(tidyverse)
  2. library(ggflowchart)
  3. library(rcartocolor)
  4. workflow &lt;- tibble::tibble(from = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;), to = c(&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;))
  5. ggflowchart(workflow)
  6. node_data &lt;- tibble::tibble(name = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;), label = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;))
  7. ggflowchart(workflow,node_data)                          
  8. quarto &lt;- ggflowchart(workflow,
  9.             node_data,
  10.             colour = &quot;#585c45&quot;,
  11.             text_colour = &quot;#585c45&quot;,
  12.             arrow_colour = &quot;#585c45&quot;
  13. )+
  14.   scale_fill_carto_d(palette = &quot;Antique&quot;) +
  15.   labs(title = &quot;R Markdown Workflow&quot;) +
  16.   theme(
  17.     legend.position = &quot;none&quot;,
  18.     plot.background = element_rect(
  19.       colour = &quot;#f2e4c1&quot;,
  20.       fill = &quot;#f2e4c1&quot;
  21.     ),
  22.     plot.title = element_text(
  23.       size = 20,
  24.       hjust = 0.5,
  25.       face = &quot;bold&quot;,
  26.       colour = &quot;#585c45&quot;
  27.     )
  28.   )

I want the diagram to flow from left to right (i.e., the "RMD" node on left, and "PDF" on right). But in this code, it flows from up to down. I also want the writings along side the arrows, as shown in the link above. How can I do this?

答案1

得分: 3

I have no experience with ggflowchart(). Here is an alternative suggestion using DiagrammR:

  1. library(DiagrammeR)
  3. flow_chart <- grViz("digraph {
  4.   
  5.   # horizontal alignment
  6.   graph [rankdir = LR]
  7.   
  8.   # Nodes with labels
  9.   node [shape = box]
  10.   RMD [label = 'RMD']
  11.   MD [label = 'MD']
  12.   LaTeX [label = 'LaTeX']
  13.   HTML [label = 'HTML']
  14.   WORD [label = 'WORD']
  15.   PDF [label = 'PDF']
  16.   
  17.   # Edges with labels
  18.   RMD -> MD [label = 'knit']
  19.   MD -> LaTeX [label = 'pandoc']
  20.   MD -> HTML [label = 'pandoc']
  21.   MD -> WORD [label = 'pandoc']
  22.   LaTeX -> PDF [label = 'pdflatex']
  23. }")
  25. flow_chart

我可以理解你的要求，将在代码部分以外的文本进行翻译。

英文:

I have no experience with ggflowchart(). Here is an alternative suggestion udinh DiagrammR:

  1. library(DiagrammeR)
  3. flow_chart &lt;- grViz(&quot;digraph {
  4.   
  5.   # horizontal alignment
  6.   graph [rankdir = LR]
  7.   
  8.   # Nodes with labels
  9.   node [shape = box]
  10.   RMD [label = &#39;RMD&#39;]
  11.   MD [label = &#39;MD&#39;]
  12.   LaTeX [label = &#39;LaTeX&#39;]
  13.   HTML [label = &#39;HTML&#39;]
  14.   WORD [label = &#39;WORD&#39;]
  15.   PDF [label = &#39;PDF&#39;]
  16.   
  17.   # Edges with labels
  18.   RMD -&gt; MD [label = &#39;knit&#39;]
  19.   MD -&gt; LaTeX [label = &#39;pandoc&#39;]
  20.   MD -&gt; HTML [label = &#39;pandoc&#39;]
  21.   MD -&gt; WORD [label = &#39;pandoc&#39;]
  22.   LaTeX -&gt; PDF [label = &#39;pdflatex&#39;]
  23. }&quot;)
  25. flow_chart

我可以理解你的要求，将在代码部分以外的文本进行翻译。

答案2

得分: 2

在这个阶段，我认为在ggflowchart包内部无法在箭头旁边添加文本，也许DiagrammeR是一个替代选项。

要启用水平流程，只需使用horizontal = TRUE。使用annotate在ggplot上放置自定义标签（注意我示例中第一个箭头上的“labels”），但这将是非常手动的。

  1. library(ggflowchart)
  2. library(rcartocolor)
  3. library(tidyverse)
  5. workflow <- tibble::tibble(from = c("RMD","MD","MD","MD","LaTeX"), to = c("MD","LaTeX","HTML","WORD","PDF"))
  6. node_data <- tibble::tibble(name = c("RMD","MD","LaTeX","HTML","WORD","PDF"), label = c("RMD","MD","LaTeX","HTML","WORD","PDF"))
  7.                
  8. quarto <- ggflowchart(workflow,
  9.                       node_data,
  10.                       colour = "#585c45",
  11.                       text_colour = "#585c45",
  12.                       arrow_colour = "#585c45",
  13.                       horizontal = TRUE
  14. )+
  15.   scale_fill_carto_d(palette = "Antique") +
  16.   labs(title = "R Markdown Workflow") +
  17.   theme(
  18.     legend.position = "none",
  19.     plot.background = element_rect(
  20.       colour = "#f2e4c1",
  21.       fill = "#f2e4c1"
  22.     ),
  23.     plot.title = element_text(
  24.       size = 20,
  25.       hjust = 0.5,
  26.       face = "bold",
  27.       colour = "#585c45"
  28.     )
  29.   ) +
  30.   annotate(geom = "text", x = 0.1, y = 2.5, label = "labels")
  31. quarto
英文:

At this stage I don't think it's possible to add text next to the arrows within the ggflowchart package, maybe DiagrammeR is an alternative option for that.

To enable horizontal flow, just use horizontal = TRUE. Use annotate to place custom labels onto the ggplot (note the "labels" on the first arrow in my example), but that would be very manual.

  1. library(ggflowchart)
  2. library(rcartocolor)
  3. library(tidyverse)
  5. workflow &lt;- tibble::tibble(from = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;), to = c(&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;))
  6. node_data &lt;- tibble::tibble(name = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;), label = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;))
  7.                
  8. quarto &lt;- ggflowchart(workflow,
  9.                       node_data,
  10.                       colour = &quot;#585c45&quot;,
  11.                       text_colour = &quot;#585c45&quot;,
  12.                       arrow_colour = &quot;#585c45&quot;,
  13.                       horizontal = T
  14. )+
  15.   scale_fill_carto_d(palette = &quot;Antique&quot;) +
  16.   labs(title = &quot;R Markdown Workflow&quot;) +
  17.   theme(
  18.     legend.position = &quot;none&quot;,
  19.     plot.background = element_rect(
  20.       colour = &quot;#f2e4c1&quot;,
  21.       fill = &quot;#f2e4c1&quot;
  22.     ),
  23.     plot.title = element_text(
  24.       size = 20,
  25.       hjust = 0.5,
  26.       face = &quot;bold&quot;,
  27.       colour = &quot;#585c45&quot;
  28.     )
  29.   ) +
  30.   annotate(geom = &quot;text&quot;, x = 0.1, y = 2.5, label = &quot;labels&quot;)
  31. quarto

我可以理解你的要求，将在代码部分以外的文本进行翻译。<!-- -->

<sup>Created on 2023-05-14 with reprex v2.0.2</sup>

答案3

得分: 0

With the current dev version of {ggflowchart} (version >= 1.0.0.9006), it's possible to directly add arrow labels. Install dev version:

  1. remotes::install_github("nrennie/ggflowchart")

You can add arrow labels by adding a label column to the data argument. The colour of the labels can be edited using arrow_label_fill:

  1. library(tidyverse)
  2. library(ggflowchart)
  3. library(rcartocolor)
  4. workflow <- tibble::tibble(from = c("RMD","MD","MD","MD","LaTeX"),
  5.                            to = c("MD","LaTeX","HTML","WORD","PDF"),
  6.                            label = c("knitr", NA, NA, NA, NA))
  7. node_data <- tibble::tibble(name = c("RMD","MD","LaTeX","HTML","WORD","PDF"),
  8.                             label = c("RMD","MD","LaTeX","HTML","WORD","PDF"))
  10. ggflowchart(workflow,node_data, horizontal = TRUE, arrow_label_fill = "#f2e4c1") +
  11.   scale_fill_carto_d(palette = "Antique") +
  12.   labs(title = "R Markdown Workflow") +
  13.   theme(
  14.     legend.position = "none",
  15.     plot.background = element_rect(
  16.       colour = "#f2e4c1",
  17.       fill = "#f2e4c1"
  18.     ),
  19.     plot.title = element_text(
  20.       size = 20,
  21.       hjust = 0.5,
  22.       face = "bold",
  23.       colour = "#585c45"
  24.     )
  25.   )

我可以理解你的要求，将在代码部分以外的文本进行翻译。

英文:

With the current dev version of {ggflowchart} (version >= 1.0.0.9006), it's possible to directly add arrow labels. Install dev version

  1. remotes::install_github(&quot;nrennie/ggflowchart&quot;)

You can add arrow labels by adding a label column to the data argument. The colour of the labels can be edited using arrow_label_fill:

  1. library(tidyverse)
  2. library(ggflowchart)
  3. library(rcartocolor)
  4. workflow &lt;- tibble::tibble(from = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;),
  5.                            to = c(&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;),
  6.                            label = c(&quot;knitr&quot;, NA, NA, NA, NA))
  7. node_data &lt;- tibble::tibble(name = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;),
  8.                             label = c(&quot;RMD&quot;,&quot;MD&quot;,&quot;LaTeX&quot;,&quot;HTML&quot;,&quot;WORD&quot;,&quot;PDF&quot;))
  10. ggflowchart(workflow,node_data, horizontal = TRUE, arrow_label_fill = &quot;#f2e4c1&quot;) +
  11.   scale_fill_carto_d(palette = &quot;Antique&quot;) +
  12.   labs(title = &quot;R Markdown Workflow&quot;) +
  13.   theme(
  14.     legend.position = &quot;none&quot;,
  15.     plot.background = element_rect(
  16.       colour = &quot;#f2e4c1&quot;,
  17.       fill = &quot;#f2e4c1&quot;
  18.     ),
  19.     plot.title = element_text(
  20.       size = 20,
  21.       hjust = 0.5,
  22.       face = &quot;bold&quot;,
  23.       colour = &quot;#585c45&quot;
  24.     )
  25.   )

我可以理解你的要求，将在代码部分以外的文本进行翻译。

huangapple
  • 本文由 发表于 2023年5月14日 14:42:48
  • 转载请务必保留本文链接：https://go.coder-hub.com/76246185.html
  • ggplot2
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定