las = 0

sat <- as.data.frame(state.x77[,c("Murder","Population",
                                  "Illiteracy","Income","Frost")])
library(leaps)
leaps <- regsubsets(Murder ~ Population + Illiteracy + Income + Frost,data=sat,nbest = 4)
plot(leaps,scale="adjr2",las=0)
添加las=0之后没有作用，我试了las=0,1,2,3四种情况都无济于事

看我发的贴子