玩家偏好分析

计算简单的对应分析

data2 <- read.csv("玩家喜好分析数据.csv")
head(data2)
row.names(data2) <- data2[,1]
head(data2)
library(ca)
data2.ca <- ca(data2[,-1])
data2.ca

玩家偏好分析
第一部分，各特征根的值及贡献率
第二、三部分，列联表的卡方检验

plot(data2.ca$rowcoord[,1],data2.ca$rowcoord[,2],pch=16,
     col=rgb(0.5,0.7,0.2),xlim = c(min(data2.ca$rowcoord[,1]),max(data2.ca$rowcoord[,2])+0.3),
                                       main="玩家购买道具偏好")
text(data2.ca$rowcoord[,1],data2.ca$rowcoord[,2],labels = data2.ca$rownames,
     cex = 0.8,pos = 4,col = rgb(0.5,0.7,0.2))
points(data2.ca$colcoord[,1],data2.ca$colcoord[,2],pch=17,col="red")
text(data2.ca$colcoord[,1],data2.ca$colcoord[,2],labels = data2.ca$colnames,cex=0.8,pos=4,col = "red")

玩家偏好分析