编织文件时出现 xy.coords(x, y, xlabel, ylabel, log) 错误

Question

我在运行块时一切正常，但是当我决定编织我的.rmd文件时发生错误

########### needed for testing purpose #################

library(tree)
set.seed(77191)


library(ISLR)
library(randomForest)
attach(Carseats)
n=nrow(Carseats)
indices=sample(1:n,n/2,replace=F)
cstrain=Carseats[indices,]
cstest=Carseats[-indices,]

tree.cs <- tree(Sales ~. , data = cstrain)
summary(tree.cs)
plot(tree.cs)
text(tree.cs)
y_hat <-predict(tree.cs, newdata = cstest)
test.mse =mean((y_hat - cstest$Sales)^2)  #Test's MSE
test.mse
######################################################

# 2nd chunk
cv.cs <- cv.tree(tree.cs)
cx =cv.cs$size
cy =cv.cs$dev
mymy <- xy.coords(cx,cy)
plot(mymy, xlab = "size", ylab = "dev",  type = "b")
mini.tree <-which.min(cv.cs$dev)
points(mini.tree,cv.cs$dev[mini.tree], col="green", cex= 2, pch = 20)

第二块产量：

#3rd chunk
#pruning
prune.cs <- prune.tree(tree.cs, best = mini.tree)
plot(prune.cs) # the problematic part

y_hat <- predict(prune.cs, newdata = cstest)

mean((y_hat - cstest$Sales)^2)

第三个块必须产生类似的东西： 不是以下内容的重复：

'x' 是一个列表，但没有组件 'x' 和 'y'

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

没有解决问题：

为数据拟合决策树分类器； 代码错误

我知道为了运行 plot() 需要的坐标，但在这里我试图绘制一棵树。 此外，它以前工作过很多次，但不仅仅是编织文件。

如果您想自己尝试，则会添加第一个夹头。

谢谢你。

Answer 1

我想你的问题线应该是

prune.cs <- prune.tree(tree.cs, best = cv.cs$size[mini.tree])

代替

prune.cs <- prune.tree(tree.cs, best = mini.tree)

您对索引不感兴趣，每次进行交叉验证时它都会改变，但是该索引处的树大小。

在您拥有的第二个块中也是如此

points(mini.tree,cv.cs$dev[mini.tree], col="green", cex= 2, pch = 20)

这应该是

points(cv.cs$size[mini.tree], cv.cs$dev[mini.tree], col="green", cex= 2, pch = 20)