1

我尝试在 R 中使用非常简单的决策树算法,但是在绘制 R48 算法的图时,所有节点都标记为"setosa",但在许多站点上,并且根据我的想法,节点一定是不同的。有人可以指出代码中的错误吗?

    library(RWeka)
    m1 <- J48(Species ~ ., data = iris)
    m1
    summary(m1)
    table(iris$Species, predict(m1))
    
    ## use partykit package
    if(require("partykit", quietly = TRUE)) plot(m1)
    ## using party
    if(require("party", quietly = TRUE)) plot(m1)

我的输出图

4

1 回答 1

0

您的代码中没有错误。问题在于,在基本 R 图中,如果轴上的标签会重叠,则会自动抑制它们。每个 x 轴上有三个刻度 - 每个物种一个,但只有 Setosa 被标记,否则标签将被绘制在彼此之上。

最简单的解决方案是让你的情节更大。例如,如果我拖动绘图窗口来填满我的屏幕,结果是:

在此处输入图像描述

于 2020-10-18T12:23:20.067 回答