Cluster Analysis

dati=Dati.questionario.puliti[,0:16]
library(cluster)
#creare matrice di dissimiliratà con la metrica di Gower
dis=daisy(dati,metric = c("gower"))

#4 metodi
dati_co=hclust(dis,method="complete")
summary(dati_co) #per vedere i merge, ovvero le unioni fatte
dati_co$merge #vediamo i merge effettuati
dati_si=hclust(dis,method="single")
dati_me=hclust(dis,method="average")
dati_med=hclust(dis,method="median")

par(mfrow=c(2,2))
#un grafico per ogni metodo
plot(dati_co, main  ="Legame completo")
plot(dati_si, main ="Legame singolo")
plot(dati_me, main="Legame medio")
plot(dati_med, main="Legame mediano")

#valutando i grafici, scegliamo il completo, quindi visualizziamo solo quello
par(mfrow=c(1,1))
plot(dati_co, main  ="Legame completo")

#facciamo qualche prova per capire quanti cluster formare

abline(h=0.46, col="blue")
abline(h=0.43, col="orange")
abline(h=0.44, col="violet")
abline(h=0.438, col="red")

#inserire numero di quanti gruppi ci sono
num_clust = 4
gruppi = cutree(dati_co,k = num_clust) #crea i gruppi da dati
# - e gruppi da formare
#nuovo dataset con nuova variabile e dati originali
clust=data.frame(gruppi,dati)

#vediamo quanti elementi ci sono in ogni gruppo
head(clust)
table(gruppi) #tabella di frequenza per vedere # in ogni gruppo

#descrizione gruppi

#divido in quattro dataset in base al gruppo di appartenenza
c1=subset(clust, gruppi=="1")
c2=subset(clust, gruppi=="2")
c3=subset(clust, gruppi=="3")
c4=subset(clust, gruppi=="4")

#creo csv per ogni gruppo
c1=as.data.frame(c1)
write.table(c1,"c1.csv")
c2=as.data.frame(c2)
write.table(c2,"c2.csv")
c3=as.data.frame(c3)
write.table(c3,"c3.csv")
c4=as.data.frame(c4)
write.table(c4,"c4.csv")

#reimporto i dataset di ogni gruppo (subset)
# TROVO: distribuzioni frequenza per var qualitative
# princ misure di posizione di variabilità per quantitative
prop.table(table(c1$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.))


#frequenza di acquisto in un anno
summary(c1$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
summary(c2$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
summary(c3$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
summary(c4$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
sd(c1$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
sd(c2$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
sd(c3$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
sd(c4$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)


#mediana più alta nel terzo gruppo ci mostra che il terzo gruppo è quello
# che acquista più spesso nonostante variabilita alta



#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
boxplot(c2$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
boxplot(c3$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)
boxplot(c4$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.)


par(mfrow=c(1,1))

boxplot(clust$A.1.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.in.un.anno.~clust$gruppi)


# A.2 frequenza di acquisto brand già provato

summary(c1$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
summary(c2$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
summary(c3$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
summary(c4$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
sd(c1$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
sd(c2$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
sd(c3$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
sd(c4$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
boxplot(c2$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
boxplot(c3$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)
boxplot(c4$A.2.Con.quale.frequenza.acquisti.prodotti.di.abbigliamento.di.un.brand.che.avevi.già.provato.)


#A.3 importanza di toccare prima di comprare

summary(c1$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
summary(c2$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
summary(c3$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
summary(c4$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
sd(c1$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
sd(c2$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
sd(c3$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
sd(c4$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
boxplot(c2$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
boxplot(c3$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)
boxplot(c4$A.3.Nel.processo.d.acquisto.di.un.capo.di.abbigliamento..quanto.consideri.importante.poter.provare.toccare.vedere.di.persona.il.capo.prima.di.acquistarlo.)


#A.4 importanza made in italy

summary(c1$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
summary(c2$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
summary(c3$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
summary(c4$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
sd(c1$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
sd(c2$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
sd(c3$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
sd(c4$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
boxplot(c2$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
boxplot(c3$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)
boxplot(c4$A.4.Quanto.consideri.importante.il.fatto.che.un.capo.sia.made.in.Italy.)


#a.5 fedele vs brand nuovi

summary(c1$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
summary(c2$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
summary(c3$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
summary(c4$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
sd(c1$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
sd(c2$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
sd(c3$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
sd(c4$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
boxplot(c2$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
boxplot(c3$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)
boxplot(c4$A.5.Preferisci.scoprire.brand.nuovi.o.rimanere.fedele.ai.tuoi.brand.preferiti.)


#a,6 dove acquisti - fisici mono marca

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.mono.marca.)

#a,6 dove acquisti - fisici multi marca

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.fisici.multi.marca.)

#a,6 dove acquisti - ecommerce mono

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.mono.marca.)

#a,6 dove acquisti - ecommerce multi

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Negozi.e.commerce.multi.marca.)

#a,6 dove acquisti - boutique

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Boutique.)


#a,6 dove acquisti - mercatini

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....Mercatini.)

#a,6 dove acquisti - app e siti

summary(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
summary(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
summary(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
summary(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
sd(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
sd(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
sd(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
sd(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
boxplot(c2$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
boxplot(c3$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)
boxplot(c4$A.6.Dove.acquisti.prodotti.di.abbigliamento....App.siti.di.usato..Vinted..Depop......)



#a.7 fattore importanza - marca

summary(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
summary(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
summary(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
summary(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
sd(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
sd(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
sd(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
sd(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
boxplot(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
boxplot(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)
boxplot(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.marca.)

#a.7 fattore importanza - prezzo

summary(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
summary(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
summary(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
summary(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
sd(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
sd(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
sd(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
sd(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
boxplot(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
boxplot(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)
boxplot(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....Il.prezzo.)


#a.7 fattore importanza - qualità

summary(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
summary(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
summary(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
summary(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
sd(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
sd(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
sd(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
sd(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
boxplot(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
boxplot(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)
boxplot(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.qualità.)


#a.7 fattore importanza - sostenibilità

summary(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
summary(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
summary(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
summary(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
sd(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
sd(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
sd(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
sd(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)

#boxplot in 4 A1
par(mfrow=c(1,4))
boxplot(c1$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
boxplot(c2$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
boxplot(c3$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)
boxplot(c4$A.7.Quando.acquisti.un.prodotto.di.abbigliamento..a.quale.fattore.dai.più.importanza.....La.sostenibilità.)




#non clusterizzate

#Età
summary(c1$B.2.Età)
summary(c2$B.2.Età)
summary(c3$B.2.Età)
summary(c4$B.2.Età)
sd(c1$B.2.Età)
sd(c2$B.2.Età)
sd(c3$B.2.Età)
sd(c4$B.2.Età)
boxplot(clust$B.2.Età~clust$gruppi)

#Genere
summary(c1$B.1.Genere)
summary(c2$B.1.Genere)
summary(c3$B.1.Genere)
summary(c4$B.1.Genere)
sd(c1$B.1.Genere)
sd(c2$B.1.Genere)
sd(c3$B.1.Genere)
sd(c4$B.1.Genere)
boxplot(clust$B.1.Genere~clust$gruppi)

#Reddito
summary(c1$B.4.Qual.è.il.tuo.reddito.)
summary(c2$B.4.Qual.è.il.tuo.reddito.)
summary(c3$B.4.Qual.è.il.tuo.reddito.)
summary(c4$B.4.Qual.è.il.tuo.reddito.)
sd(c1$B.4.Qual.è.il.tuo.reddito.)
sd(c2$B.4.Qual.è.il.tuo.reddito.)
sd(c3$B.4.Qual.è.il.tuo.reddito.)
sd(c4$B.4.Qual.è.il.tuo.reddito.)
boxplot(clust$B.4.Qual.è.il.tuo.reddito.~clust$gruppi)