我已经成功完成了rpart中的分析，其中我有0-1结果数据，我已经加权数据来处理稀缺响应的问题。当我使用prp绘制数据时，我希望标签具有真实比例，而不是加权比例。这可能吗？
下面的示例数据集（请注意，我正在处理的因素比我在这里使用的更多因素！）
require(rpart)
require(rpart.plot)
set.seed(1001)
x<-rnorm(1000)
y<-rbinom(1000,size=1,prob=1/(1+exp(-x)))
z<-10+rnorm(1000)
weights<-ifelse(y==0,1,z)
rpartfun<-rpart(y~x,
weights=z,method="class",control=list(cp=0))
rparttrim<- prune(rpartfun,cp=rpartfun$cptable[which.min(rpartfun$cptable[,"xerror"]),"CP"])
prp(rparttrim,extra=104)
[我会产生我从这里得到的图像，但我没有足够的声誉]
我希望第一个节点（实际上是所有节点！），而不是.28到.72（加权比例），有0.65到0.35（真实比例）。