pairs(dataframe,col=dataframe$TwoClassVariable)
plot(data$variable1 ~ data$variable2)
abline(lm(data$variable1 ~ data$variable2), col = "green")
pairs(~data$variable1 + data$variable2 + data$variable3, cex.labels = 1.2)
base <- data[3:8]
base.r <- abs(cor(base))
base.color <- dmat.color(base.r)
base.order <- order.single(base.r)
cpairs(base, base.order, panel.colors = base.color, gap = .5,
main = "Variables Ordered and Colored by Correlation")
plot3d(data$variable2, data$variable3, data$variable1, main = "3D Plot")
Scatterplot: