library(randomForest)
data(symb.metab)
rf <- randomForest(type ~ ., symb.metab, proximity = TRUE)
# With confidence ellipses
plotProximity(rf)
# With convex hulls
plotProximity(rf, group.type = "hull")
# With contours
plotProximity(rf, group.type = "contour")
# Remove the points and just show ellipses
plotProximity(rf, point.size = NULL, circle.size = NULL, group.alpha = 0.5)
# Labels instead of a legend
plotProximity(rf, legend.type = "label", point.size = NULL, circle.size = NULL, group.alpha = 0.5)
Run the code above in your browser using DataLab