Practica Calificada PARTE 1.
library(rio)link= 'https://github.com/JoseManuelMagallanes/Estadistica_Para_AnalisisPolitico/raw/master/lapop17.dta'lapop17=import(link)¿Cree la mayoria de la gente que los servicios que dan los municipios son malos?
str(lapop17$sgl1)## num [1:2647] 2 4 4 2 5 3 5 4 5 4 ...
## - attr(*, "label")= chr "Quality of Municipal Services"
## - attr(*, "format.stata")= chr "%36.0f"
## - attr(*, "labels")= Named num [1:7] 1 2 3 4 5 NA NA
## ..- attr(*, "names")= chr [1:7] "Very Good" "Good" "Neither Good nor Bad (Fair)" "Bad" ...lapop17$sgl1=as.ordered(lapop17$sgl1)str(lapop17$sgl1)## Ord.factor w/ 5 levels "1"<"2"<"3"<"4"<..: 2 4 4 2 5 3 5 4 5 4 ...library(questionr)library(magrittr)freqSGL1=freq(lapop17$sgl1,cum = T)%>%data.frame() freqSGL1## n X. val. X.cum val.cum
## 1 46 1.7 1.8 1.7 1.8
## 2 504 19.0 19.6 20.8 21.4
## 3 1100 41.6 42.7 62.3 64.1
## 4 606 22.9 23.5 85.2 87.6
## 5 320 12.1 12.4 97.3 100.0
## NA 71 2.7 NA 100.0 NARta: No, la mayoría de la gente no considera que los servicios que dan los municipios sean malos.
2.¿Esa creencia es relevante o no? Si, la creencia de que los servicio son malos es relevante.
PARTE 2
library(htmltab)LINKFE='https://es.wikipedia.org/wiki/%C3%8Dndice_global_de_felicidad'LINKFETA='//*[@id="mw-content-text"]/div/table'Felicidad= htmltab ( doc = LINKFE,
which =LINKFETA)Felicidad## № País Puntuación PIB per cápita
## 2 1 Finlandia 7.633 1.305
## 3 2 Noruega 7.594 1.456
## 4 3 Dinamarca 7.555 1.351
## 5 4 Islandia 7.495 1.343
## 6 5 Suiza 7.487 1.420
## 7 6 Países Bajos 7.441 1.361
## 8 7 Canadá 7.328 1.330
## 9 8 Nueva Zelanda 7.324 1.268
## 10 9 Suecia 7.314 1.355
## 11 10 Australia 7.272 1.340
## 12 11 Israel 7.190 1.244
## 13 12 Austria 7.139 1.341
## 14 13 Costa Rica 7.072 1.010
## 15 14 Irlanda 6.977 1.448
## 16 15 Alemania 6.965 1.340
## 17 16 Bélgica 6.927 1.324
## 18 17 Luxemburgo 6.910 1.576
## 19 18 Estados Unidos 6.886 1.398
## 20 19 Reino Unido 6.814 1.301
## 21 20 Emiratos Árabes Unidos 6.774 2.096
## 22 21 República Checa 6.711 1.233
## 23 22 Malta 6.627 1.270
## 24 23 Francia 6.489 1.293
## 25 24 México 6.488 1.038
## 26 25 Chile 6.476 1.131
## 27 26 Taiwán 6.441 1.365
## 28 27 Panamá 6.430 1.112
## 29 28 Brasil 6.419 0.986
## 30 29 Argentina 6.388 1.073
## 31 30 Guatemala 6.382 0.781
## 32 31 Uruguay 6.379 1.093
## 33 32 Qatar 6.374 1.649
## 34 33 Arabia Saudí 6.371 1.379
## 35 34 Singapur 6.343 1.529
## 36 35 Malasia 6.322 1.161
## 37 36 España 6.310 1.251
## 38 37 Colombia 6.260 0.960
## 39 38 Trinidad y Tobago 6.192 1.223
## 40 39 Eslovaquia 6.173 1.210
## 41 40 El Salvador 6.167 0.806
## 42 41 Nicaragua 6.141 0.668
## 43 42 Polonia 6.123 1.176
## 44 43 Bahréin 6.105 1.338
## 45 44 Uzbekistán 6.096 0.719
## 46 45 Kuwait 6.083 1.474
## 47 46 Tailandia 6.072 1.016
## 48 47 Italia 6.000 1.264
## 49 48 Ecuador 5.973 0.889
## 50 49 Belice 5.956 0.807
## 51 50 Lituania 5.952 1.197
## 52 51 Eslovaquia 5.948 1.219
## 53 52 Rumanía 5.945 1.116
## 54 53 Letonia 5.933 1.148
## 55 54 Japón 5.915 1.294
## 56 55 Mauricio 5.891 1.090
## 57 56 Jamaica 5.890 0.819
## 58 57 Corea del Sur 5.875 1.266
## 59 58 Chipre del Norte 5.835 1.229
## 60 59 Rusia 5.810 1.151
## 61 60 Kazajistán 5.790 1.143
## 62 61 Chipre 5.762 1.229
## 63 62 Bolivia 5.752 0.751
## 64 63 Estonia 5.739 1.200
## 65 64 Paraguay 5.681 0.835
## 66 65 Perú 5.663 0.934
## 67 66 Kosovo 5.662 0.855
## 68 67 Moldavia 5.640 0.657
## 69 68 Turkmenistán 5.636 1.016
## 70 69 Hungría 5.620 1.171
## 71 70 Libia 5.566 0.985
## 72 71 Filipinas 5.524 0.775
## 73 72 Honduras 5.504 0.620
## 74 73 Bielorrusia 5.483 1.039
## 75 74 Turquía 5.483 1.148
## 76 75 Pakistán 5.472 0.652
## 77 76 Hong Kong 5.430 1.405
## 78 77 Portugal 5.410 1.188
## 79 78 Serbia 5.398 0.975
## 80 79 Grecia 5.358 1.154
## 81 80 Tayikistán 5.358 0.474
## 82 81 Montenegro 5.347 1.017
## 83 82 Croacia 5.321 1.115
## 84 83 República Dominicana 5.302 0.982
## 85 84 Argelia 5.295 0.979
## 86 85 Marruecos 5.254 0.779
## 87 86 China 5.246 0.989
## 88 87 Azerbaiyán 5.201 1.024
## 89 88 Líbano 5.199 0.965
## 90 89 Macedonia 5.185 0.959
## 91 90 Jordania 5.161 0.822
## 92 91 Nigeria 5.155 0.689
## 93 92 Kirguistán 5.131 0.530
## 94 93 Bosnia y Herzegovina 5.129 0.915
## 95 94 Mongolia 5.125 0.914
## 96 95 Vietnam 5.103 0.715
## 97 96 Indonesia 5.093 0.899
## 98 97 Bután 5.082 0.796
## 99 98 Somalia 4.982 0.000
## 100 99 Camerún 4.975 0.535
## 101 100 Bulgaria 4.933 1.054
## 102 101 Nepal 4.880 0.425
## 103 102 Venezuela 4.806 0.996
## 104 103 Gabón 4.758 1.036
## 105 104 Palestina 4.743 0.642
## 106 105 Sudáfrica 4.724 0.940
## 107 106 Irán 4.707 1.059
## 108 107 Costa de Marfil 4.671 0.541
## 109 108 Ghana 4.657 0.592
## 110 109 Senegal 4.631 0.429
## 111 110 Laos 4.623 0.720
## 112 111 Túnez 4.592 0.900
## 113 112 Albania 4.586 0.916
## 114 113 Sierra Leona 4.571 0.256
## 115 114 República del Congo 4.559 0.682
## 116 115 Bangladesh 4.500 0.532
## 117 116 Sri Lanka 4.471 0.918
## 118 117 Iraq 4.456 1.010
## 119 118 Mali 4.447 0.370
## 120 119 Namibia 4.441 0.874
## 121 120 Camboya 4.433 0.549
## 122 121 Burkina Faso 4.424 0.314
## 123 122 Egipto 4.419 0.885
## 124 123 Mozambique 4.417 0.198
## 125 124 Kenia 4.410 0.493
## 126 125 Zambia 4.377 0.562
## 127 126 Mauritania 4.356 0.557
## 128 127 Etiopía 4.350 0.308
## 129 128 Georgia 4.340 0.853
## 130 129 Armenia 4.321 0.816
## 131 130 Myanmar 4.308 0.682
## 132 131 Chad 4.301 0.358
## 133 132 República Democrática del Congo 4.245 0.069
## 134 133 India 4.190 0.721
## 135 134 Níger 4.166 0.131
## 136 135 Uganda 4.161 0.322
## 137 136 Benín 4.141 0.378
## 138 137 Sudán 4.139 0.605
## 139 138 Ucrania 4.103 0.793
## 140 139 Togo 3.999 0.259
## 141 140 Guinea 3.964 0.344
## 142 141 Lesoto 3.808 0.472
## 143 142 Angola 3.795 0.730
## 144 143 Madagascar 3.774 0.262
## 145 144 Zimbabue 3.692 0.357
## 146 145 Afganistán 3.632 0.332
## 147 146 Botsuana 3.590 1.017
## 148 147 Malawi 3.587 0.186
## 149 148 Haití 3.582 0.315
## 150 149 Liberia 3.495 0.076
## 151 150 Siria 3.462 0.689
## 152 151 Ruanda 3.408 0.332
## 153 152 Yemen 3.355 0.442
## 154 153 Tanzania 3.303 0.455
## 155 154 Sudán del Sur 3.254 0.337
## 156 155 República Centroafricana 3.083 0.024
## 157 156 Burundi 2.905 0.091
## Apoyo social Esperanza de años de vida saludable
## 2 1.592 0.874
## 3 1.582 0.861
## 4 1.590 0.868
## 5 1.644 0.914
## 6 1.549 0.927
## 7 1.488 0.878
## 8 1.532 0.896
## 9 1.601 0.876
## 10 1.501 0.913
## 11 1.573 0.910
## 12 1.433 0.888
## 13 1.504 0.891
## 14 1.459 0.817
## 15 1.583 0.876
## 16 1.474 0.861
## 17 1.483 0.894
## 18 1.520 0.896
## 19 1.471 0.819
## 20 1.559 0.883
## 21 0.776 0.670
## 22 1.489 0.854
## 23 1.525 0.884
## 24 1.466 0.908
## 25 1.252 0.761
## 26 1.331 0.808
## 27 1.436 0.857
## 28 1.438 0.759
## 29 1.474 0.675
## 30 1.468 0.744
## 31 1.268 0.608
## 32 1.459 0.771
## 33 1.303 0.748
## 34 1.331 0.633
## 35 1.451 1.008
## 36 1.258 0.669
## 37 1.538 0.965
## 38 1.439 0.635
## 39 1.492 0.564
## 40 1.537 0.776
## 41 1.231 0.639
## 42 1.319 0.700
## 43 1.448 0.781
## 44 1.366 0.698
## 45 1.584 0.605
## 46 1.301 0.675
## 47 1.417 0.707
## 48 1.501 0.946
## 49 1.330 0.736
## 50 1.101 0.474
## 51 1.527 0.716
## 52 1.506 0.856
## 53 1.219 0.726
## 54 1.454 0.671
## 55 1.462 0.988
## 56 1.387 0.684
## 57 1.493 0.693
## 58 1.204 0.955
## 59 1.211 0.909
## 60 1.479 0.599
## 61 1.516 0.631
## 62 1.191 0.909
## 63 1.223 0.508
## 64 1.532 0.737
## 65 1.522 0.615
## 66 1.249 0.674
## 67 1.230 0.578
## 68 1.301 0.620
## 69 1.533 0.517
## 70 1.401 0.732
## 71 1.350 0.553
## 72 1.312 0.513
## 73 1.205 0.622
## 74 1.498 0.700
## 75 1.380 0.686
## 76 0.810 0.424
## 77 1.290 1.030
## 78 1.429 0.884
## 79 1.369 0.685
## 80 1.202 0.879
## 81 1.179 0.598
## 82 1.279 0.729
## 83 1.161 0.737
## 84 1.441 0.614
## 85 1.154 0.687
## 86 0.797 0.669
## 87 1.142 0.799
## 88 1.161 0.603
## 89 1.166 0.785
## 90 1.239 0.691
## 91 1.265 0.645
## 92 1.172 0.048
## 93 1.416 0.594
## 94 1.078 0.758
## 95 1.517 0.575
## 96 1.365 0.702
## 97 1.215 0.522
## 98 1.335 0.527
## 99 0.712 0.115
## 100 0.891 0.182
## 101 1.515 0.712
## 102 1.228 0.539
## 103 1.469 0.657
## 104 1.164 0.404
## 105 1.217 0.602
## 106 1.410 0.330
## 107 0.771 0.691
## 108 0.872 0.080
## 109 0.896 0.337
## 110 1.117 0.433
## 111 1.034 0.441
## 112 0.906 0.690
## 113 0.817 0.790
## 114 0.813 0.000
## 115 0.811 0.343
## 116 0.850 0.579
## 117 1.314 0.672
## 118 0.971 0.536
## 119 1.233 0.152
## 120 1.281 0.365
## 121 1.088 0.457
## 122 1.097 0.254
## 123 1.025 0.553
## 124 0.902 0.173
## 125 1.048 0.454
## 126 1.047 0.295
## 127 1.245 0.292
## 128 0.950 0.391
## 129 0.592 0.643
## 130 0.990 0.666
## 131 1.174 0.429
## 132 0.907 0.053
## 133 1.136 0.204
## 134 0.747 0.485
## 135 0.867 0.221
## 136 1.090 0.237
## 137 0.372 0.240
## 138 1.240 0.312
## 139 1.413 0.609
## 140 0.474 0.253
## 141 0.792 0.211
## 142 1.215 0.079
## 143 1.125 0.269
## 144 0.908 0.402
## 145 1.094 0.248
## 146 0.537 0.255
## 147 1.174 0.417
## 148 0.541 0.306
## 149 0.714 0.289
## 150 0.858 0.267
## 151 0.382 0.539
## 152 0.896 0.400
## 153 1.073 0.343
## 154 0.991 0.381
## 155 0.608 0.177
## 156 0.000 0.010
## 157 0.627 0.145
## Libertad para tomar decisiones vitales Generosidad
## 2 0.681 0.192
## 3 0.686 0.286
## 4 0.683 0.284
## 5 0.677 0.353
## 6 0.660 0.256
## 7 0.638 0.333
## 8 0.653 0.321
## 9 0.669 0.365
## 10 0.659 0.285
## 11 0.647 0.361
## 12 0.464 0.262
## 13 0.617 0.242
## 14 0.632 0.143
## 15 0.614 0.307
## 16 0.586 0.273
## 17 0.583 0.188
## 18 0.632 0.196
## 19 0.547 0.291
## 20 0.533 0.354
## 21 0.284 0.186
## 22 0.543 0.064
## 23 0.645 0.376
## 24 0.520 0.098
## 25 0.479 0.069
## 26 0.431 0.197
## 27 0.418 0.151
## 28 0.597 0.125
## 29 0.493 0.110
## 30 0.570 0.062
## 31 0.604 0.179
## 32 0.625 0.130
## 33 0.654 0.256
## 34 0.509 0.098
## 35 0.631 0.261
## 36 0.356 0.311
## 37 0.449 0.142
## 38 0.531 0.099
## 39 0.575 0.171
## 40 0.354 0.118
## 41 0.461 0.065
## 42 0.527 0.208
## 43 0.546 0.108
## 44 0.594 0.243
## 45 0.724 0.328
## 46 0.554 0.167
## 47 0.637 0.364
## 48 0.281 0.137
## 49 0.556 0.114
## 50 0.593 0.183
## 51 0.350 0.026
## 52 0.633 0.160
## 53 0.528 0.088
## 54 0.363 0.092
## 55 0.553 0.079
## 56 0.584 0.245
## 57 0.575 0.096
## 58 0.244 0.175
## 59 0.495 0.179
## 60 0.399 0.065
## 61 0.454 0.148
## 62 0.423 0.202
## 63 0.606 0.141
## 64 0.553 0.086
## 65 0.541 0.162
## 66 0.530 0.092
## 67 0.448 0.274
## 68 0.232 0.171
## 69 0.417 0.199
## 70 0.259 0.061
## 71 0.496 0.116
## 72 0.643 0.120
## 73 0.459 0.197
## 74 0.307 0.101
## 75 0.324 0.106
## 76 0.334 0.216
## 77 0.524 0.246
## 78 0.562 0.055
## 79 0.288 0.134
## 80 0.131 0.000
## 81 0.503 0.214
## 82 0.259 0.111
## 83 0.380 0.120
## 84 0.578 0.120
## 85 0.077 0.055
## 86 0.460 0.026
## 87 0.597 0.029
## 88 0.430 0.031
## 89 0.292 0.187
## 90 0.394 0.173
## 91 0.468 0.130
## 92 0.462 0.201
## 93 0.540 0.281
## 94 0.280 0.216
## 95 0.395 0.253
## 96 0.618 0.177
## 97 0.538 0.484
## 98 0.541 0.364
## 99 0.674 0.238
## 100 0.454 0.183
## 101 0.359 0.064
## 102 0.526 0.302
## 103 0.133 0.056
## 104 0.356 0.032
## 105 0.266 0.086
## 106 0.516 0.103
## 107 0.459 0.282
## 108 0.467 0.146
## 109 0.499 0.212
## 110 0.406 0.138
## 111 0.626 0.230
## 112 0.271 0.040
## 113 0.419 0.149
## 114 0.355 0.238
## 115 0.514 0.091
## 116 0.580 0.153
## 117 0.585 0.307
## 118 0.304 0.148
## 119 0.367 0.139
## 120 0.519 0.051
## 121 0.696 0.256
## 122 0.312 0.175
## 123 0.312 0.092
## 124 0.531 0.206
## 125 0.504 0.352
## 126 0.503 0.221
## 127 0.129 0.134
## 128 0.452 0.220
## 129 0.375 0.038
## 130 0.260 0.077
## 131 0.580 0.598
## 132 0.189 0.181
## 133 0.312 0.197
## 134 0.539 0.172
## 135 0.390 0.175
## 136 0.450 0.259
## 137 0.440 0.163
## 138 0.016 0.134
## 139 0.163 0.187
## 140 0.434 0.158
## 141 0.394 0.185
## 142 0.423 0.116
## 143 0.000 0.079
## 144 0.221 0.155
## 145 0.406 0.132
## 146 0.085 0.191
## 147 0.557 0.042
## 148 0.531 0.210
## 149 0.025 0.392
## 150 0.419 0.206
## 151 0.088 0.376
## 152 0.636 0.200
## 153 0.244 0.083
## 154 0.481 0.270
## 155 0.112 0.224
## 156 0.305 0.218
## 157 0.065 0.149
## Percepción de la corrupción
## 2 0.393
## 3 0.340
## 4 0.408
## 5 0.138
## 6 0.357
## 7 0.295
## 8 0.291
## 9 0.389
## 10 0.383
## 11 0.302
## 12 0.082
## 13 0.224
## 14 0.101
## 15 0.306
## 16 0.280
## 17 0.240
## 18 0.321
## 19 0.133
## 20 0.272
## 21 0.116
## 22 0.034
## 23 0.142
## 24 0.176
## 25 0.095
## 26 0.061
## 27 0.078
## 28 0.063
## 29 0.088
## 30 0.054
## 31 0.071
## 32 0.155
## 33 0.171
## 34 0.127
## 35 0.457
## 36 0.059
## 37 0.074
## 38 0.039
## 39 0.019
## 40 0.014
## 41 0.082
## 42 0.128
## 43 0.064
## 44 0.123
## 45 0.259
## 46 0.106
## 47 0.029
## 48 0.028
## 49 0.120
## 50 0.089
## 51 0.006
## 52 0.051
## 53 0.001
## 54 0.066
## 55 0.150
## 56 0.050
## 57 0.031
## 58 0.051
## 59 0.154
## 60 0.025
## 61 0.121
## 62 0.035
## 63 0.054
## 64 0.174
## 65 0.074
## 66 0.034
## 67 0.023
## 68 0.000
## 69 0.037
## 70 0.022
## 71 0.148
## 72 0.105
## 73 0.074
## 74 0.154
## 75 0.109
## 76 0.113
## 77 0.291
## 78 0.017
## 79 0.043
## 80 0.044
## 81 0.136
## 82 0.081
## 83 0.039
## 84 0.106
## 85 0.135
## 86 0.074
## 87 0.103
## 88 0.176
## 89 0.034
## 90 0.052
## 91 0.134
## 92 0.032
## 93 0.035
## 94 0.000
## 95 0.032
## 96 0.079
## 97 0.018
## 98 0.171
## 99 0.282
## 100 0.043
## 101 0.009
## 102 0.078
## 103 0.052
## 104 0.052
## 105 0.076
## 106 0.056
## 107 0.129
## 108 0.103
## 109 0.029
## 110 0.082
## 111 0.174
## 112 0.063
## 113 0.032
## 114 0.053
## 115 0.077
## 116 0.144
## 117 0.050
## 118 0.095
## 119 0.056
## 120 0.064
## 121 0.065
## 122 0.128
## 123 0.107
## 124 0.158
## 125 0.055
## 126 0.082
## 127 0.093
## 128 0.146
## 129 0.215
## 130 0.028
## 131 0.178
## 132 0.060
## 133 0.052
## 134 0.093
## 135 0.099
## 136 0.061
## 137 0.067
## 138 0.082
## 139 0.011
## 140 0.101
## 141 0.094
## 142 0.112
## 143 0.061
## 144 0.049
## 145 0.099
## 146 0.036
## 147 0.092
## 148 0.080
## 149 0.104
## 150 0.030
## 151 0.144
## 152 0.444
## 153 0.064
## 154 0.097
## 155 0.106
## 156 0.038
## 157 0.076str(Felicidad)## 'data.frame': 156 obs. of 9 variables:
## $ № : chr "1" "2" "3" "4" ...
## $ País : chr "Finlandia" "Noruega" "Dinamarca" "Islandia" ...
## $ Puntuación : chr "7.633" "7.594" "7.555" "7.495" ...
## $ PIB per cápita : chr "1.305" "1.456" "1.351" "1.343" ...
## $ Apoyo social : chr "1.592" "1.582" "1.590" "1.644" ...
## $ Esperanza de años de vida saludable : chr "0.874" "0.861" "0.868" "0.914" ...
## $ Libertad para tomar decisiones vitales: chr "0.681" "0.686" "0.683" "0.677" ...
## $ Generosidad : chr "0.192" "0.286" "0.284" "0.353" ...
## $ Percepción de la corrupción : chr "0.393" "0.340" "0.408" "0.138" ...Felicidad$Puntuación=as.numeric(Felicidad$Puntuación)str(Felicidad)## 'data.frame': 156 obs. of 9 variables:
## $ № : chr "1" "2" "3" "4" ...
## $ País : chr "Finlandia" "Noruega" "Dinamarca" "Islandia" ...
## $ Puntuación : num 7.63 7.59 7.55 7.5 7.49 ...
## $ PIB per cápita : chr "1.305" "1.456" "1.351" "1.343" ...
## $ Apoyo social : chr "1.592" "1.582" "1.590" "1.644" ...
## $ Esperanza de años de vida saludable : chr "0.874" "0.861" "0.868" "0.914" ...
## $ Libertad para tomar decisiones vitales: chr "0.681" "0.686" "0.683" "0.677" ...
## $ Generosidad : chr "0.192" "0.286" "0.284" "0.353" ...
## $ Percepción de la corrupción : chr "0.393" "0.340" "0.408" "0.138" ...library(ggplot2)base = ggplot(Felicidad,aes(x=Felicidad$Puntuación))histNum= base + geom_histogram(bins=7) histNum 
library(DescTools)Skew(Felicidad$Puntuación, conf.level = 0.05)## skew lwr.ci upr.ci
## 0.014941126 0.008777965 0.021318079La puntuación de la felicidad se distribuye asimetricamente?
Rta: Existe una asimetría positiva que no es significativa
summary(Felicidad$Puntuación)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 2.905 4.454 5.378 5.376 6.168 7.633basef=ggplot(Felicidad,aes(x=Puntuación))basef + geom_histogram(bins=10)
Skew(Felicidad$Puntuación,conf.level = 0.05)## skew lwr.ci upr.ci
## 0.01494113 0.02145818 0.03705845No es muy robusto
3.¿Puedes concluir que hay mucha desigualdad en este indice?
Gini(Felicidad$Puntuación)## [1] 0.1196207No hay mucha desigualdad en este indice