使用graphviz.chart绘制贝叶斯网络时出现'graphviz.layouts'未找到错误

错误原因 #

该错误是由于bnlearn调用Rgraphviz中的graphviz.layouts对象失败导致的，核心原因通常是Rgraphviz版本过旧，或是包的安装/加载不完整，使得该对象未被正确识别。

解决步骤 #

1. 重新安装最新版Rgraphviz #

Rgraphviz属于Bioconductor生态的包，无法通过常规的install.packages()安装，需用Bioconductor的工具完成安装：

# 先安装BiocManager（未安装过的话执行）
if (!require("BiocManager", quietly = TRUE))
    install.packages("BiocManager")
# 安装最新版Rgraphviz
BiocManager::install("Rgraphviz")

2. 按顺序加载包并执行代码 #

安装完成后重启R会话，先加载Rgraphviz再加载bnlearn，避免依赖调用冲突：

library(Rgraphviz)
library(bnlearn)

modelstring = paste("[HIST|LVF][CVP|LVV][PCWP|LVV][HYP][LVV|HYP:LVF][LVF]",
                     "[STKV|HYP:LVF][ERLO][HRBP|ERLO:HR][HREK|ERCA:HR][ERCA][HRSA|ERCA:HR][ANES]",
                     "[APL][TPR|APL][ECO2|ACO2:VLNG][KINK][MINV|INT:VLNG][FIO2][PVS|FIO2:VALV]",
                     "[SAO2|PVS:SHNT][PAP|PMB][PMB][SHNT|INT:PMB][INT][PRSS|INT:KINK:VTUB][DISC]",
                     "[MVS][VMCH|MVS][VTUB|DISC:VMCH][VLNG|INT:KINK:VTUB][VALV|INT:VLNG][ACO2|VALV]",
                     "[CCHL|ACO2:ANES:SAO2:TPR][HR|CCHL][CO|HR:STKV][BP|CO:TPR]", sep = "")
dag = model2network(modelstring)
fitted = bn.fit(dag, alarm)
graphviz.chart(fitted, grid = TRUE, bg = "beige", bar.col = "black")

3. 备选方案：手动指定layout参数 #

如果上述步骤仍报错，可以直接指定layout参数（比如"dot"），绕过对graphviz.layouts的检查：

graphviz.chart(fitted, grid = TRUE, bg = "beige", bar.col = "black", layout = "dot")

补充说明 #

• 建议使用R 4.0及以上版本，减少跨版本兼容问题；
• 若安装Rgraphviz时出现编译错误，需先安装系统级的graphviz依赖：Ubuntu可执行sudo apt-get install graphviz libgraphviz-dev，Windows可直接安装预编译包。

内容的提问来源于stack exchange，提问作者Noir