如何使决策树的标签在R中可见？

Question

我正在研究机器学习问题，我使用决策树来使用下面所示的代码来得出结论：

library(RColorBrewer)
library(rpart.plot)
library(rpart)
library(rattle)

set.seed(27)
fit <- rpart(Achat_client ~ .,
             data = train_,
             method = "class",
             control = rpart.control(xval = 10, minbucket = 2, cp = 0), parms = list(split = "information"))

fancyRpartPlot(fit)

但我收到一个警告信息：

警告信息:实验室不适合，即使在0.15，可能会有一些高估。

我的决策树有一些标签是看不见的。

请问我如何处理这个问题？？

Answer 1

您可以尝试导出到PDF并通过PDF查看器放大：

pdf("tree.pdf")
fancyRpartPlot(fit)
dev.close()
system("evince tree.pdf") # If you have the evince PDF viewer installed