繪製神經網絡工作

我使用RStudio。爲了繪製神經網絡，我使用包neuralnet並使用'plot'來繪製圖片。但我發現每一次，它都會讓我看到Quartz中的分離圖片，而不是RStudio的繪圖區域。繪製神經網絡工作

此外，plot在RMarkdown下不起作用。

任何人都可以告訴如何解決它？看來我需要從RStudio禁用Quartz。由於

以下是代碼

set.seed(500) 
    library(MASS) 
    data <- Boston 
    apply(data,2,function(x) sum(is.na(x))) 
    index <- sample(1:nrow(data),round(0.75*nrow(data))) 
    train <- data[index,] 
    test <- data[-index,] 
    lm.fit <- glm(medv~., data=train) 
    summary(lm.fit) 
    pr.lm <- predict(lm.fit,test) 
    MSE.lm <- sum((pr.lm - test$medv)^2)/nrow(test) 
    maxs <- apply(data, 2, max) 
    mins <- apply(data, 2, min) 
    scaled <- as.data.frame(scale(data, center = mins, scale = maxs-mins)) 
    train_ <- scaled[index,] 
    test_ <- scaled[-index,] 
    library(neuralnet) 
    n <- names(train_) 
    f <- as.formula(paste("medv ~", paste(n[!n %in% "medv"], collapse = " + "))) 
    nn <- neuralnet(f,data=train_,hidden=c(5,3),linear.output=T) 
    plot(nn)

來源

2016-09-25 lun zhang

我們可以通過在Rstudio中調用dev.off（）來解決第一個問題，但在rMarkdown中我仍然不能使用plot來顯示神經網絡 –

我發現它在一些地方，我們可以調用dev.off()直到RStudio從來沒有使用其他設備，但只有演播室情節本身

對於工作室的一部分，我們可以用陰謀（nn，rep =「best」）來獲得情節。我不知道它爲什麼有效。

來源

2016-09-25 22:02:09

我遲到了，遇到了同樣的問題，但是通過在塊解決方案中傳遞「dev =」pdf「，我可以解決這個問題，希望這對任何有相同問題的人都有幫助，代碼

{r,echo=FALSE,dev="pdf"}

來源

2017-04-19 08:20:32

繪製神經網絡工作

回答

相關問題