r - 有没有办法解决这个 x 轴错误？

Question

我刚刚用下面的代码行绘制了 ROC，但 ROC 图显示浮点数作为 x 轴上的刻度。请问我该如何解决？

    set.seed(1234)
    partROC <- sample(1:52885, 37000, replace = F)
    training <- Norm_Data[partROC,]
    testing <- Norm_Data[-partROC,]
    fitRand <- randomForest(marker~., data=training, method="class")
    fitPred <- predict(fitRand, testing, type = "class")
    ROCpred <-table(prediction=fitPred, actual=testing$marker)
    ROCprob <- predict(fitRand, testing, type = "prob")
    plot(roc(testing$marker, ROCprob[,2]), legacy.axes=TRUE, main = "ROC PLOT")

标签： r