Question

我刚开始学习使用R进行编码，我试图通过C5.0进行分类。但我遇到了一些问题，我不明白。我正在寻求感谢的帮助。下面是我从某人那里学到的代码，我试图用它来运行我自己的数据：

require(C50)

data.resultc50 <- c()

prematrixc50 <- c()

for(i in 3863:3993)

{

needdata$class <- as.factor(needdata$class)

trainc50 <- C5.0(class ~ ., needdata[1:3612,], trials=5, control=C5.0Control(noGlobalPruning = TRUE, CF = 0.25))

predc50 <- predict(trainc50, newdata=testdata[i, -1], trials=5, type="class")

data.resultc50[i-3862] <- sum(predc50==testdata$class[i])/length(predc50)

prematrixc50[i-3862] <- as.character.factor(predc50)

}

Belows是两个对象needdata＆amp; testdata我在上面的代码中分别使用了部分内容：

    class Volume  MA20     MA10    MA120     MA40      MA340     MA24  BIAS10
1     1   2800    8032.00  8190.9  7801.867  7902.325  7367.976  1751   7.96
2     1   2854    8071.40  8290.3  7812.225  7936.550  7373.624  1766   6.27
3     0   2501    8117.45  8389.3  7824.350  7973.250  7379.444  1811   5.49
4     1   2409    8165.40  8488.1  7835.600  8007.900  7385.294  1825   4.02

# the above is "needdata" and actually has 15 variables with 3862 obs.

   class   Volume   MA20    MA10    MA120     MA40    MA340  MA24  BIAS10
1     1    2800     8032.00 8190.9 7801.867 7902.325 7367.976 1751   7.96
2     1    2854     8071.40 8290.3 7812.225 7936.550 7373.624 1766   6.27
3     0    2501     8117.45 8389.3 7824.350 7973.250 7379.444 1811   5.49
4     1    2409     8165.40 8488.1 7835.600 8007.900 7385.294 1825   4.02

# the above is "testdata" and has 15 variables with 4112 obs.

以上数据包含因子class，其值为0＆amp; 1。在我运行之后，我收到了以下警告：

在predict.C5.0（trainc50，newdata = testdata [i，-1]，trial = 5，...：'trial'对于此对象应该＆lt; = 1。生成预测使用1次试验

当我尝试查看刚刚创建的对象trainc50时，我注意到由于提前停止，增强迭代次数为1，如下所示：

# trainc50
Call:
C5.0.formula(formula = class ~ ., data = needdata[1:3612, ], 
             trials  = 5, control = C5.0Control(noGlobalPruning = TRUE, 
             CF = 0.25), earlyStopping = FALSE)

Classification Tree
Number of samples: 3612
Number of predictors: 15
Number of boosting iterations: 5 requested;  1 used due to early stopping
Non-standard options: attempt to group attributes, no global pruning

我还试图绘制决策树，我得到了如下错误：

plot(trainc50)

if（！n.cat [i]）{：参数的长度为零时出错另外：警告信息：在1：which（out ==“决策树：”）：数值表达式有2个元素：只使用第一个

这是否意味着我的代码在运行C5.0时执行进一步的试验太糟糕了？怎么了？有人可以帮我解释为什么我会遇到提前停止以及错误和警告信息的含义是什么？我该如何解决？如果有人能帮助我，我会非常感激。

Answer 1

用于 http://r-project-thanos.blogspot.tw/2014/09/plot-c50-decision-trees-in-r.html

using function 
C5.0.graphviz(firandomf,
              "a.txt",
              fontname='Arial',
              col.draw='black',
              col.font='blue',
              col.conclusion='lightpink',
              col.question='grey78',
              shape.conclusion='box3d',
              shape.question='diamond',
              bool.substitute=c('None', 'yesno', 'truefalse', 'TF'), 
              prefix=FALSE,
              vertical=TRUE)

在命令行中：

pip install graphviz 
dot -Tpng ~plot/a.txt >~/plot/a.png

if（！n.cat [i]）{：参数的长度为零时出错

1 个答案: