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)