콘크리트 재료 별 강도와의 상관관계
con <- read.csv("concrete.csv", header = T)
head(con)
par(mfrow = c(2, 4))
plot(con$cement, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$slag, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$ash, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$water, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$superplasti, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$coarseagg, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$fineagg, con$strength, pch = 21, col = 'blue', bg = 'blue')
plot(con$age, con$strength, pch = 21, col = 'blue', bg = 'blue')
cor(con$cement, con$strength)
cor(con$slag, con$strength)
cor(con$ash, con$strength)
cor(con$water, con$strength)
cor(con$superplastic, con$strength)
cor(con$coarseagg, con$strength)
cor(con$fineagg, con$strength)
cor(con$age, con$strength)
cement와 superplastic이 강도와 양의 상관관계를 보이고 있고, water가 강도와 음의 상관관계를 보이고 있으나 그 수치가 크진않아서 전반적으로 어떤 재료가 강도에 큰 영향을 미치는지 완벽하게 알 수 없어서 각 변수 데이터로 새로운 파생 변수를 만들어서 상관관계를 비교해야될 것 같다,,