-
Notifications
You must be signed in to change notification settings - Fork 0
/
wine clustering.R
78 lines (49 loc) · 1.54 KB
/
wine clustering.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
library(remotes)
library(devtools)
install.github("vqv/ggbiplot")
library(ggbiplot)
install.packages("factoextra")
ggbiplot(pr.out)
library(factoextra)
fviz_cluster(km.out)
fviz_cluster(km.out, data=x)
install.packages("stringr")
library(stringr)
histf<-function(z){
feature=str_replace_all(deparse(substitute(z)),"[data$]","")
i=0
i=i+1
X[[1]]=feature
ggplot(data) +
aes(x = z) +
geom_histogram(bins = 14L, fill = "#497AD2", colour = "blue") +
labs(x = paste("Feature: ",feature),y = "No Of Obeservation",
title = paste("Histogrem Plot Of ",feature),
subtitle = paste("Distribution Of Feature ",feature),
caption = "wine dataset") +
theme_grey()
}
histf(data$Alcohol)
boxf<-function(z){
feature=str_replace_all(deparse(substitute(z)),"[data$]","")
i=0
i=i+1
X[[1]]=feature
ggplot(data) +
aes(x = z) +
geom_boxplot(shape = "circle", fill = "#497AD2", colour = "blue") +
labs(x = paste("Boxplot Plot Of: ",feature),y = "No Of Obeservation",
title = paste("Boxplot Plot Of ",feature),
subtitle = paste("Distribution Of Feature ",feature),
caption = "wine dataset") +
theme_grey()
}
install.packages("spectrum")
library(Spectrum)
data.trans <- as.matrix(scale(t(data)))
rownames(data.trans)<-NULL
colnames(data.trans)<-NULL
clust.spect <- cluster_similarity(data.trans[[1]],k=2:5)
# Book packages and some scripts:-
install.packages("cluster")
devtools::install_github("kassambara/factoextra")