如何在rmarkdown中打印神经网络

Question

我使用neuralnet包处理神经网络。在R脚本中，我可以使用plot()命令打印和可视化我的神经网络的结果，但是当我尝试在R markdown中执行它时，它不会打印网络。

例如，这就是我构建网络的方式：

library(ISLR)
data("College")
maxs <- apply(College[,2:18], 2, max)
mins <- apply(College[,2:18], 2, min)
scaled.data <- as.data.frame(scale(College[,2:18], center = mins, scale = maxs - mins))
Private = as.numeric(College$Private)-1
data0 = cbind(Private,scaled.data)
feats <- names(scaled.data)
f <- paste(feats,collapse=' + ')
f <- paste('Private ~',f)
f <- as.formula(f)
library(neuralnet)
nn <- neuralnet(f,data0,hidden=c(10,10,10),linear.output=FALSE)
plot(nn)

代码运行完美，但R-markdown中的最后一行不会打印神经网络。