当改变平均值=”时,为什么我要使用ROCR来绘制性能曲线图来获得不同的树性能曲线图;门槛“;至;无”;

当改变平均值=”时,为什么我要使用ROCR来绘制性能曲线图来获得不同的树性能曲线图;门槛“;至;无”;,r,roc,rpart,R,Roc,Rpart,在使用rpart创建了一个简单的决策树之后,我想使用ROCR绘制性能。当我改变avg=参数时,ROC曲线发生显著变化 当我使用相同的方法和更改来绘制GLM模型的性能时,没有任何更改。为什么此参数仅影响树形图以及以何种方式影响树形图 # create tree model bsprp <- mean(df.sub.train$y) target <- y_fact ~ age + gender + a + b + c + d m.dt <- rpart(target,

在使用rpart创建了一个简单的决策树之后,我想使用ROCR绘制性能。当我改变avg=参数时,ROC曲线发生显著变化

当我使用相同的方法和更改来绘制GLM模型的性能时,没有任何更改。为什么此参数仅影响树形图以及以何种方式影响树形图

# create tree model
bsprp <- mean(df.sub.train$y)
target <- y_fact ~ age + gender + a + b + c + d

m.dt <- rpart(target, 
          data = df.sub.train, 
          parms=list(prior=c(bsprp,1-bsprp)), cp=0.005)


# predict on df.sub.vld
dt.predicted <- predict(m.dt, newdata = df.sub.vld)

dt.pred <- prediction(dt.predicted[,2],df.sub.vld$y)
dt.perf <- performance(dt.pred, "tpr", "fpr")

# plot performance 
plot(dt.perf, avg= "threshold", col="red", lwd= 2, main= "ROC curve")
abline(0, 1, untf = FALSE, col = "lightgray", lty = 2)

# vs

plot(dt.perf, avg= "none", col="red", lwd= 2, main= "ROC curve")
abline(0, 1, untf = FALSE, col = "lightgray", lty = 2)
不同情节的屏幕截图:


如果您能提供一个可复制的示例,这将有所帮助。有关更多信息,请参阅。如果您能提供一个可复制的示例,将有所帮助。有关更多信息,请参阅。
   y_fact y      age gender bf2          a             b          c
5       1 1 71.11233   Male  40          6             0          0
10      1 1 51.83836   Male  11          5             3          0
13      1 1 70.14521 Female   7          3             1          0
15      1 1 40.00548   Male  64          6             0          0
16      1 1 55.81096   Male  55          8             1          0
19      1 1 54.45479   Male  13          3             1          0