data <- mtcars
data[1:3,]
## mpg cyl disp hp drat wt qsec vs am gear carb
## Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
## Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
## Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
#Simple Correlation scatterplot
plot(data$mpg, data$wt, col = data$cyl)
#Scatterplot Matrix
plot(data[,4:11])
#Matrix with curves showing correlation
pairs(data[,4:11], panel=panel.smooth)
#Respresenting Correlations with symbols
symbols(data$disp, data$hp,
squares=sqrt(data$wt), inches=0.5)
