nnet对象的绘图神经网络

Question

我很难绘制由nnet生成的神经网络。我使用的代码是：

nn <- nnet(y ~ ., data = df, size = 3, decay=5e-4, maxit=200, trace = FALSE)
plot(nn)

当我运行plot(nn)时，会得到以下错误：

xy.coords中的错误(x，y，xlabel，ylabel，log)：'x‘是一个列表，但没有组件'x’和'y‘

如果我在下面的代码中使用的是神经网络而不是nnet，那么绘图工作得很好。

nn <- neuralnet(y ~ ., data = df, linear.output = F, hidden = 3)
plot(nn)

不知道如果网络对象来自nnet，为什么绘图不能工作。我也尝试过devtools库，但是库中没有plot.nnet函数，在任何地方都找不到它。我尝试了NeuralNetTools库中的plotnet，但是图中不包含权重。任何帮助都是非常感谢的。

Answer 1

最简单的工作方式(使用虚拟数据your，因为您没有共享df)：

install.packages("NeuralNetTools")

library(NeuralNetTools)

df <- mtcars
nn <- nnet(carb ~ ., data = df, size = 3, decay=5e-4, maxit=200, trace = FALSE)
plotnet(nn)

这给出了下面的情节：

​

​