将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()