聚类分析实例分析题

1、葡萄酒的质量分类由问题1中我们得知，第二组评酒员的的评价结果更为可信，所以我们通过第二组评酒 员对于酒的评分做出处理。我们通过excel计算出每位评酒员对每支酒的总分， 然后计算出 每支酒的10个分数的平均值，作为总的对于这支酒的等级评价。通过国际酿酒工会对于葡萄酒的分级，以百分制标准评级，总共评出了六个级别（见表5）。表5:葡萄酒等级表等级特优优优良良及格不及格分数95-10090-9480-8970-79:60-690-59在问题2的计算中，我们求出了各支酒的分数，考虑到所有分数在区间61.6 , 81,5波动，以原等级表分级，结果将会很模糊，不能分得比较清晰。为此我们需要进一步细化等级。

2、 为此我们重新细化出5个等级，为了方便计算，我们还对等级进行降序数字等级（见表6）。表6:细化后的葡萄酒等级表等级偏优偏优良良中及格分数80-8475-7970-74F 65-6960-64数字等级54321通过对数据的预处理，我们得到了一个新的关于葡萄酒的分级表格（见表7）:表7:各支葡萄酒的等级编号红酒原等级细化等级白酒原等级细化等级1号68.12P 277.9342号7431 375.8343号74.63475.6344号71.23376.9345号72.13381.5456号66.32275.5347号65.32P 274.2338号662272.3339号78.23480.44510

3、号68.82279.83411号61.62171.43312号68.32272.43313号68.82273.93314号72.63377.13415号65.72278.43416号69.92P 367.32217号74.53380.34518号65.42276.73419号72.63376.43420号75.83476.63421号72.23279.23422号71.63P 379.43423号77.13477.43424号71.53376.13425号68.22279.53426号723374.33327号71.533773428号79.634经过整理，我们初步得到了对于葡萄酒的质量的分类

4、的表格。考虑到葡萄酒的质量与酿酒葡萄间有比较之间的关系，我们将保留葡萄酒质量对于酿酒葡萄 的影响，先单纯从酿酒葡萄的理化指标对酿酒葡萄进行分类， 然后在通过葡萄酒质量对酿酒 葡萄质量的优劣进一步进行划分。5.2.2建立模型在通过酿酒葡萄的理化指标对酿酒葡萄分类的过程，我们用到了聚类分析方法中的 ward最小方差法，又叫做离差平方和法。聚类分析是研究分类问题的一种多元统计方法。所谓类，通俗地说，就是指相似元素的 集合。为了将样品进行分类，就需要研究样品之间关系。这里的最小方差法的基本思想就是 将一个样品看作P维空间的一个点，并在空间的定义距离，距离较近的点归为一类；距离较 远的点归为不同的类。面

5、对现在的问题，我们不知道元素的分类，连要分成几类都不知道。 现在我们将用SAS系统里面的stepdisc和cluster过程完成判别分析和聚类分析，最终确 定元素对象的分类问题。建立数据阵，具体数学表示为：X11 . X1mX (5.2.1 )X , X八 n1 .八 nm式中，行向量Xi(Xi1,.,Xim)表示第i个样品;列向量 Xj (x1j,.,Xnj),表示第 j 项指标。(i=1,2,n;j=1,2,- m)接下来我们将要对数据进行变化，以便于我们比较和消除纲量。在此我们用了使用最广范的方法，ward最小方差法。其中用到了类间距离来进行比较，定义为：Dkl |区元/(1/% 1/口

6、)(5.2.2)Ward方法并类时总是使得并类导致的类内离差平方和增量最小。系统聚类数的确定。在聚类分析中，系统聚类最终得到的一个聚类树，如何确定类的个 数，这是一个十分困难但又必须解决的问题；因为分类本身就没有一定标准，人们可以从不 同的角度给出不同的分类。在实际应用中常使用下面几种方法确定类的个数。由适当的阀值确定，此处阀值为Dkl。根据样本的散点图直观的确定。当样本所含指标只有2个或3个时，可运用散点图直观观察。如果指标超过3个时，可用主成份法先综合指标。根据统计量确定分类个数。在 SAS中，提供了一些来自方差分析思想的统计量近似检验 类个数如何选择更合适。1) R2统计量：R2 1 S

7、A/S2 sB/ST2(5.2.3)其中，sA为分类数为k个数时的总类内离差平方和，S2为所有样品或变量的总离差平 方和。R2越大，说明类内的离差平方和在总离差平方和中比例较小，也就是分为 k个类的效果越好。显然分类越多，每个类离差越小，R2越大，所以我们只能取k使得R2足够大，但k本身比较小，而且R2不再大幅度增加。2)半偏R2统计量：在把类Ck和类Cl合并为下一水平的类Cm时，定义半偏相关：(5.2.4 )半偏R2Bh / T其中BkiSm（SkSi）为合并类引起的类内离差平方和的增量：St为类Ct的类内离差平方和。半偏R2用于评价单次合并效果，其值越大，说明上次合并效果越好。3）伪F统计

8、量：伪 （5.2.5）Pk/（n k）伪F统计量评价分为k个类的效果。伪F统计量越大，表达分为k个类越合理。通常取 伪F统计量较大而类数小的聚类水平。4）伪t2统计量：(5.2.6 )t2 Bk|/(Sk S|)/(nk ni 2)用此统计量评价合并类Ck和类Cl的效果，该值大说明合并的两个类Ck和类Cl是很分开的，这个合并不成功，而应该去合并前的水平。通过使用sas软件的cluster过程和tree过程，可以求解分析出结果。5.2.3模型的求解与分析首先，我们利用附件2中白葡萄酒中酿酒葡萄的59个理化指标，通过聚类分析，把酿洒葡萄分成五类，得到初步的结果（见图 3）:从图中我们能够直观的看到

9、把酿酒葡萄分为5大类，为了检验效果，我们通过判别分析检验原本的28种葡萄分类的结果，得到表8.表8:误判概率表（具体表见附录）组号12345概率0.27270.12500.3333:0.40001.000在误差一栏我们看到，每一组的分类都存在或多或少的误差， 我们觉得这个结果是不满 意的。为了进一步优化方案以及简化分析过程， 我们利用逐步判别法对参与分类的因素进行 逐步剔除，以达到减少噪声干扰的目的，让得到的结果更加合理和完善。通过逐步判别法，我们剔除了原本 59个数据中的35个相关不大，造成干扰的因素，剩 下了 24个因素。经过剔除干扰项后，为了检验剔除后干扰项后的结果是否更加合理，我们 重

10、新对剩余的24个因素进行了聚类分析，做谱系聚类图和判别分析。得到了新的结果（见 表9）:表9:优化后的聚类分析部分结果（详细见附录）分类数样品数半偏R2伪F统计量伪t2统计量640.01710.91547.69.1560.05000.86537.06.14110.06120.80432.917.33210.10320.70129.317.9270.16480.53630.110.01280.53620.30.1综合个数据检验，把葡萄分为5个类别是比较合理的一种方案，为了检验与之前的差异 我们得到了新的谱系聚类图（见图 4）图3:谱系聚类图图4:优化后的谱系聚类图通过对比前后的两图，我们可以发现

11、，分类的结果除了组间的类别有点波动之外，整体 的分组是没有改变的。所以，我们第一步得到了优化结果的可靠。 但仅仅用图说明是不够的，为此我们通过判别分析法，通过具体数据来说明分析结果的可靠 表10:优化后的判别分析表数据组号12345概率000.1667P 01.000我们不难发现，表中的错误只在第 3组出现了 0.1667的误差，其他组是没有存在误差 的。这个结果是比较令人满意也令人信服的。由此，我们得到的结果是，我们此次对于白葡 萄酒的酿酒葡萄进行的分类是合理可靠的。具体分类结果为：表11:白葡萄酒酿酒葡萄分类分类/组数组别A/共组;P1,P8,P13,P16,P17,P18,P19,P22

12、B/共组:P14,P21,P23C/共组P2,P3,P4,P6,P7,P9,P11,P12D/共组P10,P20,P25,P26日共组P3,P5,P15,P24,P27,P28通过该组的成功检验，我们接下来将会对红葡萄酒的酿酒葡萄进行同算法的分类。由于用到的算法与检验方法一样，所以这里不再累赘，将直接输出最后分组结果。部分详细内容 见附录。表12:红葡萄酒酿酒葡萄的分类分类/组数组别A/共组P1,P4,P5,P8,P15,P17,P24B/共组P P2,P7,P9,P11,P19,P20,P22,P23C/共组P10,P13,P14,P16,P25,P26,P27D/共组P6,P12,P18日

13、共组P3,P21分类完毕，接下来我们将利用关于红酒质量的评分等级来对对应的葡萄进行评分，首先应该说明的是，烂葡萄是不能酿出好酒，根据这个，我们可以客观的说出一点，一般好的葡 萄能酿出好的酒，可能酿酒过程会意外让酒变质导致洒变差， 但好的酒由好的葡萄酿制出来 是毫无疑问的。为此我们把对于酒的等级相当于对葡萄打分。 每种葡萄分别得到分数S,i表示第i种葡萄。通过将每组的葡萄总分除以组内总数得到的数据，对葡萄进行分类，通过指标的具体分数，我们就可以轻松对葡萄进行等级划分，结果见表13:表13:对白葡萄酒和红葡萄酒的酿酒葡萄评价分类有：白葡锢酒酿酒葡锢得分等级E4.2特优B4优C,D3.75良好A3.

14、62中红葡锢酒酿酒葡锢得分等级B,E3良好A,C2.57中等D2及格proc cluster data =wg outtree =tree method=wardccc pseudo print =15;var a1-a59;id number;run;proc tree data =tree out =new nclusters =5 graphics;copy a1-a59;id number;run;proc stepdisc data =new;class cluster;run;proc discrim data =new outstat =newstat method=normal

15、 pool =yes list crossvalidate ;class cluster;priors proportional ;var a1-a59;附录四：第二小题，优化后的数据运行程序proc cluster data =nwg outtree =tree method=wardccc pseudo print =15;var b1-b24;id number;run;proc tree data =tree out =new nclusters =5 graphics;copy b1-b24;id number;run;proc stepdisc data =new;class cl

16、uster;run;proc discrim data =new outstat =newstat method=normal pool =yes list crossvalidate ;class cluster;priors proportional ;var b1-b24;run;附录五：原判别分析表附录六：优化后的判别分析表NJiter of Cbservat one tnd PercentiIndo CLLSTEflFron CLJS1ER1，:45Totil10皆 1c0E血血0.00o.ocO.DCO.10100.0021)1Cc10O.OD14期DJIO.JCo.ao100.003nBncKfl.QDIE,倒ea.aaQJOQJQ100.104JuIa03d.nn(.r)OJIirin.oninn.nn51II1Dli1O.DC0.14100.coTotal911Fa0263g17,116I0J10.1111UU,OUPrigij.?a57iD.367UO.2142So.in?uJ.025NError Countiiralffs f orJUSTlRi3345Tola 1，QQQO.QOODo. we?QJQOO1.0IC0Pric