如何创建一个包含下图中每个节点的百分比的表格？
library(rpart)
library(rattle)
library(rpart.plot)
library(RColorBrewer)
fit <- rpart(Species ~ ., data=iris, method="class")
fancyRpartPlot(fit)
结果如下：
我想输出一个表，其中物种作为第一列，第二列中每个节点的相关百分比。表的第二次迭代将排除第一个节点 (100%)，并通过保留包含较高百分比的行来删除重复项。
在浏览了“rpart”文档后，我仍然无法弄清楚如何创建这个表。请让我知道你在想什么。
感谢您的时间。
rpart-object 的 where 元素是终端节点的预测类。您可以通过以下方式将其放入表格中：
> iris$where <- fit$where
> with(iris, table(Species, where))
where
Species 2 4 5
setosa 50 0 0
versicolor 0 49 1
virginica 0 5 45
我猜您想要将列总和除以总计数？
> 100*colSums(with(iris, table(Species, where)) )/150
2 4 5
33.33333 36.00000 30.66667
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
