聚类分析报告(Q型,R型聚类)算法.pdf

实用文档 信息与计算科学专业实验报告 课程名称 数据挖掘原理与算法 总实验学时： 第 次 共 次 实验项目名称 聚类分析 本次实验学时数： 实验类型 日期 20 16 年 5 月 25 日星期 三 年级 本 13 信计 01 班 学生姓名 黄顺团 学号 20134390131 课任教师 唐志刚 1. 实验目的 ： 用数据挖掘聚类算法（ Q 型聚类、 R型聚类）求分类微博数据。 2. 实验环境： MATLAB 7.0。 Windows 7 操作系统。 文案大全 3. 实验内容 由于数据集比较大，数据 TXT 文件不引入报告中。命名为 julei.txt 。 相关两个源文件代码文件如下： 1、 Untitled.m clc,clear load julei.txt % 把原始数据保存在纯文本文件 julei.txt 中 r=corrcoef(julei); % 计算相关系数矩阵 d=1-r; % 进行数据变换 , 把相关系数转化为距离 d=tril(d); % 取出矩阵 d 的下三角元素 d=nonzeros(d); % 取出非零元素 d=d; % 化成行向量 z=linkage(d,average); % 按类平均法聚类 dendrogram(z); % 画聚类图 T=cluster(z,maxclust,4) % 把变量划分成 4 类 for i=1:4 tm=find(T==i); % 求第 i 类的对象 tm=reshape(tm,1,length(tm)); % 变成行向量 fprintf( 第 %d类的有 %s \n,i,int2str(tm)); % 显示分类结果 end r % 显示相关系数矩阵 2、 Untitled2.m clc,clear load julei.txt % 把原始数据保存在纯文本文件 julei.txt 中 julei(:,5)=[]; % 删除数据矩阵的第 5 列 , 即使用变量 1,2,3,4 julei=zscore(julei); % 数据标准化 y=pdist(julei); % 求对象间的欧氏距离 , 每行是一个对象 z=linkage(y,average); % 按类平均法聚类 dendrogram(z); % 画聚类图 for k=2:8 fprintf( 划分成 %d类的结果如下： \n,k) T=cluster(z,maxclust,k); % 把样本点划分成 k 类 for i=1:k tm=find(T==i); % 求第 i 类的对象 tm=reshape(tm,1,length(tm)); % 变成行向量 fprintf( 第 %d类的有 %s \n,i,int2str(tm)); % 显示分类结果 end if k==8 break end fprintf(************\n); End 输出结果为： 1、 图一（ R 型聚类） T =