대응분석 실행
행렬도를 그리는 것에 초점이 맞춰짐.
r
library(ca)
# 데이터 불러오기
brand = read.csv('./brand.csv', head=T)
head(brand)
# 교차분석 실시
brand.tbl = xtabs(count ~ age + brand, data = brand)
brand.tbl
# 대응분석 실시
brand.ca = ca(brand.tbl)
plot(brand.ca, map='symmetric')
연산은 복잡하나, 코드는 간단.