如何在 RStudio 中创建海量树形图？答案

【问题标题】：How to create a massive tree diagram in RStudio?如何在 RStudio 中创建海量树形图？
【发布时间】：2016-03-24 17:23:10
【问题描述】：

我是 R 新手。

我想创建一个巨大的树形图，代表 R 中的乐透游戏，看起来像这张图片中的树形图 1（我通过 PowerPoint 制作的）：

问题是我需要从 45 个球中抽出 6 个球。在这种情况下，总共有 127 个元素。我尝试使用 PowerPoint 创建一个树形图，它看起来像树形图 2。

然后我放弃了。我无法输入“匹配”和“不匹配”并手动计算如此庞大的图表的概率。

如何创建一个看起来像树图 2 且在树图 1 中具有相似标签的树图？

【问题讨论】：

请尽量避免包含 RStudio 标签，除非您的问题与 IDE 的特定功能有关，而不是关于 R 编程语言的问题。

标签： r tree diagram

【解决方案1】：

DiagrammeR package 应该会有所帮助：

library(DiagrammeR)

nodes <- create_nodes(nodes = 1:7, type = "number")

edges <- create_edges(from = c(1, 1, 2, 2, 3, 3),
                        to = c(2, 3, 4, 5, 6, 7),
                       rel = "leading to")

graph <- create_graph(nodes_df = nodes, 
                      edges_df = edges, 
                      graph_attrs = "layout = dot", 
                      node_attrs = "fontname = Helvetica", 
                      edge_attrs = "color = gray20") 

# View the graph
render_graph(graph)

您可以通过相应的编程和标签获得“花哨”：

nodes <- create_nodes(nodes = 1:7, type = "number",
                      label = c("Lotto", rep(c("match", "no match"), times = 3)))

### Same Code as Above...

【讨论】：

我怎样才能用这种方法再造一个轮胎？
另外，如何显示每个圆圈中的概率？
您需要尝试——通过添加额外的节点和边来添加更多层/级别。您可以通过向label 属性添加附加文本来显示概率。 StackOverflow 不是代码编写服务。