我想实现这样的画面，
以下是我现在拥有的：
如何修改代码来获取图片？我的意思是，如何去除终端节点中的$err 和$distribution？我已经阅读了关于派对情节的 Rdocumentation 但徒劳无功。提前致谢。
library(openxlsx)
library('partykit')
data<- read.xlsx("2005.XLSX", sheet = 1)
tree<-ctree(inc_total~.,data=data,control = ctree_control(maxdepth = 5))
plot(tree,type='simple',inner_panel=node_inner(tree,id=FALSE),
terminal_panel = node_terminal(tree,digits=1,id=FALSE,fill=c('white','white'),width = 14,gp=gpar(fontsize=5)))
mean((data$inc_total-predict(tree))^2)