多元统计分析及R语言建模（第五版）——第10章

10.2将由1660个人组成的样本按心理健康状况和社会经济状况进行交叉分组，分组结果如表10-4。试对这组数据实施对应分析，解释所得结果，了解数据间的联系能否很好地在二维图中反映。
表
 

	高	中高	中	中低	低
好	121	57	72	36	21
轻微症状	188	105	141	97	71
中等症状	112	65	77	54	54
受损	86	60	94	78	71

library(openxlsx)
d10.2=read.xlsx("E:/多元统计分析及R语言建模/mvexer5.xlsx",sheet ="E10.2",rowNames = T)
chisq.test(d10.2)
#经济状况和心里状况的卡方统计量为45.594，在0.001的显著水平上通过检验，说明，，
library(ca)
cal=ca(d10.2)
summary(cal)
plot(cal)

10.3广东省授权专利的对应分析：当今世界经济、科技发展迅速，市场竞争越演越烈。市场竞争实质是科技的竞争，而科技竞争的重要形式则是专利竞争。专利是实现科学技术经济价值的重要形式，也是参与市场竞争的强力武器，更是改革和发展的"助推器"。我国的专利法将专利分为三类，分别是发明专利、实用新型专利和外观设计专利。

由于各种专利类型的申请和授权量会受所在地经济状况、行业性质等因素的影响，所以不同地区专利类型的结构也会不尽相同。试对 2005 年广东省各市专利类型的申请情况（表10-5)进行对应分析和比较，并解释其原因。
 

项目	低收入户	中低收入户	中等收入户	中高收入户	高收入户
文盲或半文盲	7.11	3.68	3.51	3.09	2.24
小学程度	34.3	29.14	24.99	20.96	19.75
初中程度	49.01	55.28	56.36	57.93	49.85
高中程度	7.96	9.2	11.05	12.54	17.5
中专程度	1.13	2.33	3.28	3.74	6.72
大专程度	0.49	0.37	0.81	1.74	3.94
非企业组织得到收入	42.43	73.87	156.25	227.37	741.94
本地企业得到收入	173.73	257.72	322.94	299.17	1297.58
外出从业人口得到	306.96	940.18	1511.76	2484.98	2870.31
其他工资性收入	317.42	358.95	291.32	303.71	475.49
家庭经营收入	1820.59	2069.17	2244.54	2782.37	6479.68
转移性收入	98.14	158.3	239.27	344.35	661.23
财产性收入	20.33	32.57	63.95	119.43	699.2

d10.3=read.xlsx("E:/多元统计分析及R语言建模/mvexer5.xlsx",sheet ="E10.3",rowNames = T)
c1=d10.3[1:6,]#文化程度数据
chisq.test(c1)
c2=d10.3[7:13,]#总收入数据
chisq.test(c2)

library(ca)
ca1=ca(c1);summary(ca1)
ca1$rowcoord[,1:2]
ca1$colcoord[,1:2]
plot(ca1)

ca2=ca(c2);summary(ca2)
ca2$rowcoord[,1:2]
ca2$colcoord[,1:2]
plot(ca2)