r - 如何在 R 中使用 bnlearn 增加贝叶斯网络图中的文本大小

Question

我正在尝试用 bnlearn 在 R 中绘制一个 Bsyesian 网络。这是我的 R 代码

library(bnlearn)
library(Rgraphviz)

first_variable <- rnorm(100)
second_variable <- rnorm(100)
third_variable <- rnorm(100)
v <- data.frame(first_variable,second_variable,third_variable)

b <- hc(v)
hlight <- list(nodes = nodes(b), arcs = arcs(b),col = "grey", textCol = "red")
pp <- graphviz.plot(b, highlight = hlight)

上面的代码有效，但图中文本的大小比我预期的要小得多。这里是：

我认为那是因为我的变量名称很长。在我的真实数据中，变量名甚至更长。这是我的真实数据集的 BN 图：

有没有办法增加情节中文字的大小？

Answer 1

这基本上在这里的帖子中得到了回答（尽管这不是 OP 唯一的问题）。

建议的两种方法是全局更改文本大小：

par(cex=0.05)
graphviz.plot(res, highlight = 
                list(nodes=nodes(res), fill="lightgreen", col="black"))

但我觉得这行不通。

或者（这就是我一直在做的）是分别更改节点特性：

g <- Rgraphviz::layoutGraph(bnlearn::as.graphNEL(b))
graph::nodeRenderInfo(g) <- list(fontsize=20)
Rgraphviz::renderGraph(g)