针对不同群体设计不同特性的相机产品

非参大作业：针对不同群体设计不同特性的相机产品组长略文献简述及初步探索李克特量表1、总体分布情况图1度量c01-c05，c11-c16的得分情况，将每一份问卷的得分相加，得到总分score，整体情况如图1.从图中可以看出,量表总分绝大部分分布在“普通”(3×11=33)右侧,即群体态度倾向于积极。群体量表总分均值为41,标准差为5.616133。(Rcode1)2、因子分析关Total阴Vari穴ance晋Expla屡ined矛Compo盆nent个Initi寿alEi蜓genva朵lues椒Extra尺ction榆Sums寨ofS税quare稍dLoa头dings很Rotat答ionS锈umso玩fSqu组ared刺Loadi可ngs孔Total剧%of情Varia蹲nce彩Cumul劳ative介%凤Total应%of就Varia乔nce焦Cumul滋ative槐%搬Total旨%of未Varia齐nce巩Cumul权ative苦%石1书4.299宅39.07敲8准39.07瞎8森4.299熊39.07安8搂39.07洒8完3.547地32.24菠2物32.24怨2俗2逮1.408间12.79赞8流51.87文6擦1.408于12.79家8膛51.87坑6坝2.056制18.68华7界50.92毕9掏3金1.087霜9.879傅61.75豪4响1.087付9.879熊61.75逐4献1.191社10.82扰5埋61.75逃4尖4菠.881卖8.008泰69.76稍2诚5贤.798粥7.256衫77.01术8旧6龟.711守6.465恳83.48痕2顽7犬.545热4.954社88.43忽6峰8纺.466邪4.235眉92.67荷1也9袍.400受3.634军96.30或5挡10职.293丢2.667归98.97姐2犹11睬.113些1.028衔100.0喂00依Extra嗽ction果Meth灾od:P扁rinci摆palC盏ompon驳entA慨nalys扩is.3、分类情况概览（用rpart包做决策树）(Rcode2)为了解对不同相机特性的重视程度和职业的关系，抽样420个数据记录作为训练集，用剩下449个数据记录作为测试集，进行了回归树分析，得到的初步分类为下图所示：测试的结果为：>table(predict(kyphosis,kyphosis1,type="class"),camera[tsamp,19])飞蹄1拾23诚4燃1炒151恰812越10愈2仙41111伯6756耕3贯52牧220成10假4订102戏017袋15陵衫误分率为6应4%馒仗从决策树中艳可以大致看弄出每种职业绘的偏好特点凉情况：顶·校1代表学生悉：学生群体义的特点：往店往处在左向绒树枝的末端眉，意味着学档生往往对于怕相机的各个呢参数都很看猴重，属于非伍常敏感的群纷体；磁·拘2代表企业析大经理：企蝇业大经理的穗位置分布较蠢广，可以认咽为群体内的收差异比较大衡，没有非常滥统一的敏感划特点；剥·是3代表一般甚行政：这个观群体比较明稍显的一个特怕征是，有一帽部分人非常渠看重定时拍娃摄，但对任余意角度拍摄馅并不敏感夺·苦4代表专业汤技术：该群抵体在下图的大最右支这部矮分人群较为棍重视相机可盒上网的功能总，这一点比近较值得关注闪。帜下表为全数请据进行得回裁归树分析：床(Rcod蝶e3)描述统计立不同职业的珠人对外观的彩重视程度滑1、蹄轻薄短小，千携带方便胳2、群新潮、很绚匹3、同多样化颜色燃4、敢搭配流行的锈造型图案薯在外观的选迎择上，不同纱职业人群的顿偏好大体相配同。其中，夺对亡“酿新潮、很炫汉”址这一外观特屠性普遍持重冤视态度，而铲对其它外观践特征，持普点通和重视态编度的人群比灰例大体相同施并且均较高欢。兄不同职业的丹人对功能的划重视程度检简单的操作砍方式，只要顷按一个键就座能拍摄煌连动拍摄（忠1秒20张希）谎任意角度拍壶摄定时拍摄可更换镜头可接三角架可上网筹在功能的选幼择上，不同疑职业人群的债偏好游也谎大体相同。慌其中，对中“现操作简单、戚联动拍摄、稿任意角度拍丘摄躁”齿这三种功能懂特性普遍持械相当横重视蹄的智态度，而对训其它霸四种功能锋特征，持普戴通刺态度的人群困比例最高东。搂不同性别对肺相机外观的雁重视程度插1、贤轻薄短小，洪携带方便栏2、齐新潮、很绚剥3、历多样化颜色棒4、则搭配流行的展造型图案连对外观选择三方面，男女盖偏好大体一槐致。其中，斤两者均对捞“廊新潮、很炫侨”肯这一外观特汪性持重视态圣度，其他三国个方面的外宇观特性持普躁通与重视态耍度的人群比她例大致相同毙且均较高。碍不同性别对泥相机功能的脑重要程度内简单的操作得方式，只要抚按一个键就蜻能拍摄蝇连动拍摄（虑1秒20张挺）腹任意角度拍雄摄定时拍摄可更换镜头可接三角架可上网雁在功能的选栏择上，不同项性别的人群嫌偏好也大体纳相同。其中篇，对气“久操作简单、挂联动拍摄、眠任意角度拍土摄都”姑这三种功能愉特性普遍持沉相当重视的座态度，而对持其它四种功活能特征，持误普通态度和怀重视态度的衬人群比例均遵较高。弟不同性别对伯价格的可接长受程度崖对半价格的可接弦受程度，男脉性普遍能接井受较高价格挑，而女性倾踩向于较低价爸格。其中，京男性能接受拉的价格集中终在1000础-3000娃左右，而女参性能接受的蚁价格集中在肤2000以墓下。滋不同职业对买价格的可接闹受程度绢对价格的可贞接受程度，滋不同职业的弟人群有较大幕差异。其中休，专业技术火人员能接受娘的价格最高佣；一般行政历人员和企业征大堂经理能交接受的价格细最低，基本肯集中在20已00以内；沟学生的可接品受价格处于嚼中间水平，崇普遍集中在裁1000-抵2000元槐之间。欢综上所述，篇不同职业和嘴不同性别的宜人群对相机陆外观和功能石的偏好大致驶相同。其中越，在外观上租，人们普遍济对隶“弦新潮、很炫游”肥比较看重；情在功能上，析人们普遍对哈“蛛操作简单、蜜联动拍摄、殊任意角度拍六摄订”约相当重视。掉在价格的可之接受程度上测，不同职业钢和不同性别恢的人群有较炊大差异。其悄中，性别方第面，男性可幼接受的价格汗高于女性；梦职业方面，知专业技术人圣员可接受的魂价格最高，慧其次为学生委，一般行政温人员和企业婶大堂经理可宗接受价格最耽低。妹不同兔职业的人对挠于邪相机各慨属性重啊视突程度辈的比较派由之前的描历述统计结果必可以看到男粮女对于相机诚属性的偏好丽各不相同，猎因此为了更战好的了解不犹同职业的人塑偏好的不同忽，我们首先辽将总体分男熟女进行区分妄，然后分别庆对男性和女冒性不同职业摄的人群做呈其对不同相匙机属性重视鸽程度的Ri测dit检验坏。泼H0：所考应察人群对于镇各属性的重矮视程度无轻筝重之分膀H1：所考梦察人群对于需各属性的重稀视程度有轻内重之分概不同职业人跨群对于咱携带方便特额性（C01湿）慎的重视程度弦列联表（男姥性）高重湿视度塞职业扶非常不重视颜不重视粪普通姥重视维非常重视但学生诱0惕1额7剑5罪0胁企业大堂经默理纠7绪35润125盲120械39难一般行政斯4调26朵73搭69士21捎专业技术彩1小1斜9纹8威2庭不同职业人惠群对于躬携带方便特肃性（C01音）畅的重视程度却列联表（女关性）明重躺视度锄职业棍非常不重视凳不重视咸普通吵重视袋非常重视司学生他4针24薪58舌52直7破企业大堂经线理耍0姐0浊0聋2阀0捷一般行政乓0蒙0束8气7她1阔专业技术懒4水25帐62脾46持16挂不同职业人城群对于箭携带方便特淹性（C01窝）做的重视程度绢Ridit净值忘95%扁置信区间图假（哭左男右女盟下整体布）牙不同职业人室群对于谋新潮特性（颈C02）浆的重视程度刮Ridit眨95%愤值置信区间妄图（左男右龟女佣下整体图）免不同职业人念群对于融多样化颜色拢特性（漆C03箱）酱的重视程度秋Ridit板值研95%证置信区间图庆（左男右女帽下整体赚）劫五封不同职业人屿群对于纽流行惠造型图案来特性（吩C04甩）幕的重视程度淘Ridit屈值95%置摔信区间图（望左男右女朴下整体对）登皮君不同职业人骡群对于姓简单畏操作方式误特性（战C05泪）爬的重视程度刷Ridit俭值95%置顿信区间图（昂左男右女饶下整体衣）斤不同职业人号群对于凳连动拍摄亦特性（钳C11颂）己的重视程度狸Ridit疮值95%置劣信区间图（拼左男右女珠下整体喊）惜不同职业人菊群对于领任意角度拍线摄摘特性（督C12敞）点的重视程度腊Ridit阁值95%置淹信区间图（产左男右女昼下整体壳）咱不同职业人磁群对于小定时拍摄碑特性（坟C13赴）橡的重视程度刚Ridit组值95%置岔信区间图（跪左男右女指下整体苹）罢不同职业人醋群对于赌可更换镜头沟特性（塘C14传）彼的重视程度诚Ridit酒值95%置衣信区间图（障左男右女孩下整体湖）狠不同职业人缠群对于猛可接三角架问特性（授C15键）馋的重视程度宜Ridit子值95%置酒信区间图（箩左男右女须下整体映）葡不同职业人麻群对于僻可上网坚特性（准C16事）唤的重视程度族Ridit环值95%置取信区间图（辜左男右女仔下整体馒）驴汇总表如下纱：胞属性宪男闻女兆整体旨C罢02沾对职业一重层要性低桐对职业一重描要性低桐C11桶对职业二重亲要性高终对职业三重也要性低凝对职业二重捎要性高作C12许对职业二重耻要性高漂对职业三重秤要性低如对职业二重弃要性高趣C13福对职业二重垦要性高诞对职业三重作要性低艰对职业二重割要性高，职布业四重要性庸低浊C14暂对职业三重粉要性高届对职业三重嫁要性低蒙C15村对职业二重我要性高裕对职业三重究要性低捐对职业二重外要性高恢C丧16超对职业二重开要性高寸对职业三重每要性低陪对职业三重联要性低馋不同职业人规群对相机属石性重视程度乒的映关联规则分原析关联规则配先对数据处骗理整理成捞2元数据，弯只选取了其挤中部分变量预如下：沟c01c贴02c0划3c04龟c05壮c11c刮12c1吸3c14眠c15瓜c16饶其中c01训到c16为辰对相机的特酿性重视程度箭，包括外观皂和性能，处愧理办法是把身重视和非常软重视设为1打，普通，不餐重视和非常迷不重视设为货0培d1破为性别烫转化后0表木示男性1表违示女性快砌下面转化成骑函数包能处近理的tra瓶nsact告ion形式绝camer糊anew1山=as.m羊atrix撞(came攻ranew扎1);t释rans2疲<-a歪s(cam硬erane鉴w1,"钢trans剪actio狭ns");因院转化后数据闭情况大致如惰下哗summa租ry(tr烛ans2)尼从中大概可竞以看出最受杜重视的因素荡有c12，理c11，c庭05，c0厕2，这点从滴下面的频率纳图中也可以莲看出布itemF缸reque灿ncyPl监ot(tr栋ans2,各supp饰ort=叔0.05帝,cex愉.name歌s=0勉.8)#款图3.1分性别：零按lift泉由大到小排桑序的。可以束看出女性依仙次更重视c孙03，c0之1，c13农，c05，往c15，c殖12，c0钟4，c02什这些提升度机均大于1，代意味着女性陶倾向于重视问这些因素。穴但有意思的斧是d1夏——污c14和d植1到c15岔的提升度是首小于1的，退也就意味着驶没有先验信疑息是重视c袖14和c1魂6的概率要辽大于女性重圈视这两个因厘素的比例，定所以针对女圾性相机这两徐个特性可以烛不做重点宣遍传和打造的佣。取分订职业：结将总体按照兆职业的不同且分为四大类遵，分别对于礼相机外观和械配置供11泼个属性进行娱关联分析，谨根据提升度赖这一指标分喂析不同人群代重视相机属叠性的关联效吧应。这对于悄相机厂商针浩对目标人群盲的相机整体交设计具有指筋导意义。览取支持度大溉于0.5，酸置信度在0茄.95以上陶，提升度在膜1.1以上由的关联项输竿出如下：学生：阵企业大堂经富理：一般行政：专业技术：结论闸描述统计阶支段的分析表睛明：吨在相机外观绕和功能方面纱，不同职业范和不同性别紧的人群希的重视程度壁有细微差别侵。其中，在哭外观上，人亮们普遍对哑“锹新潮、很炫培”横比较看重；抗在功能上，愧人们普遍对尸“炸操作简单、晚联动拍摄、观任意角度拍期摄搞”脚相当重视。岛在价格的可偏接受程度上先，不同职业既和不同性别佣的人群有较谨大差异。其酷中，性别方怒面，男性可撞接受的价格待高于女性；愉职业方面，膀专业技术人解员可接受的功价格最高，棒其次为学生舒，一般行政痒人员和企业击大堂经理可叙接受价格最毁低。惜Rdit检助验结果表明在：舟于学生来说白，对不太重菠视条轻薄短小，膊携带方便蒜这一特性，毅其他特性的杨显著性没有卷通过墓旁对于企业大皮堂经理来说弟，c11到哥c15的特齐性重视度都月很高，及可上以针对此人帅群设计株连动拍摄（分1秒20张载）慰、叫任意角度拍逮摄尺、朱定时拍摄心、设可更换镜头量和凉可接三角架梯性能好的相微机。特钞对于一般行灭政人员来说扣，男性的特诸点是对可更黎换镜头比较密重视，女性倡一般行政人进员从结果上友看对很多特撕性都不是很辜重视，针对治以上这些可吓以对男性一浪般行政人员躺设计可更换运镜头较好的筛相机，对女哥性一般行政苗人员设计一巡般化产品即敢可。奏对于专业技慢术人员来说围，上述检验便没有检验出锣很多显著的盾特点，需要饺注意的是专报业技术人员蝇对定时拍摄葱重视度低，受所以针对这池类人群的相焰机定时拍摄微功能一般化请即可。勇总的来看，寨人们对于相包机属性的重乎视度的关联熊主要集中于吴相机的技术峰配置，而不砌是外观立关联规则结雁果表明：仅于学生来说苗，重视盘“肿定时拍对摄燃”亦特性的同时肃也会同时重昆视快“关连动拍摄谷”椒和甚“源任意角度拍缠摄胶”练，同时注意仁到线“练连动拍摄闹”俭和规“斥任意角度拍传摄气”伪特性也是相蝇互关联的，扮因此针对此启类人群的同肢一产品中这输三个特性最姻好兼顾妄对于企业大拨堂经理来说茎，属性间的俘关联因素很追多，较为明亲显的有哨“责连动拍摄柄”擦、和“揭任意角度拍尺摄霜”泉、禁“下定时拍摄戏”蚊间，以及揪“涉任意角度拍微摄烦”纲、冤“方定时拍摄贸”稀同级“僻可更换镜头式”隔、付“相可接三角架敏”荷之间的关联诉，说明以上疑五个属性最浓好同时在针静对此类人群阔的设计中体叫现盆对于一般行存政人员来说贵，押“育连动拍摄馆”且属性和经“箩任意角度拍杯摄劲”尺属性相互关终联，因此针先对此类人群堆的同一产品性中做“鼻连动拍摄扇”特属性和岂“幸任意角度拍打摄详”械可以同时体鞭现。捐对于专业技全术人员来说扯，语“锦连动拍摄忌”改属性和踢“勾任意角度拍过摄拐”腾属性相互关崭联，因此针绢对此类人群夺的同一产品决中北“家连动拍摄啄”拐属性和默“兆任意角度拍费摄翼”违可以同时体微现。储总的来看，敲人们对于相凳机属性的重凭视度的关联破主要集中于巷相机的技术员配置，而不源是外观鹊综上所述，纤本文主要正辰对不同职业辆对相机不同甘特性重视程私度的差异。可经过以上分北析知，不同较职业间人群受确实存在差葬异，总体而诸言企业大堂口经理重视的约特性最多，港这类顾客是亲最挑剔的，希但是肚其心理价位波却不高，相汤比而言对于船学生群体和员专业技术人奸员，主要重耳视的是相机糖的功能，心裁理价位较高拼，可以重点帖突破。与此型同时，针对垦一般行政人的员可以采取陪一般化产品闹的推广即可低。程序附录拳文献综述及怎数据初探部甚分俊Rcode寄1:隶camer礼a=rea拍d.tab气le("C双:\\Us色ers\\抱MacX\遵\Desk生top\\耗camer永a.txt摇",hea滴der=T庭)我attac称h(cam务era)瓣v=whi躲ch(is库.na(c匙amera宅),arr宏.ind=咏TRUE)霉##检测警缺失值（输煎出结果无缺盗失值）滔a=mat肠rix(c宝(c01,勒c02,c包03,c0塑4,c05软,c11,酱c12,c工13,c1琴4,c15度,c16)款,nrow梳=869,卵ncol=兔11)扮score个=NA答for(i顾in1婆:869)婚{scor惜e=c(s谎core,那sum(a里[i,])汉)}滚hist(腐score颠,prob防=TRUE灿,ylim泄=c(0,袖0.09)兼,xlim乓=c(10退,60))该lines矿(dens赌ity(s条core)购)席rug(j易itter近(scor巡e))挨Rcode弄2:m=869弃set.s要eed(1堆0)矩samp=筋c(sam怎ple(1掉:200,围100),属sampl抄e(201隐:400,已100),蜜sampl旦e(401团:600,腥100),布sampl教e(601踢:869,薪120))骡tsamp旅=setd魔iff(1松:m,sa挡mp)继kypho绍sis=r丸part(太facto病r(d3)歪~fact垄or(c0夸1)+fa笛ctor(循c02)+碎facto真r(c03稻)+fac捡tor(c朽04)+f反actor每(c05)刷+fact番or(c1逼1)+fa电ctor(扬c12)+鸭facto荐r(c13梦)+fac购tor(c桶14)+f碍actor决(c15)宪+fact式or(c1滋6),da磨ta=ca煌mera,享subse呜t=sam骡p)会kypho蹦sis哑plot(禽kypho助sis)片text(繁kypho罩sis,u吃se.n=轮T,xpd壶=T)屋libra咏ry(rp购art.p走lot)源rpart接.plot投(kyph壮osis)懂kypho底sis1=漆camer奥a[tsa老mp,]型predi祥ct(ky脸phosi束s,kyp疫hosis从1,typ然e="cl译ass")馋table殊(pred叶ict(k姑yphos敬is,ky殃phosi椒s1,ty晃pe="c恭lass"俱),cam付era[t挤samp,后19])叔Rcode贼3衬stu=a弟[whic晶h(d3=握=1),]纸libra奶ry(rp卧art)拦fit=r幸part(纳facto蕉r(d3)船~fact龟or(c0昨1)+fa菜ctor(劣c02)+幅facto摊r(c03狗)+fac矿tor(c终04)+f滩actor俱(c05)桌+fact鲜or(c1免1)+fa酸ctor(月c12)+哭facto拖r(c13年)+fac誓tor(c善14)+f浇actor烤(c15)姜+fact条or(c1插6),da忆ta=ca幕mera)夺plot(东fit);妙text(缎fit,u日se.n=根T,xpd鼓=T)弯rpart蕉.plot竭(fit)删描述统计部僚分：型data=跌read.职table碍("dat追a.dat组",hea勇der=T志)皆attac潜h(dat理a)它par(m伶frow=危c(1,2渣))#臣不同性别对糊外观重要性收的箱线图攀for(i裙in1箭:2)爪boxpl页ot(c0愿1[d1=炮=i],c膀02[d1跳==i],饱c03[d修1==i]越,c04[窃d1==i宏],mai叮n=row医names范(sex.那c01)[状i])粉for(i躲in1独:2)佣#不同性别摊对功能重要超性的箱线图冬boxpl罗ot(c0趣5[d1=库=i],c只11[d1险==i],谣c12[d陷1==i]躺,c13[时d1==i多],c14锡[d1==溉i],c1刑5[d1=简=i],础c16[d逝1==i]充,main剥=rown我ames(底sex.c棉01)[i役])朽#性别对外戚观&功能重扶要程度，列挂联表，条形坐图局sex.c台01=ma好trix(育rep(0批,10),驱nrow=胶2,dim穴names范=list辅(c("男吵","女"秒),嘴c("非常呜不重视",强"不重视"拘,"普通"退,"重视"腔,"非常重赌视")))鬼for(i撕in1搜:2)利for(j概in1厉:5)艘sex.c挡01[i,捕j]=su首m(d1=纷=i&面c01==抢j)顿par(m决frow=湾c(1,2客))旨for(i惨in1肆:2)五barpl明ot(se碰x.c01霉[i,],这main=株rowna感mes(s签ex.c0忆1)[i]青)行sex.c鼠02=ma占trix(滋rep(0壮,10),臂nrow=闯2,dim管names豆=list池(c("男肃","女"谷),遵c("非常弹不重视",刚"不重视"随,"普通"尊,"重视"掠,"非常重躁视")))是for(i霉in1旁:2)悦for(j业in1令:5)肯sex.c改02[i,株j]=su钥m(d1=席=i&队c02==符j)吊par(m伸frow=弟c(1,2礼))债for(i够in1利:2)中barpl妇ot(se引x.c02吗[i,],沙main=陪rowna弓mes(s诞ex.c0安2)[i]涉)巩sex.c扶03=ma热trix(记rep(0坡,10),晶nrow=左2,dim甜names漠=list孙(c("男机","女"装),崇c("非常巴不重视",洋"不重视"斯,"普通"别,"重视"据,"非常重具视")))泉for(i推in1孤:2)现for(j至in1居:5)悔sex.c狮03[i,辈j]=su询m(d1=柄=i&派c03==茫j)药par(m宾frow=晌c(1,2幕))饲for(i茧in1穴:2)绵barpl馆ot(se游x.c03炼[i,],河main=则rowna曲mes(s惩ex.c0砌3)[i]找)浓sex.c伶04=ma档trix(计rep(0野,10),垃nrow=齿2,dim握names垄=list代(c("男惧","女"源),宿c("非常身不重视",眉"不重视"正,"普通"拣,"重视"嫌,"非常重丧视")))谅for(i遇in1支:2)保for(j读in1央:5)借sex.c厨04[i,痕j]=su肠m(d1=昆=i&槐c04==箱j)片par(m姿frow=菠c(1,2幅))叫for(i驴in1该:2)就barpl摘ot(se扩x.c04通[i,],在main=雷rowna欠mes(s惜ex.c0板4)[i]听)钥sex.c筐05=ma絮trix(孟rep(0袜,10),劳nrow=熟2,dim悬names田=list佛(c("男摆","女"叫),粉c("非常康不重视",畜"不重视"晶,"普通"者,"重视"奏,"非常重懂视")))粉for(i状in1肢:2)俊for(j亦in1歼:5)慌sex.c释05[i,浊j]=su贡m(d1=倡=i&公c05==勒j)嗓par(m灯frow=总c(1,2蔬))册for(i活in1施:2)脱barpl奉ot(se垂x.c05骑[i,],删main=面rowna颤mes(s侨ex.c0宋5)[i]脖)遭sex.c已11=ma莲trix(叨rep(0笑,10),项nrow=屋2,dim迷names虹=list赛(c("男钩","女"左),挠c("非常恒不重视",蹄"不重视"艺,"普通"解,"重视"革,"非常重氧视")))条for(i赵in1吩:2)酿for(j症in1永:5)拆sex.c断11[i,福j]=su握m(d1=浙=i&滨c11==甩j)斤par(m当frow=腿c(1,2廊))届for(i咐in1锤:2)闪barpl稳ot(se域x.c11智[i,],申main=题rowna春mes(s伴ex.c1淘1)[i]膨)烤sex.c组12=ma绑trix(际rep(0征,10),践nrow=汪2,dim刊names算=list扭(c("男君","女"项),做c("非常并不重视",菠"不重视"惰,"普通"充,"重视"窗,"非常重确视")))劣for(i缎in1妖:2)砖for(j发in1透:5)怜sex.c永12[i,贺j]=su迁m(d1=惰=i&齐c12==律j)钱par(m林frow=垦c(1,2镜))剥for(i庙in1度:2)告barpl肃ot(se踪x.c12苦[i,],覆main=蜓rowna耽mes(s扇ex.c1态2)[i]贿)写sex.c绑13=ma砌trix(议rep(0堆,10),识nrow=帐2,dim候names躺=list舱(c("男股","女"矛),来c("非常剧不重视",也"不重视"甚,"普通"淡,"重视"志,"非常重稻视")))抽for(i都in1盆:2)出for(j怨in1词:5)误sex.c厌13[i,执j]=su筒m(d1=艳=i&并c13==靠j)兆par(m气frow=桐c(1,2弹))国for(i带in1炭:2)港barpl赴ot(se肤x.c13俭[i,],辽main=敲rowna泡mes(s蝇ex.c1手3)[i]社)世sex.c宽14=ma肆trix(奶rep(0代,10),喇nrow=捧2,dim蔽names做=list悄(c("男器","女"些),的c("非常软不重视",丸"不重视"苹,"普通"霜,"重视"零,"非常重凑视")))德for(i壶in1米:2)凳for(j现in1素:5)哲sex.c敌14[i,郑j]=su购m(d1=嘉=i&浙c14==点j)因par(m厘frow=减c(1,2剪))裤for(i善in1显:2)届barpl斗ot(se妨x.c14芽[i,],检main=党rowna使mes(s且ex.c1呈4)[i]慎)尤sex.c指15=ma握trix(卖rep(0沿,10),胀nrow=告2,dim每names乞=list岁(c("男务","女"晃),露c("非常坡不重视",叫"不重视"连,"普通"崖,"重视"盒,"非常重签视")))蒜for(i惰in1法:2)哄for(j逃in1闯:5)仰sex.c第15[i,倡j]=su糊m(d1=原=i&促c15==嫩j)局par(m替frow=钢c(1,2致))炭for(i素in1歪:2)宴barpl具ot(se昌x.c15歇[i,],郊main=斗rowna协mes(s着ex.c1东5)[i]界)谜sex.c武16=ma染trix(旅rep(0榜,10),添nrow=桃2,dim烦names努=list源(c("男牺","女"典),郊c("非常织不重视",冶"不重视"尺,"普通"衔,"重视"城,"非常重暑视")))董for(i注in1墨:2)帝for(j裕in1疮:5)核sex.c紧16[i,议j]=su朽m(d1=脚=i&处c16==苦j)个par(m铅frow=馒c(1,2当))播for(i搞in1堡:2)泊barpl灵ot(se序x.c16得[i,],爷main=巨rowna集mes(s念ex.c1夫6)[i]粱)荷par(m吼frow=夜c(2,2嘱))#赵不同职业对圣外观重要性躁的箱线图棉for(i心in1仪:4)熄boxpl重ot(c0罚1[d3=陕=i],c步02[d3银==i],焰c03[d榆3==i]敌,c04[够d3==i熔],mai染n=row雁names已(job.骨c01)[担i])钥for(i稻in1艺:4)丙boxpl绩ot(c0酷5[d3=历=i],c球11[d3渗==i],爹c12[d伟3==i]翻,c13[协d3==i担],c14蛙[d3==氏i],c1蛙5[d3=弱=i],司c16[d挠3==i]乎,main忘=rown毙ames(小job.c定01)[i脆])著#列联表画屠条形图_不梢同职业对外殃观和功能的诚重视程度宪job.c涌01=ma救trix(控rep(0岔,20),擦nrow=贪4,dim哭names倡=list芽(c("学柱生","企砍业大堂经理踩",归"一般行政搞","专业具技术"),虽c("非常暑不重视",帽"不重视"关,"普通"槐,"重视"立,"非常重葵视")))绣for(i驾in1疑:4)著for(j杠in1享:5)仰job.c奸01[i,阿j]=su侧m(d3=徒=i&直c01==狸j)责par(m泡frow=茫c(2,2怀))固for(i叹in1货:4)滥barpl请ot(jo杏b.c01邮[i,],丧main=驴rowna粘mes(j漫ob.c0纯1)[i]猪)石job.c尚02=ma病trix(初rep(0网,20),进nrow=蜜4,dim喊names逆=list肺(c("学饥生","企枝业大堂经理冻",坐"一般行政汇","专业思技术"),变c("非常馆不重视",捐"不重视"滴,"普通"恶,"重视"否,"非常重闲视")))健for(i软in1顺:4)电for(j漆in1怎:5)潮job.c犯02[i,斜j]=su冤m(d3=净=i&赴c02==腿j)流par(m骑frow=惹c(2,2冬))扭for(i让in1轻:4)泉barpl陷ot(jo闹b.c02猛[i,],鬼main=流rowna更mes(j佩ob.c0售2)[i]辈)连job.c搏03=ma伯trix(共rep(0大,20),努nrow=辟4,dim见names哭=list扒(c("学旬生","企详业大堂经理岔",使"一般行政管","专业卡技术"),稀c("非常价不重视",哈"不重视"岔,"普通"灯,"重视"到,"非常重授视")))惹for(i趴in1罩:4)渡for(j肿in1醒:5)际job.c刻03[i,煎j]=su超m(d3=牲=i&齿c03==春j)粗par(m段frow=滚c(2,2锻))砖for(i轮in1搬:4)歼barpl男ot(jo材b.c03览[i,],签main=萝rowna品mes(j漆ob.c0篇3)[i]辩)博job.c期04=ma栽trix(省rep(0疯,20),玉nrow=然4,dim唇names穷=list月(c("学卖生","企孤业大堂经理禁",脖"一般行政踢","专业建技术"),蹈c("非常垂不重视",作"不重视"分,"普通"灿,"重视"矿,"非常重叫视")))榨for(i狗in1砍:4)忘for(j识in1恢:5)削job.c殿04[i,别j]=su汁m(d3=买=i&购c04==皇j)纷par(m狼frow=告c(2,2心))柜for(i桑in1谊:4)概barpl运ot(jo愧b.c04法[i,],死main=摄rowna访mes(j约ob.c0廉4)[i]蛾)购job.c宁05=ma刃trix(朝rep(0炮,20),凤nrow=侨4,dim浸names蛾=list票(c("学群生","企集业大堂经理伯",淹"一般行政规","专业户技术"),颂c("非常紫不重视",苍"不重视"睡,"普通"交,"重视"亭,"非常重剧视")))赶for(i登in1俯:4)接for(j斜in1江:5)绍job.c裤05[i,述j]=su乔m(d3=容=i&跪c05==伏j)监par(m齐frow=搁c(2,2于))至for(i但in1私:4)今barpl庆ot(jo彻b.c05陵[i,],难main=洞rowna炼mes(j搁ob.c0拢5)[i]煎)昆job.c誉11=ma委trix(购rep(0浙,20),览nrow=驱4,dim缓names灿=list龙(c("学凳生","企锋业大堂经理恶",遇"一般行政佳","专业那技术"),氏c("非常冬不重视",齐"不重视"田,"普通"善,"重视"厅,"非常重鞋视")))际for(i隔in1壮:4)海for(j仆in1轧:5)剃job.c损11[i,笋j]=su戚m(d3=酱=i&门c11==公j)蝇par(m笨frow=呼c(2,2漠))圆for(i朽in1龄:4)行barpl科ot(jo烈b.c11晨[i,],鬼main=脾rowna箱mes(j镰ob.c1喜1)[i]廉)贵job.c虎12=ma唤trix(傲rep(0余,20),搅nrow=激4,dim花names趁=list及(c("学扶生","企肆业大堂经理朴",巧"一般行政亦","专业色技术"),厚c("非常衔不重视",鲜"不重视"便,"普通"侨,"重视"着,"非常重约视")))泄for(i滩in1堪:4)吼for(j卧in1鼓:5)琴job.c赶12[i,脖j]=su疮m(d3=故=i&蕉c12==恼j)有par(m西frow=疮c(2,2岭))啊for(i屿in1毫:4)龄barpl搅ot(jo上b.c12某[i,],护main=硬rowna穷mes(j宪ob.c1士2)[i]纹)帆job.c碍13=ma脖trix(施rep(0凉,20),例nrow=呢4,dim必names挑=list惠(c("学蔬生","企燥业大堂经理巨",支"一般行政猫","专业配技术"),跌c("非常篮不重视",夕"不重视"器,"普通"浆,"重视"悼,"非常重湖视")))绿for(i密in1损:4)巧for(j加in1鸣:5)章job.c钩13[i,桂j]=su壮m(d3=测=i&幅c13==丝j)沸par(m酿frow=膨c(2,2倡))白for(i绩in1喜:4)尤barpl毒ot(jo男b.c13年[i,],突main=唱rowna肆mes(j挣ob.c1路3)[i]爹)寻job.c偶14=ma阀trix(努rep(0困,20),婆nrow=描4,dim比names货=list僻(c("学尿生","企弃业大堂经理器",阔"一般行政区","专业班技术"),他c("非常耀不重视",弓"不重视"门,"普通"奔,"重视"顽,"非常重黄视")))桶for(i放in1疼:4)浙for(j截in1驱:5)迟job.c她14[i,律j]=su购m(d3=督=i&摘c14==赶j)趟par(m县frow=裁c(2,2兴))施for(i请in1励:4)呜barpl成ot(jo炸b.c14购[i,],灶main=谜rowna掉mes(j嫁ob.c1栽4)[i]荣)涉job.c饲15=ma绢trix(乐rep(0堤,20),船nrow=继4,dim艳names宴=list荡(c("学撑生","企厘业大堂经理奇",滨"一般行政鼓","专业风技术"),搜c("非常旱不重视",乔"不重视"返,"普通"卸,"重视"著,"非常重旺视")))本for(i凭in1叙:4)险for(j义in1选:5)化job.c丰15[i,倡j]=su斯m(d3=仆=i&汪c15==爹j)形par(m前frow=絮c(2,2钉))点for(i志in1艳:4)没barpl违ot(jo刃b.c15余[i,],警main=院rowna模mes(j以ob.c1属5)[i]盏)准job.c鹅16=ma贞trix(创rep(0诸,20),右nrow=夏4,dim帅names挠=list骄(c("学看生","企她业大堂经理制",装"一般行政弄","专业瓦技术"),脆c("非常衫不重视",更"不重视"烤,"普通"茎,"重视"互,"非常重倾视")))宵for(i枝in1贫:4)滴for(j丢in1武:5)话job.c沿16[i,寄j]=su北m(d3=铃=i&沙c16==丰j)揭par(m等frow=咽c(2,2烂))滤for(i匠in1歉:4)晓barpl屯ot(jo欧b.c16抛[i,],矮main=赴rowna进mes(j弹ob.c1披6)[i]文)畜sex.p存rice=珍matri绸x(rep朝(0,10却),nro穴w=2,b侦yrow=延T,dim我names获=list握(c("男忍","女"煌),c("菊<=100烦0","1隶001-2舟000",赌"2001秧-3000运","30矮01-60痒00","洞>6000愁")))荒for(i壶in1尺:2)偿for(j肠in1睬:5)介sex.p串rice[修i,j]=段sum(d乞1==i告&a03娱==j)互for(i我in1承:2)肚barpl材ot(se垃x.pri元ce[i,最],mai会n=row利names干(sex.俭price小)[i])樱par(m缺frow=齐c(1,1宗))烘boxpl公ot(a0眠3[d1=摸=1],a昌03[d1傻==2])截job.p往rice=捞matri黎x(rep肺(0,20励),nro养w=4,d胳imnam懂es=li怪st(c(后"学生",腥"企业大堂披经理",心"一般行政瓶","专业段技术"),陆c("<1三000",离"1000芝-2000姥","20住00-30贿00","乌3000-慈6000"讽,">60竞00"))昏)的for(i垫in1府:4)此#职业、价钻格列联表圣for(j眯in1钱:5){演job.p棕rice[肚i,j]=津sum(d沙3==i核&a03茎==j)}余par(m午frow=虚c(2,2免))梅for(i纱in1均:4)显barpl出ot(jo似b.pri吹ce[i,如],mai丛n=row棚names翻(job.喂price柿)[i])蓝boxpl迷ot(a0掏3[d3=妙=1],a士03[d3执==2],艳a03[d呆3==3]脏,a03[轻d3==4擦])款Ridit纸检验部分：渗#Ridi降t检验函数严，主要是算役出W值，求君出p值，并乖且输出置信宇区间，看重提复程度，检覆验函数如下甘：破ridit荒.test轿=func捷tion(截x){晚O=sum梦(x)竹帽险筐冒合酬#先求出几很个O..,贸r和s贝r=nro恭w(x)活s=nco稼l(x)强H=0.5碰*appl锣y(x,2及,sum)拉敞赚水因滋#求H、R棋j垒C=rep园(0,s)辉for(i泳in2剥:s){C额[i]=2绝*sum(袋H[1:i偿-1])}N=H+C宾Rdot.衣j=N/O秩Oi.do宇t=app将ly(x,醋1,sum溉)#萌求行和熟O.jdo触t=app希ly(x,苏2,sum偿)窄秋#求列和垒##计算R活i东翁R=mat局rix(r避ep(0,秋r*s),池nrow=跌r,nco逆l=s)央for(i蹲in1匪:r)商for(j厌in1珍:s){纷R[i,j曲]=x[i寺,j]/O尚.jdot企[j]*R舱dot.j缠[j]}亭Ri.do崇t=app啊ly(R,泊1,sum史)笔##计算R因idit得抛分矩阵沸Rid=m区atrix竞(rep(宿0,r*s袖),nro邀w=r)戒for(i周in1绣:r){R培id[i,峰]=Rdo敌t.j*x尘[i,]}汉##计算各音处理的秩平念均锻Ri_ba岸r=rep冰(0,s)那for(i扛in1星:r){R壳i_bar膊[i]=s屡um(Ri恢d[i,]外)/Oi.峰dot[i剩]}琴##求平均篮Ridit昨的置信区间拌conf.汇inter晴val=m茂atrix择(rep(辱0,2*r广),nro年w=r)铲for(i嫁in1亚:r){c置onf.i久nterv枪al[i,评]=c(R迁i_bar洽[i]-1侮/sqrt舅(3*Oi戚.dot[兰i]),R屠i_bar挡[i]+1课/sqrt耕(3*Oi门.dot[搭i]))}讽dimna暑mes(c导onf.i两nterv摔al)=l累ist(N过ULL,c诚("置信下天限","置精信上限")链)##作图梢plot(杏rep(1联,100)寺,seq(旬conf.炒inter龄val[1派,1],c础onf.i反nterv党al[1,兵2],le采ngth=搅100),君type=申"l",m刷ain="她Ridit崖valu土econ筋fiden临cein艇etrva寨l",欲xlab=营"grou塞p",yl嫌ab="R姿scor炼e",xl蝴im=c(驼1,r),致ylim=淋c(0,1昏))检for(i慈in2则:r){讽lines详(rep(拴i,100催),seq守(conf得.inte殖rva