Variables
merged <- merged %>%
filter(Codi != 12)
merged2 <- merged %>%
remove_rownames %>%
column_to_rownames(var="Nom_Barri") %>%
select("n.tot","pc.esp","pc.ue27-esp","pc.20.34","2019-2014","n.esp.V1419",
"hotel2019","rest1614",
"RFD.2017",
"tot_ann","pmedio","pmedio.V1519","pm_ent.V1519","pm_priv.V1519",
"alq.num","alq.pm","alq.pm.V1519","alq.num.V1519",
"tot.comp","tot.eur","perc.nou.comp","perc.usat.comp","tot.comp.V1419",
"nou.eur.V1419","usat.eur.V1419",
"percbar.filt.A", "percbar.filt"
)Standardizar los datos
df <- scale(merged2)##CLUSTER 5
set.seed(123)
finalK <- kmeans(df, centers = 5, nstart = 100)
print(finalK)## K-means clustering with 5 clusters of sizes 8, 4, 2, 16, 42
##
## Cluster means:
## n.tot pc.esp pc.ue27-esp pc.20.34 2019-2014 n.esp.V1419
## 1 -0.4409814 0.45118049 0.1205637 -0.7499247 0.50580191 0.10836206
## 2 0.2425617 -3.18516916 3.4567764 3.2542353 -1.64605832 -1.36032017
## 3 -1.4935244 0.54462380 -0.6719969 -0.3879542 -0.31629639 3.80952676
## 4 1.3960194 -0.07157334 0.2650414 0.3188958 0.34987666 -0.27251318
## 5 -0.3998014 0.21874187 -0.4211496 -0.2700945 -0.05780038 0.03132242
## hotel2019 rest1614 RFD.2017 tot_ann pmedio pmedio.V1519
## 1 -0.3356074 0.53400427 1.9400672 -0.4273809 1.1007084 0.6038323
## 2 0.9577186 -1.94025068 -0.1256018 2.1359700 -0.0572929 -0.3970500
## 3 -0.3909125 -0.04063076 -0.6399616 -0.6359932 -1.3445789 -1.8782463
## 4 1.1567406 -0.04300528 0.4885438 0.9700968 0.8212693 0.7578287
## 5 -0.4493343 0.10138844 -0.5132121 -0.4612951 -0.4530392 -0.2764577
## pm_ent.V1519 pm_priv.V1519 alq.num alq.pm alq.pm.V1519 alq.num.V1519
## 1 0.8526052 0.12964296 -0.2624017 1.6323115 0.1031588 1.2619146
## 2 -0.5130673 0.56252389 0.6324351 0.2631659 0.7141688 -0.5125819
## 3 -1.5325761 -3.04456464 -1.0378221 -2.5191042 -2.3040487 0.8916537
## 4 0.4493178 0.28593393 1.4805267 0.4971167 0.3524846 0.1041659
## 5 -0.2117263 -0.04221554 -0.5248407 -0.4054003 -0.1122286 -0.2736893
## tot.comp tot.eur perc.nou.comp perc.usat.comp tot.comp.V1419
## 1 -0.6482664 1.8943080 -0.379912011 0.39316850 -0.7874916
## 2 0.6647900 -0.1108625 0.137425540 -0.12161974 -0.6467988
## 3 -1.2110049 -0.8627758 1.651946708 -1.59876838 -0.6037986
## 4 0.8798304 0.4243079 0.005970132 -0.01048643 -0.4308041
## 5 -0.2173406 -0.4708188 -0.021662419 0.01682025 0.4044665
## nou.eur.V1419 usat.eur.V1419 percbar.filt.A percbar.filt
## 1 -0.7499680 -0.557254930 0.39113452 0.0966383
## 2 1.1231370 -0.007291675 0.02257457 0.5633180
## 3 0.2261252 -0.972031192 -3.21080844 -2.9322174
## 4 0.3913131 0.254301954 0.23254009 0.6443417
## 5 -0.1239539 0.056248506 -0.01234283 -0.1778907
##
## Clustering vector:
## el Raval
## 2
## el Barri Gòtic
## 2
## la Barceloneta
## 2
## Sant Pere, Santa Caterina i la Ribera
## 2
## el Fort Pienc
## 4
## la Sagrada Família
## 4
## la Dreta de l'Eixample
## 4
## l'Antiga Esquerra de l'Eixample
## 4
## la Nova Esquerra de l'Eixample
## 4
## Sant Antoni
## 4
## el Poble Sec
## 4
## la Marina de Port
## 5
## la Font de la Guatlla
## 5
## Hostafrancs
## 5
## la Bordeta
## 5
## Sants - Badal
## 5
## Sants
## 4
## les Corts
## 4
## la Maternitat i Sant Ramon
## 1
## Pedralbes
## 1
## Vallvidrera, el Tibidabo i les Planes
## 1
## Sarrià
## 1
## les Tres Torres
## 1
## Sant Gervasi - la Bonanova
## 1
## Sant Gervasi - Galvany
## 4
## el Putxet i el Farró
## 4
## Vallcarca i els Penitents
## 5
## el Coll
## 5
## la Salut
## 5
## la Vila de Gràcia
## 4
## el Camp d'en Grassot i Gràcia Nova
## 4
## el Baix Guinardó
## 5
## Can Baró
## 5
## el Guinardó
## 5
## la Font d'en Fargues
## 5
## el Carmel
## 5
## la Teixonera
## 5
## Sant Genís dels Agudells
## 5
## Montbau
## 5
## la Vall d'Hebron
## 5
## la Clota
## 3
## Horta
## 5
## Vilapicina i la Torre Llobeta
## 5
## Porta
## 5
## el Turó de la Peira
## 5
## Can Peguera
## 5
## la Guineueta
## 5
## Canyelles
## 5
## les Roquetes
## 5
## Verdun
## 5
## la Prosperitat
## 5
## la Trinitat Nova
## 5
## Torre Baró
## 5
## Ciutat Meridiana
## 5
## Vallbona
## 3
## la Trinitat Vella
## 5
## Baró de Viver
## 5
## el Bon Pastor
## 5
## Sant Andreu
## 4
## la Sagrera
## 5
## el Congrés i els Indians
## 5
## Navas
## 5
## el Camp de l'Arpa del Clot
## 4
## el Clot
## 5
## el Parc i la Llacuna del Poblenou
## 5
## la Vila Olímpica del Poblenou
## 1
## el Poblenou
## 4
## Diagonal Mar i el Front Marítim del Poblenou
## 1
## el Besòs i el Maresme
## 5
## Provençals del Poblenou
## 5
## Sant Martí de Provençals
## 5
## la Verneda i la Pau
## 5
##
## Within cluster sum of squares by cluster:
## [1] 149.82236 72.78532 53.33688 270.57789 589.80592
## (between_SS / total_SS = 40.7 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"merged$cluster <- finalK$cluster
write.csv(merged, file = "mergedK.csv", append=TRUE)## Warning in write.csv(merged, file = "mergedK.csv", append = TRUE): attempt to
## set 'append' ignoredkkk <- merged %>%
mutate(Cluster = finalK$cluster) %>%
group_by(Nom_Barri) #%>%
#summarise_all("mean")##GRUPO 1
K1 <- subset(kkk, Cluster == "1")
K1$Nom_Barri## [1] "la Maternitat i Sant Ramon"
## [2] "Pedralbes"
## [3] "Vallvidrera, el Tibidabo i les Planes"
## [4] "Sarrià"
## [5] "les Tres Torres"
## [6] "Sant Gervasi - la Bonanova"
## [7] "la Vila Olímpica del Poblenou"
## [8] "Diagonal Mar i el Front Marítim del Poblenou"##GRUPO 2
K2 <- subset(kkk, Cluster == "2")
K2$Nom_Barri## [1] "el Raval"
## [2] "el Barri Gòtic"
## [3] "la Barceloneta"
## [4] "Sant Pere, Santa Caterina i la Ribera"##GRUPO 3
K3 <- subset(kkk, Cluster == "3")
K3$Nom_Barri## [1] "la Clota" "Vallbona"##GRUPO 4
K4 <- subset(kkk, Cluster == "4")
K4$Nom_Barri## [1] "el Fort Pienc" "la Sagrada Família"
## [3] "la Dreta de l'Eixample" "l'Antiga Esquerra de l'Eixample"
## [5] "la Nova Esquerra de l'Eixample" "Sant Antoni"
## [7] "el Poble Sec" "Sants"
## [9] "les Corts" "Sant Gervasi - Galvany"
## [11] "el Putxet i el Farró" "la Vila de Gràcia"
## [13] "el Camp d'en Grassot i Gràcia Nova" "Sant Andreu"
## [15] "el Camp de l'Arpa del Clot" "el Poblenou"##GRUPO 5
K5 <- subset(kkk, Cluster == "5")
K5$Nom_Barri## [1] "la Marina de Port" "la Font de la Guatlla"
## [3] "Hostafrancs" "la Bordeta"
## [5] "Sants - Badal" "Vallcarca i els Penitents"
## [7] "el Coll" "la Salut"
## [9] "el Baix Guinardó" "Can Baró"
## [11] "el Guinardó" "la Font d'en Fargues"
## [13] "el Carmel" "la Teixonera"
## [15] "Sant Genís dels Agudells" "Montbau"
## [17] "la Vall d'Hebron" "Horta"
## [19] "Vilapicina i la Torre Llobeta" "Porta"
## [21] "el Turó de la Peira" "Can Peguera"
## [23] "la Guineueta" "Canyelles"
## [25] "les Roquetes" "Verdun"
## [27] "la Prosperitat" "la Trinitat Nova"
## [29] "Torre Baró" "Ciutat Meridiana"
## [31] "la Trinitat Vella" "Baró de Viver"
## [33] "el Bon Pastor" "la Sagrera"
## [35] "el Congrés i els Indians" "Navas"
## [37] "el Clot" "el Parc i la Llacuna del Poblenou"
## [39] "el Besòs i el Maresme" "Provençals del Poblenou"
## [41] "Sant Martí de Provençals" "la Verneda i la Pau"centers excel
finalK$cluster## el Raval
## 2
## el Barri Gòtic
## 2
## la Barceloneta
## 2
## Sant Pere, Santa Caterina i la Ribera
## 2
## el Fort Pienc
## 4
## la Sagrada Família
## 4
## la Dreta de l'Eixample
## 4
## l'Antiga Esquerra de l'Eixample
## 4
## la Nova Esquerra de l'Eixample
## 4
## Sant Antoni
## 4
## el Poble Sec
## 4
## la Marina de Port
## 5
## la Font de la Guatlla
## 5
## Hostafrancs
## 5
## la Bordeta
## 5
## Sants - Badal
## 5
## Sants
## 4
## les Corts
## 4
## la Maternitat i Sant Ramon
## 1
## Pedralbes
## 1
## Vallvidrera, el Tibidabo i les Planes
## 1
## Sarrià
## 1
## les Tres Torres
## 1
## Sant Gervasi - la Bonanova
## 1
## Sant Gervasi - Galvany
## 4
## el Putxet i el Farró
## 4
## Vallcarca i els Penitents
## 5
## el Coll
## 5
## la Salut
## 5
## la Vila de Gràcia
## 4
## el Camp d'en Grassot i Gràcia Nova
## 4
## el Baix Guinardó
## 5
## Can Baró
## 5
## el Guinardó
## 5
## la Font d'en Fargues
## 5
## el Carmel
## 5
## la Teixonera
## 5
## Sant Genís dels Agudells
## 5
## Montbau
## 5
## la Vall d'Hebron
## 5
## la Clota
## 3
## Horta
## 5
## Vilapicina i la Torre Llobeta
## 5
## Porta
## 5
## el Turó de la Peira
## 5
## Can Peguera
## 5
## la Guineueta
## 5
## Canyelles
## 5
## les Roquetes
## 5
## Verdun
## 5
## la Prosperitat
## 5
## la Trinitat Nova
## 5
## Torre Baró
## 5
## Ciutat Meridiana
## 5
## Vallbona
## 3
## la Trinitat Vella
## 5
## Baró de Viver
## 5
## el Bon Pastor
## 5
## Sant Andreu
## 4
## la Sagrera
## 5
## el Congrés i els Indians
## 5
## Navas
## 5
## el Camp de l'Arpa del Clot
## 4
## el Clot
## 5
## el Parc i la Llacuna del Poblenou
## 5
## la Vila Olímpica del Poblenou
## 1
## el Poblenou
## 4
## Diagonal Mar i el Front Marítim del Poblenou
## 1
## el Besòs i el Maresme
## 5
## Provençals del Poblenou
## 5
## Sant Martí de Provençals
## 5
## la Verneda i la Pau
## 5centers <- finalK$centers
centers <- as.data.frame(centers)
#write.xlsx(centers, file = "Z:/Il mio Drive/Dades_i_Docus_Habitatge_Airbnb/2_Metodologia/centers.xlsx", append=TRUE)cluster excel
merged$cluster <- finalK$cluster
clue <- merged[,c(2,103)]
clue <- as.data.frame(clue)
#write.xlsx(clue, file = "Z:/Il mio Drive/Dades_i_Docus_Habitatge_Airbnb/2_Metodologia/cluster.xlsx", append=TRUE)