Overview
在做实验的时候因为要用到随机森林，所以使用了R中的randomForest包，但在画图的时候报了一个非常诡异的错误。
1. 错误描述
下面是我引入randomForest包之后的代码，这里省略了一些细节，只保留跟错误有关的代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 | ## randomforestlibrary("randomForest")# randomforest调参bestmtryMatrix <- tuneRF(train.bal[,-1],train.bal[,1], ntreeTry=100, stepFactor=1.5,improve=0.01, trace=TRUE,plot=FALSE, dobest=FALSE)bestmtryMatrix# 找到最佳参数bestmtry <- bestmtryMatrix[which.min(bestmtryMatrix[,2]),1]# 训练模型rfNormal <-randomForest(Class~.,data=train.bal, mtry=bestmtry, ntree=1000, keep.forest=TRUE, importance=TRUE)# 预测rfNormal.predictions <- predict(rfNormal,type="prob",newdata=test) |
在画图时的代码：
1 2 3 4 5 6 7 | g <- ggplot(data=rocdata,aes(x=ejeX,y=ejeY))+geom_line(aes(colour=Metodo),size=0.8)+scale_colour_manual(values=c("red","blue","green4"))+xlab("False positive rate")+ylab("True positive rate")+theme_custom()+theme(legend.position=c(0.73,0.1))+#设定x，y轴坐标刻度scale_x_continuous(limits=c(0, 1),breaks=seq(0,1,0.2))+scale_y_continuous(limits=c(0, 1),breaks=seq(0,1,0.2))# 添加一条对角线g <- g+geom_abline(intercept=0,slope=1) |
上面代码中，theme_custom()就是我自定义的样式函数，可以在 使用R语言ggplot2包画图时的一个不兼容问题 中查看这个函数的详细信息。
在运行时报了下面的错误：
1 2 3 | 错误于UseMethod("margin") : "margin"没有适用于"unit"目标对象的方法Calls: theme_custom ... inherits -> theme -> element_text -> structure -> margin停止执行 |
又是element_text中margin的问题，可见更新之后这里有点不稳定，我们在 使用R语言ggplot2包画图时的一个不兼容问题 讨论的问题也与margin相关。
2. 解决方法
刚开始我以为是这个函数名在randomForest中有同名函数导致冲突，所以修改了theme_custom()，改为theme_custom_chris()，结果依然报错。但是我试着删除了randomForest的相关代码（library("randomForest")这句也一定要删掉），则不再报错。
实际上，正是library("randomForest")引入randomForest包导致的问题，那在使用完randomForest之后，手动将它从当前的程序中去掉是不是就可以了呢？
在R中使用完randomForest包的代码之后，ggplot画图代码之前，添加下面的代码：
1 | detach("package:randomForest", unload=TRUE) |
意义也非常直观明了，在运行过程中detach randomForest包，然后重新运行程序，一切正常。