在R中绘制进化树（evtree）

Question

在扩展训练集中的数据后，我试图绘制evtree，以下是我使用的代码：

###Split of Data
split=sample.split(dat$FIR.Revised.Status,SplitRatio =0.7)
training_set= subset(dat,split==TRUE)
test_set=subset(dat,split==FALSE)
###Augmenting the Data
over = ovun.sample(FIR.Revised.Status~., data=training_set, method = "over",N=3218)$data
###creating the tree
trialtreeaug <- evtree(FIR.Revised.Status~.,data = over)
plot(trialtreeaug)

请帮助我如何更好地可视化树并减少文本字体，以便更好地查看图

感谢您的帮助。