定位技術 CA實作

對應分析 R網頁

2020Week11_CA

R將問卷資料轉成列聯表以便於進對應分析

1123下載

Mydata <- read.csv(file=”1123.csv”)
Mydata
str(Mydata)

A <- Mydata[ ,2:81 ]
A
str(A)

B<-colSums(A)
head(B,16)
dim(B)

C = matrix( 0, nrow=10, ncol=8)
C

d <- 1
for (i in 1:10 )
{
for ( j in 1:8 )
{
C[i,j] <- B[d]
d <- d+1
}
}
d
C

rownames(C) <- c(
“好好吃”,
“好好喝”,
“好好玩”,
“好好好”,
“好Q軟”,
“好好吃吃”,
“好好喝喝”,
“好好吃的”,
“好好喝ㄟ”,
“好好玩恩”)

colnames(C) <- c(
“A”,
“B”,
“C”,
“D”,
“E”,
“F”,
“G”,
“H”)

C

library(“FactoMineR”)
library(“factoextra”)

res.ca <- CA(C, graph = FALSE)

fviz_ca_biplot(res.ca, repel= TRUE, title=’定位技術’)