PCA con van en %
Variables
merged2 <- merged %>%
remove_rownames %>%
column_to_rownames(var="Nom_Barri") %>%
select("n.tot.V1419","n.esp.V1419","n.ue27.V1419",
"hotel2019",
"alq.num.V1519","alq.pmq.V1519","alq.pm.V1519",
"tot_ann.V1519","ent.V1519","priv.V1519","shared.V1519","pmedio.V1519","pm_ent.V1519",
"RFD.2017",
"tot.comp.V1519","usat.comp.V1519","tot.eur.V1519","usat.eur.V1519","tot.eurm2.V1519",
)Standardizar los datos
df <- scale(merged2)Calcular eigenvalues and eigenvectors
pca_result <- prcomp(merged2, scale = TRUE)
pca_result$center## n.tot.V1419 n.esp.V1419 n.ue27.V1419 hotel2019 alq.num.V1519
## 5.2145625 -1.2341867 0.1257141 276.0547945 50.8272836
## alq.pmq.V1519 alq.pm.V1519 tot_ann.V1519 ent.V1519 priv.V1519
## 35.3976621 34.6052891 126.3367843 40.4774096 204.3256803
## shared.V1519 pmedio.V1519 pm_ent.V1519 RFD.2017 tot.comp.V1519
## 71.8493151 -87.3018000 0.8279582 93.6712329 55.0607260
## usat.comp.V1519 tot.eur.V1519 usat.eur.V1519 tot.eurm2.V1519
## 63.0801422 50.4907937 49.5577236 52.8736457pca_result$scale## n.tot.V1419 n.esp.V1419 n.ue27.V1419 hotel2019 alq.num.V1519
## 10.477120 5.196927 4.770421 490.230782 48.467147
## alq.pmq.V1519 alq.pm.V1519 tot_ann.V1519 ent.V1519 priv.V1519
## 15.633887 15.669486 170.312617 82.995443 285.225124
## shared.V1519 pmedio.V1519 pm_ent.V1519 RFD.2017 tot.comp.V1519
## 293.036672 28.320141 57.451326 42.709775 83.625492
## usat.comp.V1519 tot.eur.V1519 usat.eur.V1519 tot.eurm2.V1519
## 106.907533 34.728026 35.928599 30.227177#pesos asignados a cada componente
pca_result$rotation[,1:5]## PC1 PC2 PC3 PC4
## n.tot.V1419 0.237029366 -0.237192293 -0.2674055509 -0.056040625
## n.esp.V1419 0.213243038 -0.329928965 -0.3664249243 -0.069442655
## n.ue27.V1419 0.221271117 -0.271282076 -0.4121251875 -0.077376269
## hotel2019 0.002875886 0.437697314 -0.1642973460 -0.261498207
## alq.num.V1519 0.199439262 0.052294790 -0.0645671238 0.090685476
## alq.pmq.V1519 -0.200328407 0.172695208 -0.0434428047 0.408938172
## alq.pm.V1519 -0.219530341 0.216689271 -0.0009851382 0.390966498
## tot_ann.V1519 -0.345164155 -0.143751685 0.0045691697 0.063824603
## ent.V1519 -0.266632422 -0.047248960 -0.0811217671 -0.007418843
## priv.V1519 -0.310612048 -0.155706775 -0.0621140247 0.069544604
## shared.V1519 0.004615442 0.340172796 -0.1012554037 -0.300324914
## pmedio.V1519 0.045347367 0.336103312 0.0401509914 -0.451520731
## pm_ent.V1519 0.017755746 0.225059797 -0.1193181375 -0.099581629
## RFD.2017 0.154368623 0.262789334 -0.2132855895 0.224816623
## tot.comp.V1519 -0.232856766 -0.218072545 0.2543750429 -0.330117749
## usat.comp.V1519 -0.221261095 -0.208404508 0.2221723728 -0.307871862
## tot.eur.V1519 -0.345660412 0.003156147 -0.3463898303 -0.086400298
## usat.eur.V1519 -0.339938235 -0.014423320 -0.3297519231 -0.106900589
## tot.eurm2.V1519 -0.264807038 0.058824980 -0.4080288420 -0.056692238
## PC5
## n.tot.V1419 -0.076133169
## n.esp.V1419 -0.154284771
## n.ue27.V1419 -0.187235337
## hotel2019 -0.021472213
## alq.num.V1519 0.328499481
## alq.pmq.V1519 -0.373786724
## alq.pm.V1519 -0.369313206
## tot_ann.V1519 0.311658712
## ent.V1519 0.252457355
## priv.V1519 0.374525298
## shared.V1519 -0.021340043
## pmedio.V1519 -0.021057346
## pm_ent.V1519 0.173687232
## RFD.2017 -0.090297554
## tot.comp.V1519 -0.314024953
## usat.comp.V1519 -0.323561728
## tot.eur.V1519 -0.014210720
## usat.eur.V1519 -0.007028033
## tot.eurm2.V1519 -0.083373700#results
pca_result$x[,1:5]## PC1 PC2
## el Raval -0.03048791 3.03948835
## el Barri Gòtic -0.65637456 3.03435091
## la Barceloneta -0.67422498 0.71008698
## Sant Pere, Santa Caterina i la Ribera -0.16953507 2.48100900
## el Fort Pienc 0.63323204 1.09746363
## la Sagrada FamÃlia -1.16878793 2.38424044
## la Dreta de l'Eixample 0.64387618 7.19496872
## l'Antiga Esquerra de l'Eixample 0.49570521 3.32080373
## la Nova Esquerra de l'Eixample 0.95348886 1.43334358
## Sant Antoni 0.20607421 2.21300325
## el Poble Sec -4.37597437 1.81313289
## la Marina del Prat Vermell 1.37806837 -1.95734327
## la Marina de Port -1.56673836 -0.56754740
## la Font de la Guatlla -1.11414896 -0.53282088
## Hostafrancs -2.07309399 0.13841965
## la Bordeta -1.13279717 -1.04838423
## Sants - Badal -0.54670718 -0.29808677
## Sants -0.65715029 1.08504890
## les Corts 0.13392535 0.98444339
## la Maternitat i Sant Ramon 1.22668127 0.98615470
## Pedralbes 1.52043822 1.37664893
## Vallvidrera, el Tibidabo i les Planes 3.82086042 -1.33866049
## Sarrià 1.34744075 0.84760410
## les Tres Torres 1.94563334 0.42113835
## Sant Gervasi - la Bonanova 1.80992263 1.62626487
## Sant Gervasi - Galvany 1.15320153 1.28403352
## el Putxet i el Farró 0.98613601 1.08035068
## Vallcarca i els Penitents 0.26461252 -0.32702773
## el Coll 0.53621645 -0.86385327
## la Salut 0.19526534 0.06042568
## la Vila de Grà cia 0.35611493 4.90558483
## el Camp d'en Grassot i Grà cia Nova 0.54428086 0.75767772
## el Baix Guinardó 0.55762458 0.13757414
## Can Baró 0.32872836 -0.27155578
## el Guinardó 0.41820303 -0.78819490
## la Font d'en Fargues 1.03412579 -0.34416451
## el Carmel -3.62463991 -0.54998092
## la Teixonera -1.42392948 -0.90809999
## Sant GenÃs dels Agudells -4.75716700 -3.16838421
## Montbau -1.28383643 -1.17884756
## la Vall d'Hebron 1.31295909 -1.46726239
## la Clota 6.34651835 -6.36467635
## Horta -0.80811986 -0.55391978
## Vilapicina i la Torre Llobeta -0.53402571 -0.52937332
## Porta -0.84096569 -0.82068671
## el Turó de la Peira -1.29425012 -1.01317077
## Can Peguera 0.95649047 -0.78154419
## la Guineueta 0.51011599 -0.73004710
## Canyelles 2.49090455 -0.40100417
## les Roquetes -7.92383192 -2.92018069
## Verdun -0.94526400 -0.42251140
## la Prosperitat 0.63195813 -0.49165945
## la Trinitat Nova -3.68802790 -1.15587100
## Torre Baró 3.43747143 -2.77033879
## Ciutat Meridiana -1.83143641 -1.96892169
## Vallbona 5.25507365 -1.78529466
## la Trinitat Vella -3.59103069 -1.64459207
## Baró de Viver 2.79621618 -0.29241358
## el Bon Pastor -1.08858816 -1.51550652
## Sant Andreu -0.36311738 -0.23394579
## la Sagrera -0.69207882 -0.25467707
## el Congrés i els Indians -1.45747631 -0.72688440
## Navas -0.10384773 -0.61774215
## el Camp de l'Arpa del Clot 0.06891853 0.52200033
## el Clot -0.18330755 0.15217800
## el Parc i la Llacuna del Poblenou 1.77127508 -0.67400370
## la Vila OlÃmpica del Poblenou 0.23458398 0.84808962
## el Poblenou 0.46684986 0.20903072
## Diagonal Mar i el Front MarÃtim del Poblenou 2.80645629 0.24091754
## el Besòs i el Maresme -0.37768621 -0.25281920
## Provençals del Poblenou 1.02865377 -0.37220509
## Sant Martà de Provençals -0.19099686 -0.82547281
## la Verneda i la Pau -1.43465669 -0.65580040
## PC3 PC4
## el Raval -0.080293873 -1.37232112
## el Barri Gòtic 0.583086796 0.43510262
## la Barceloneta 1.902770557 0.45182777
## Sant Pere, Santa Caterina i la Ribera -0.269093193 -0.70341885
## el Fort Pienc 0.209347425 0.63784496
## la Sagrada FamÃlia -1.057653882 -0.11547073
## la Dreta de l'Eixample -1.109794007 -4.01393705
## l'Antiga Esquerra de l'Eixample -0.961952814 -0.90242545
## la Nova Esquerra de l'Eixample 0.558024034 0.55144422
## Sant Antoni -0.161959106 -1.09705159
## el Poble Sec -4.000682218 -0.90536235
## la Marina del Prat Vermell -0.799002857 -1.30659506
## la Marina de Port 0.927890130 1.22174861
## la Font de la Guatlla -0.198587153 -1.11941092
## Hostafrancs -1.304565781 -0.20631138
## la Bordeta -0.654611467 0.52214804
## Sants - Badal 1.235272763 0.66867790
## Sants -1.085183179 -0.31952368
## les Corts -0.481342306 0.67408026
## la Maternitat i Sant Ramon 0.075486747 1.58295863
## Pedralbes -0.306225484 2.64181586
## Vallvidrera, el Tibidabo i les Planes 0.709493222 -0.40895385
## Sarrià -0.162771629 2.00372726
## les Tres Torres -1.030902643 0.98479681
## Sant Gervasi - la Bonanova -1.233338388 1.30517963
## Sant Gervasi - Galvany -1.061572442 0.85607387
## el Putxet i el Farró -0.956443360 0.64647278
## Vallcarca i els Penitents -0.855414178 0.26532678
## el Coll 0.904296495 0.76919539
## la Salut -0.140219254 0.84359395
## la Vila de Grà cia -1.162106547 -2.64900562
## el Camp d'en Grassot i Grà cia Nova 0.000301207 0.49110988
## el Baix Guinardó 0.321724381 0.82225356
## Can Baró 0.679831292 1.06170593
## el Guinardó -0.124087193 0.30174831
## la Font d'en Fargues 0.983712163 0.09001992
## el Carmel 0.242459285 -0.19251070
## la Teixonera 0.862535962 0.66522566
## Sant GenÃs dels Agudells 0.765365235 -3.47216093
## Montbau -0.007465825 -0.14117240
## la Vall d'Hebron -1.046543207 0.13179226
## la Clota -7.125481512 -2.30865266
## Horta -0.412324479 0.22588585
## Vilapicina i la Torre Llobeta 0.789290372 0.04589368
## Porta -0.768627124 0.71269490
## el Turó de la Peira 1.460478043 0.28585452
## Can Peguera 4.529205868 -4.55406397
## la Guineueta 0.396998207 -0.39554283
## Canyelles 1.622964401 -0.78313407
## les Roquetes -2.334669991 -0.39847471
## Verdun 1.133669249 1.01795414
## la Prosperitat 1.170777445 0.42010690
## la Trinitat Nova 1.432760632 0.86240450
## Torre Baró -0.567077854 -1.95087818
## Ciutat Meridiana 1.860188509 -1.52524843
## Vallbona 2.936012987 -0.70064045
## la Trinitat Vella -0.137268287 0.73050019
## Baró de Viver 2.126189516 -2.94020897
## el Bon Pastor 0.963020505 -1.28999655
## Sant Andreu -0.613817980 -0.50587589
## la Sagrera -0.534429484 0.75159554
## el Congrés i els Indians -1.122689621 0.19856317
## Navas 0.416062626 0.30996078
## el Camp de l'Arpa del Clot 0.575803426 0.57864210
## el Clot 0.721711625 1.20815366
## el Parc i la Llacuna del Poblenou -0.314276236 0.73768146
## la Vila OlÃmpica del Poblenou -1.842799770 0.75026591
## el Poblenou -0.030900826 0.73230912
## Diagonal Mar i el Front MarÃtim del Poblenou 0.502119156 2.75601291
## el Besòs i el Maresme 0.056497363 1.11832273
## Provençals del Poblenou 0.583992257 2.19379066
## Sant Martà de Provençals 1.383760174 0.23980733
## la Verneda i la Pau 0.433075095 -0.22392255
## PC5
## el Raval -0.316750706
## el Barri Gòtic 0.280226160
## la Barceloneta 0.119243583
## Sant Pere, Santa Caterina i la Ribera -0.287520082
## el Fort Pienc 0.015074744
## la Sagrada FamÃlia 0.043931696
## la Dreta de l'Eixample -0.190505972
## l'Antiga Esquerra de l'Eixample 0.120988258
## la Nova Esquerra de l'Eixample 0.150486696
## Sant Antoni 0.397431425
## el Poble Sec -0.767776108
## la Marina del Prat Vermell 4.186154743
## la Marina de Port -1.848323841
## la Font de la Guatlla 1.177070491
## Hostafrancs 0.296778352
## la Bordeta -0.287063139
## Sants - Badal -0.067830062
## Sants -0.007703934
## les Corts 0.163592566
## la Maternitat i Sant Ramon 1.004798153
## Pedralbes -0.825717094
## Vallvidrera, el Tibidabo i les Planes 2.367530352
## Sarrià -0.948859742
## les Tres Torres 0.313133973
## Sant Gervasi - la Bonanova 0.002109518
## Sant Gervasi - Galvany 0.051512077
## el Putxet i el Farró 0.126334840
## Vallcarca i els Penitents 0.510178963
## el Coll -0.260308749
## la Salut -0.512444484
## la Vila de Grà cia 0.023054775
## el Camp d'en Grassot i Grà cia Nova -0.634172730
## el Baix Guinardó -0.127830122
## Can Baró -1.395264510
## el Guinardó -0.288013737
## la Font d'en Fargues 0.011090049
## el Carmel 0.285253722
## la Teixonera -1.637542390
## Sant GenÃs dels Agudells -3.078770229
## Montbau 0.065191617
## la Vall d'Hebron 1.003929975
## la Clota -2.343299987
## Horta -0.795010526
## Vilapicina i la Torre Llobeta -0.926797860
## Porta -0.354691116
## el Turó de la Peira -2.017580016
## Can Peguera -0.566715397
## la Guineueta 0.619632453
## Canyelles 2.377955218
## les Roquetes 3.334913720
## Verdun 0.074637557
## la Prosperitat -0.888963763
## la Trinitat Nova 1.619808286
## Torre Baró 0.865270722
## Ciutat Meridiana -2.000666052
## Vallbona 1.273100085
## la Trinitat Vella 2.395597757
## Baró de Viver 0.594349621
## el Bon Pastor -1.102761073
## Sant Andreu -1.086148164
## la Sagrera -0.414496514
## el Congrés i els Indians 0.553170763
## Navas -0.481538992
## el Camp de l'Arpa del Clot -0.117274906
## el Clot -0.455326236
## el Parc i la Llacuna del Poblenou -0.484945008
## la Vila OlÃmpica del Poblenou 1.049564629
## el Poblenou -0.718657240
## Diagonal Mar i el Front MarÃtim del Poblenou -0.225308482
## el Besòs i el Maresme 1.048890694
## Provençals del Poblenou -1.544374599
## Sant Martà de Provençals 0.984655453
## la Verneda i la Pau 0.500309877Var Exp
VE <- pca_result$sdev^2
PVE <- VE / sum(VE)
round(PVE, 2)## [1] 0.23 0.18 0.11 0.10 0.08 0.07 0.06 0.04 0.03 0.03 0.02 0.02 0.01 0.01 0.01
## [16] 0.00 0.00 0.00 0.00vis eigen
fviz_eig(pca_result)
Plot
biplot(pca_result, scale = 0)
graph pca
fviz_pca_ind(pca_result,
col.ind = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE
)
graph var
fviz_pca_var(pca_result,
col.var = "contrib",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE
)
graph biplot
fviz_pca_biplot(pca_result, repel = TRUE,
col.var = "#2E9FDF", # Variables color
col.ind = "#696969" # Individuals color
)