使用插入符号方法 rpart R 进行错误训练答案

【问题标题】：Error training with caret method rpart R使用插入符号方法 rpart R 进行错误训练
【发布时间】：2017-03-09 12:39:14
【问题描述】：

我在尝试使用 caret 包训练数据集时遇到错误。错误如下...Error in train.default(x, y, weights = w, ...) : Stopping。我也有warnings()，它们都是相同的，因为我正在使用以下代码为tuneGrid 创建一个对象...grid <- expand.grid(cp = seq(0, 0.05, 0.005))。此代码正在创建一个data.frame，其中有 11 行对应于我遇到的 11 个警告。这是警告...In eval(expr, envir, enclos) : model fit failed for Fold01: cp=0 Error in[.data.frame(m, labs) : undefined columns selected。看起来cp 没有任何东西。我可以进入我的环境并查看网格对象和所有 11 行。我搜索了stackoverflow，发现了类似的问题，但是由于这些函数有很多方法可以调整它们，所以我还没有找到可以解决我的问题的问题。这是我的代码...

require(rpart)
require(rattle)
require(rpart.plot)
require(caret)


setwd('~/Documents/Lipscomb/predictive_analytics/class4/')
data <- read.csv(file = 'data.csv',
                 head = FALSE)

data <- subset(data, select = -V1)

colnames(data) <-  c('diagnostic', 'm.radius', 'm.texture', 'm. perimeter', 'm.area', 'm.smoothness', 'm.compactness', 'm.concavity', 'm.concave.points', 'm.symmetry', 'm.fractal.dimension',
                     'se.radius', 'se.texture', 'se. perimeter', 'se.area', 'se.smoothness', 'se.copactness', 'se.concavity', 'se.concave.points', 'se.symmetry', 'se.fractal.dimension',
                     'w.radius', 'w.texture', 'w. perimeter', 'w.area', 'w.smoothness', 'w.copactness', 'w.concavity', 'w.concave.points', 'w.symmetry', 'w.fractal.dimension')

str(data)

set.seed(7)
sample.train <- sample(1:nrow(data), nrow(data) * .8)
sample.test <- setdiff(1:nrow(data), sample.train)


data.train <- data[sample.train, ]
data.test <- subset(data[sample.test, ], select = -diagnostic)

rpart.tree <- rpart(diagnostic ~ ., data = data.train)
out <- predict(rpart.tree, data.test, type = 'class')
table(out, data[sample.test, ]$diagnostic)

fancyRpartPlot(rpart.tree)

temp <- rpart.control(xval = 10, minbucket = 2, minsplit = 4, cp = 0)
dfit <- rpart(diagnostic ~ ., data = data.train, control = temp)
fancyRpartPlot(dfit)

fit.control <- trainControl(method = 'cv', number = 10)
grid <- expand.grid(cp = seq(0, 0.05, 0.005))
trained.tree <- train(diagnostic ~ ., method = 'rpart', data = data.train, 
                      metric = 'Accuracy', maximize = TRUE,
                      trControl = fit.control, tuneGrid = grid)

【问题讨论】：

标签： r r-caret rpart

【解决方案1】：

我已经找到了解决这个问题的方法。我改变了命名colnames 的方式。出于某种原因，命名colnames 的原始代码导致使用train 函数时出错。这段代码解决了这个问题。

colnames(data) <-  c('diagnostic', 'radius', 'texture', 'perimeter', 'area', 'smoothness', 'compactness', 'concavity', 'concavePoints', 'symmetry', 'fractalDimension',
                     'SeRadius', 'SeTexture', 'SePerimeter', 'SeArea', 'SeSmoothness', 'SeCopactness', 'SeConcavity', 'SeConcavePoints', 'SeSymmetry', 'SeFractalDimension',
                     'Wradius', 'Wtexture', 'Wperimeter', 'Warea', 'Wsmoothness', 'Wcopactness', 'Wconcavity', 'WconcavePoints', 'Wsymmetry', 'WfractalDimension')

【讨论】：