install.packages(c('corrgram', 'corrplot'))
library(corrgram)
library(corrplot)
Registered S3 methods overwritten by 'ggplot2': method from [.quosures rlang c.quosures rlang print.quosures rlang Registered S3 method overwritten by 'seriation': method from reorder.hclust gclus corrplot 0.84 loaded
vars2 <- c("Assists","Atbat","Errors","Hits", "Homer", "logSal", "Putouts","RBI","Runs","Walks","Years")
cor.data <- baseball[,vars2]
cor.mat <- cor(cor.data, use = 'complete.obs')
cor.mat
Assists Atbat Errors Hits Homer logSal Assists 1.00000000 0.3421174 0.703504693 0.30397495 -0.161601753 0.04995942 Atbat 0.34211738 1.0000000 0.325576978 0.96396913 0.555102154 0.41491402 Errors 0.70350469 0.3255770 1.000000000 0.27987618 -0.009743082 -0.02080208 Hits 0.30397495 0.9639691 0.279876183 1.00000000 0.530627358 0.44956563 Homer -0.16160175 0.5551022 -0.009743082 0.53062736 1.000000000 0.33983344 logSal 0.04995942 0.4149140 -0.020802084 0.44956563 0.339833444 1.00000000 Putouts -0.04339014 0.3096075 0.075305857 0.29968754 0.250931497 0.22451071 RBI 0.06290174 0.7960154 0.150154692 0.78847819 0.849107434 0.44414262 Runs 0.17925786 0.8998291 0.192608787 0.91063014 0.631075883 0.42556924 Walks 0.10252256 0.6244481 0.081937197 0.58731051 0.440453717 0.43242817 Years -0.08511772 0.0127255 -0.156511957 0.01859809 0.113488420 0.53735125 Putouts RBI Runs Walks Years Assists -0.04339014 0.06290174 0.17925786 0.1025226 -0.08511772 Atbat 0.30960746 0.79601539 0.89982910 0.6244481 0.01272550 Errors 0.07530586 0.15015469 0.19260879 0.0819372 -0.15651196 Hits 0.29968754 0.78847819 0.91063014 0.5873105 0.01859809 Homer 0.25093150 0.84910743 0.63107588 0.4404537 0.11348842 logSal 0.22451071 0.44414262 0.42556924 0.4324282 0.53735125 Putouts 1.00000000 0.31206456 0.27115986 0.2808555 -0.02001921 RBI 0.31206456 1.00000000 0.77869235 0.5695048 0.12966795 Runs 0.27115986 0.77869235 1.00000000 0.6970151 -0.01197495 Walks 0.28085548 0.56950476 0.69701510 1.0000000 0.13479270 Years -0.02001921 0.12966795 -0.01197495 0.1347927 1.00000000
corrplot
패키지를 이용한 시각화corrplot(cor.mat, type = 'upper', order = 'hclust', tl.col='black', tl.srt = 45)
type = 'upper'
order = 'hclust'
tl.col='black', tl.srt = 45
corrgram
패키지를 이용한 시각화
corrgram(cor.mat, order = 'HC', lower.panel = panel.shade, upper.panel = NULL, text.panel = panel.txt, main = '')
order = 'HC'
upper.panel = NULL
corrgram(cor.mat, order = 'HC', lower.panel = panel.shade, upper.panel = panel.pie, text.panel = panel.txt)
corrplot
을 이용한 시각화corrplot(cor.mat, col = colorRampPalette(c("firebrick3", "white", "navy"))(10), type = 'lower')
colorRampPalette
에서 firebrick3
이라는 함수를 이용하여 white와 navy색을 사용함type = 'lower'