R 语言 kmens聚类
来源:互联网 发布:ubuntu 16.04磁盘分区 编辑:程序博客网 时间:2024/06/08 03:02
http://archive.ics.uci.edu/ml/machine-learning-databases/wine-quality/
分析过程:
# 1)先将两组数据混合为一组
# 导入数据源
red<-read.csv("~\winequality-red.csv",T) #导入红酒数据
white<-read.csv("~\winequality-white.csv",T) #导入白酒数据
# 增加新字段type,1-红酒,2-白酒
red$type<-1;white$type<-2
# 将两组数据混合为一组
wine<-rbind(red,white)
# 查看合并前后的记录数
nrow(red);nrow(white);nrow(wine)
[1] 1599
[1] 4898
[1] 6497
# 查看wine的前六和后六条记录
head(wine);tail(wine)
> head(wine);tail(wine)
fixed.acidity volatile.acidity citric.acid residual.sugar chlorides free.sulfur.dioxide total.sulfur.dioxide density pH
1 7.4 0.70 0.00 1.9 0.076 11 34 0.9978 3.51
2 7.8 0.88 0.00 2.6 0.098 25 67 0.9968 3.20
3 7.8 0.76 0.04 2.3 0.092 15 54 0.9970 3.26
4 11.2 0.28 0.56 1.9 0.075 17 60 0.9980 3.16
5 7.4 0.70 0.00 1.9 0.076 11 34 0.9978 3.51
6 7.4 0.66 0.00 1.8 0.075 13 40 0.9978 3.51
sulphates alcohol quality type
1 0.56 9.4 5 1
2 0.68 9.8 5 1
3 0.65 9.8 5 1
4 0.58 9.8 6 1
5 0.56 9.4 5 1
6 0.56 9.4 5 1
fixed.acidity volatile.acidity citric.acid residual.sugar chlorides free.sulfur.dioxide total.sulfur.dioxide density pH
6492 6.5 0.23 0.38 1.3 0.032 29 112 0.99298 3.29
6493 6.2 0.21 0.29 1.6 0.039 24 92 0.99114 3.27
6494 6.6 0.32 0.36 8.0 0.047 57 168 0.99490 3.15
6495 6.5 0.24 0.19 1.2 0.041 30 111 0.99254 2.99
6496 5.5 0.29 0.30 1.1 0.022 20 110 0.98869 3.34
6497 6.0 0.21 0.38 0.8 0.020 22 98 0.98941 3.26
sulphates alcohol quality type
6492 0.54 9.7 5 2
6493 0.50 11.2 6 2
6494 0.46 9.6 5 2
6495 0.46 9.4 6 2
6496 0.38 12.8 7 2
6497 0.32 11.8 6 2
# 2)对混合后的数据,根据化学成分(注意可能只需要部分指标)进行聚类,重新划分出红酒,白酒
# 经过初步探索后发现,quality对酒的分类影响不大,接下来的聚类不考虑该指标
(c1<-kmeans(wine[,1:11],2))
#画出查看整体分类效果
plot(wine$alcohol~wine$free.sulfur.dioxide,col=c1$cluster)
points(cl$centers, col = 1:2, pch = 8, cex = 2)
# 3)把聚类结果和原有的分情况对照,看一下聚类的效果如何
table(wine[,13],c1$cluster)
1 2
1 1514 85
2 1294 3604
# 聚类效果并不好,其中有85个实际是红酒的样本误分为白酒,有1294个白酒误分为红酒。
# 查看整体准确率
sum(diag(table(wine[,13],c1$cluster)))/nrow(wine)
[1] 0.7877482
聚类后的结果准确率是0.7877482.
- R 语言 kmens聚类
- R语言KNN聚类
- R语言k-means聚类
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- R语言
- LeetCode Two Sum III - Data structure design
- java文件和文件夹复制、删除、移动操作
- 【Android】 常用的Intent
- 让Windows XP启动时间大幅度缩短
- mysql/Java服务端对emoji的支持
- R 语言 kmens聚类
- C++获取控制台输入
- 用XP系统来建立VPN服务器
- 将windows7下回收站中误删文件找回来
- Resource is out of sync with the file system问题解决方法
- poj 2484 A Funny Game
- windows 7下边休眠边下载
- 新的开始
- c++设计模式之责任链模式