将 rpart 决策树规则保存到数据框

Question

我正在使用 rattle::asRules() 在屏幕上显示 rpart 决策规则，我的目标是将规则保存到整洁的数据框中。

这是一个例子：

library(rpart)
library(rattle)

fit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis)
rattle::asRules(fit, TRUE)

期望的输出：

Answer 1

最后，我使用sink()函数将R的输出转移到一个文件中。

sink("rules.txt")
rattle::asRules(fit, TRUE)
sink()

Save rpart decision tree rules to a dataframe