PRÁCTICA DIRIGIDA 8
http://rpubs.com/Brayan_Milla/533299
library(htmltab)
linkPage='https://es.wikipedia.org/wiki/%C3%8Dndice_de_democracia'
linkTabla='//*[@id="mw-content-text"]/div/table[2]'
Democracia = htmltab(doc = linkPage,
which =linkTabla)names(Democracia)## [1] "Puesto" "País"
## [3] "Puntuación" "Proceso electoraly pluralismo"
## [5] "Funcionamientodel gobierno" "Participaciónpolítica"
## [7] "Culturapolítica" "Derechosciviles"
## [9] "Categoría"str(Democracia)## 'data.frame': 167 obs. of 9 variables:
## $ Puesto : chr "1" "2" "3" "4" ...
## $ País : chr "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
## $ Puntuación : chr "9.87" "9.58" "9.39" "9.26" ...
## $ Proceso electoraly pluralismo: chr "10.00" "10.00" "9.58" "10.00" ...
## $ Funcionamientodel gobierno : chr "9.64" "9.29" "9.64" "9.29" ...
## $ Participaciónpolítica : chr "10.00" "8.89" "8.33" "8.89" ...
## $ Culturapolítica : chr "10.00" "10.00" "10.00" "8.13" ...
## $ Derechosciviles : chr "9.71" "9.71" "9.41" "10.00" ...
## $ Categoría : chr "Democracia plena" "Democracia plena" "Democracia plena" "Democracia plena" ...Democracia## Puesto País Puntuación
## 2 1 Noruega 9.87
## 3 2 Islandia 9.58
## 4 3 Suecia 9.39
## 5 4 Nueva Zelanda 9.26
## 6 5 Dinamarca 9.22
## 7 6 Canadá 9.15
## 8 6 Irlanda 9.15
## 9 8 Finlandia 9.14
## 10 9 Australia 9.09
## 11 10 Suiza 9.03
## 12 11 Países Bajos 8.89
## 13 12 Luxemburgo 8.81
## 14 13 Alemania 8.68
## 15 14 Reino Unido 8.53
## 16 15 Uruguay 8.38
## 17 16 Austria 8.29
## 18 17 Mauricio 8.22
## 19 18 Malta 8.21
## 20 19 España 8.08
## 21 20 Costa Rica 8.07
## 22 21 Corea del Sur 8.00
## 23 22 Japón 7.99
## 24 23 Chile 7.97
## 25 23 Estonia 7.97
## 26 25 Estados Unidos 7.96
## 27 26 Cabo Verde 7.88
## 28 27 Portugal 7.84
## 29 28 Botsuana 7.81
## 30 29 Francia 7.80
## 31 30 Israel 7.79
## 32 31 Bélgica 7.78
## 33 32 República de China 7.73
## 34 33 Italia 7.71
## 35 34 República Checa 7.69
## 36 35 Chipre 7.59
## 37 36 Eslovenia 7.50
## 38 36 Lituania 7.50
## 39 38 Letonia 7.38
## 40 39 Grecia 7.29
## 41 40 Sudáfrica 7.24
## 42 41 India 7.23
## 43 42 Timor Oriental 7.19
## 44 43 Trinidad y Tobago 7.16
## 45 44 Eslovaquia 7.10
## 46 45 Panamá 7.05
## 47 46 Bulgaria 7.03
## 48 47 Argentina 7.02
## 49 47 Jamaica 7.02
## 50 49 Surinam 6.98
## 51 50 Brasil 6.97
## 52 51 Colombia 6.96
## 53 52 Malasia 6.88
## 54 53 Filipinas 6.71
## 55 54 Polonia 6.67
## 56 54 Guyana 6.67
## 57 56 Lesoto 6.64
## 58 57 Ghana 6.63
## 59 57 Hungría 6.63
## 60 59 Perú 6.60
## 61 60 Croacia 6.57
## 62 61 República Dominicana 6.54
## 63 62 Mongolia 6.50
## 64 63 Serbia 6.41
## 65 63 Túnez 6.41
## 66 65 Indonesia 6.39
## 67 66 Singapur 6.38
## 68 66 Rumania 6.38
## 69 68 Ecuador 6.27
## 70 69 Namibia 6.25
## 71 70 Paraguay 6.24
## 72 71 Sri Lanka 6.19
## 73 71 México 6.19
## 74 73 Hong Kong 6.15
## 75 73 Senegal 6.15
## 76 75 Papúa Nueva Guinea 6.03
## 77 76 Albania 5.98
## 78 77 El Salvador 5.96
## 79 78 Macedonia del Norte 5.87
## 80 79 Moldavia 5.85
## 81 79 Fiyi 5.85
## 82 81 Montenegro 5.74
## 83 81 Benín 5.74
## 84 83 Bolivia 5.70
## 85 84 Ucrania 5.69
## 86 85 Honduras 5.63
## 87 86 Zambia 5.61
## 88 87 Guatemala 5.60
## 89 88 Bangladés 5.57
## 90 89 Georgia 5.50
## 91 90 Malaui 5.49
## 92 91 Tanzania 5.41
## 93 91 Malí 5.41
## 94 93 Liberia 5.35
## 95 94 Bután 5.30
## 96 95 Madagascar 5.22
## 97 96 Uganda 5.20
## 98 97 Nepal 5.18
## 99 98 Kenia 5.11
## 100 98 Kirguistán 5.11
## 101 100 Marruecos 4.99
## 102 101 Bosnia y Herzegovina 4.98
## 103 102 Haití 4.91
## 104 103 Armenia 4.79
## 105 104 Burkina Faso 4.75
## 106 105 Sierra Leona 4.66
## 107 106 Líbano 4.63
## 108 106 Tailandia 4.63
## 109 108 Nigeria 4.44
## 110 109 Palestina 4.39
## 111 110 Turquía 4.37
## 112 111 Gambia 4.31
## 113 112 Pakistán 4.17
## 114 113 Costa de Marfil 4.15
## 115 114 Irak 4.06
## 116 115 Jordania 3.93
## 117 116 Mozambique 3.85
## 118 116 Kuwait 3.85
## 119 118 Birmania 3.83
## 120 119 Mauritania 3.82
## 121 120 Níger 3.76
## 122 121 Comoras 3.71
## 123 122 Nicaragua 3.63
## 124 123 Angola 3.62
## 125 124 Gabón 3.61
## 126 125 Camboya 3.59
## 127 126 Argelia 3.50
## 128 127 Egipto 3.36
## 129 128 Etiopía 3.35
## 130 128 Ruanda 3.35
## 131 130 China 3.32
## 132 131 República del Congo 3.31
## 133 132 Camerún 3.28
## 134 133 Catar 3.19
## 135 134 Zimbabue 3.16
## 136 134 Venezuela 3.16
## 137 136 Guinea 3.14
## 138 137 Bielorrusia 3.13
## 139 138 Togo 3.10
## 140 139 Vietnam 3.08
## 141 140 Omán 3.04
## 142 141 Suazilandia 3.03
## 143 142 Cuba 3.00
## 144 143 Afganistán 2.97
## 145 144 Kazajistán 2.94
## 146 144 Rusia 2.94
## 147 146 Yibuti 2.87
## 148 147 Emiratos Árabes Unidos 2.76
## 149 148 Baréin 2.71
## 150 149 Azerbaiyán 2.65
## 151 150 Irán 2.45
## 152 151 Eritrea 2.37
## 153 151 Laos 2.37
## 154 153 Burundi 2.33
## 155 154 Libia 2.19
## 156 155 Sudán 2.15
## 157 156 Uzbekistán 2.01
## 158 157 Guinea-Bisáu 1.98
## 159 158 Yemen 1.95
## 160 159 Arabia Saudita 1.93
## 161 159 Tayikistán 1.93
## 162 161 Guinea Ecuatorial 1.92
## 163 162 Turkmenistán 1.72
## 164 163 Chad 1.61
## 165 164 República Centroafricana 1.52
## 166 165 R. Democrática del Congo 1.49
## 167 166 Siria 1.43
## 168 167 Corea del Norte 1.08
## Proceso electoraly pluralismo Funcionamientodel gobierno
## 2 10.00 9.64
## 3 10.00 9.29
## 4 9.58 9.64
## 5 10.00 9.29
## 6 10.00 9.29
## 7 9.58 9.64
## 8 9.58 7.86
## 9 10.00 8.93
## 10 10.00 8.93
## 11 9.58 9.29
## 12 9.58 9.29
## 13 10.00 8.93
## 14 9.58 8.57
## 15 9.58 7.50
## 16 10.00 8.57
## 17 9.58 7.86
## 18 9.17 8.21
## 19 9.17 8.21
## 20 9.17 7.14
## 21 9.58 7.50
## 22 9.17 7.86
## 23 8.75 8.21
## 24 9.58 8.57
## 25 9.58 8.21
## 26 9.17 7.14
## 27 9.17 7.86
## 28 9.58 7.50
## 29 9.17 7.14
## 30 9.58 7.50
## 31 9.17 7.50
## 32 9.58 8.93
## 33 9.58 8.21
## 34 9.58 6.07
## 35 9.58 6.79
## 36 9.17 6.43
## 37 9.58 6.79
## 38 9.58 6.43
## 39 9.58 6.07
## 40 9.58 5.36
## 41 7.42 7.50
## 42 9.17 6.79
## 43 9.08 6.79
## 44 9.58 7.14
## 45 9.58 6.79
## 46 9.58 6.07
## 47 9.17 6.43
## 48 9.17 5.36
## 49 8.75 7.14
## 50 9.17 6.43
## 51 9.58 5.36
## 52 9.17 6.79
## 53 7.75 7.86
## 54 9.17 5.71
## 55 9.17 6.07
## 56 9.17 5.71
## 57 9.17 5.00
## 58 8.33 5.71
## 59 8.75 6.07
## 60 9.17 5.00
## 61 9.17 6.07
## 62 9.17 5.36
## 63 9.17 5.71
## 64 8.25 5.36
## 65 6.42 5.71
## 66 6.92 7.14
## 67 4.33 7.86
## 68 9.17 5.71
## 69 8.75 5.36
## 70 5.67 5.36
## 71 8.75 5.71
## 72 7.83 5.71
## 73 8.33 6.07
## 74 3.08 6.07
## 75 7.50 6.07
## 76 6.92 6.07
## 77 7.00 4.71
## 78 9.17 4.29
## 79 6.50 5.36
## 80 7.08 4.64
## 81 6.58 5.36
## 82 6.08 5.36
## 83 6.50 5.71
## 84 7.50 4.64
## 85 6.17 3.21
## 86 8.50 4.64
## 87 6.17 4.64
## 88 7.92 5.36
## 89 7.83 5.07
## 90 7.83 3.57
## 91 6.58 4.29
## 92 7.00 5.00
## 93 7.42 3.93
## 94 7.42 2.57
## 95 8.75 6.79
## 96 6.08 3.57
## 97 5.25 3.57
## 98 4.33 5.36
## 99 3.50 5.36
## 100 6.58 2.93
## 101 5.25 4.64
## 102 6.50 2.93
## 103 5.58 2.93
## 104 5.67 4.64
## 105 4.42 4.29
## 106 6.58 1.86
## 107 3.92 2.21
## 108 3.00 4.29
## 109 6.08 4.64
## 110 3.83 2.14
## 111 4.50 5.00
## 112 4.48 4.29
## 113 6.08 5.36
## 114 4.83 2.86
## 115 4.75 0.07
## 116 3.58 4.29
## 117 3.58 2.14
## 118 3.17 4.29
## 119 3.67 3.93
## 120 3.00 3.57
## 121 5.25 1.14
## 122 4.33 2.21
## 123 2.67 1.86
## 124 1.75 2.86
## 125 2.58 2.21
## 126 1.33 5.00
## 127 2.58 2.21
## 128 3.58 3.21
## 129 0.00 3.57
## 130 1.67 5.00
## 131 0.00 5.00
## 132 3.17 2.50
## 133 3.17 2.86
## 134 0.00 4.29
## 135 0.50 2.00
## 136 1.67 1.79
## 137 3.50 0.43
## 138 0.92 2.86
## 139 3.17 0.79
## 140 0.00 3.21
## 141 0.00 3.93
## 142 0.92 2.86
## 143 1.08 3.57
## 144 2.92 1.14
## 145 0.50 2.14
## 146 2.17 1.79
## 147 0.42 1.79
## 148 0.00 3.93
## 149 0.83 3.21
## 150 0.50 2.14
## 151 0.00 3.21
## 152 0.00 2.14
## 153 0.83 2.86
## 154 0.00 0.43
## 155 1.00 0.36
## 156 0.00 1.79
## 157 0.08 1.86
## 158 1.67 0.00
## 159 0.00 0.00
## 160 0.00 2.86
## 161 0.08 0.79
## 162 0.00 0.43
## 163 0.00 0.79
## 164 0.00 0.00
## 165 2.25 0.00
## 166 0.50 0.71
## 167 0.00 0.00
## 168 0.00 2.50
## Participaciónpolítica Culturapolítica Derechosciviles
## 2 10.00 10.00 9.71
## 3 8.89 10.00 9.71
## 4 8.33 10.00 9.41
## 5 8.89 8.13 10.00
## 6 8.33 9.38 9.12
## 7 7.78 8.75 10.00
## 8 8.33 10.00 10.00
## 9 8.33 8.75 9.71
## 10 7.78 8.75 10.00
## 11 7.78 9.38 9.12
## 12 8.33 8.13 9.12
## 13 6.67 8.75 9.71
## 14 8.33 7.50 9.41
## 15 8.33 8.13 9.12
## 16 6.11 7.50 9.71
## 17 8.33 6.88 9.12
## 18 5.56 8.75 9.41
## 19 6.11 8.75 8.82
## 20 7.78 7.50 8.82
## 21 6.67 7.50 9.12
## 22 7.22 7.50 8.24
## 23 6.67 7.50 8.82
## 24 4.44 8.13 9.12
## 25 6.67 6.88 8.53
## 26 7.78 7.50 8.24
## 27 6.67 6.88 8.82
## 28 6.11 6.88 9.12
## 29 6.11 7.50 9.12
## 30 7.78 5.63 8.53
## 31 8.89 7.50 5.88
## 32 5.00 6.88 8.53
## 33 6.11 5.63 9.12
## 34 7.78 6.88 8.24
## 35 6.67 6.88 8.53
## 36 6.67 6.88 8.82
## 37 6.67 6.25 8.24
## 38 6.11 6.25 9.12
## 39 5.56 6.88 8.82
## 40 6.11 6.88 8.53
## 41 8.33 5.00 7.94
## 42 7.22 5.63 7.35
## 43 5.56 6.88 7.65
## 44 6.11 5.63 7.35
## 45 5.56 5.63 7.94
## 46 6.67 5.00 7.94
## 47 7.22 4.38 7.94
## 48 6.11 6.25 8.24
## 49 4.44 6.25 8.53
## 50 6.67 5.00 7.65
## 51 6.67 5.00 8.24
## 52 5.00 5.63 8.24
## 53 6.67 6.25 5.88
## 54 7.22 4.38 7.06
## 55 6.11 4.38 7.65
## 56 6.11 5.00 7.35
## 57 6.67 5.63 6.76
## 58 6.67 6.25 6.18
## 59 5.00 6.25 7.06
## 60 5.56 5.63 7.65
## 61 5.56 5.00 7.06
## 62 6.11 5.00 7.06
## 63 5.56 5.00 7.06
## 64 6.11 5.00 7.35
## 65 7.78 6.25 5.88
## 66 6.67 5.63 5.59
## 67 6.11 6.25 7.35
## 68 5.00 4.38 7.65
## 69 6.11 4.38 7.65
## 70 6.67 5.63 7.94
## 71 5.00 4.38 7.35
## 72 5.00 6.25 6.18
## 73 7.22 3.13 6.18
## 74 5.56 7.50 8.53
## 75 4.44 6.25 6.47
## 76 3.89 5.63 7.65
## 77 5.56 5.00 7.65
## 78 5.56 3.75 7.06
## 79 6.67 3.75 7.06
## 80 6.11 4.38 7.06
## 81 6.11 5.63 5.59
## 82 6.11 4.38 6.76
## 83 5.00 5.63 5.88
## 84 5.56 3.75 7.06
## 85 6.67 6.25 6.18
## 86 4.44 4.38 6.18
## 87 3.89 6.88 6.47
## 88 3.89 4.38 6.47
## 89 5.56 4.38 5.00
## 90 6.11 4.38 5.00
## 91 4.44 6.25 5.88
## 92 5.00 5.63 4.41
## 93 3.89 5.63 6.18
## 94 5.56 5.63 5.59
## 95 2.78 4.38 3.82
## 96 6.11 5.63 4.71
## 97 4.44 6.88 5.88
## 98 5.00 5.63 5.59
## 99 6.67 5.63 4.41
## 100 6.67 4.38 5.00
## 101 5.00 5.63 4.41
## 102 5.56 3.75 6.18
## 103 3.89 6.25 5.88
## 104 5.56 2.50 5.59
## 105 4.44 5.63 5.00
## 106 3.33 6.25 5.29
## 107 6.67 5.63 4.71
## 108 5.00 5.00 5.88
## 109 3.33 3.75 4.41
## 110 7.78 4.38 3.82
## 111 5.00 5.00 2.35
## 112 3.33 5.63 3.82
## 113 2.22 2.50 4.71
## 114 3.33 5.63 4.12
## 115 6.67 5.00 3.82
## 116 3.89 4.38 3.53
## 117 5.00 5.00 3.53
## 118 3.89 4.38 3.53
## 119 3.89 5.63 2.06
## 120 5.00 3.13 4.41
## 121 3.33 4.38 4.71
## 122 4.44 3.75 3.82
## 123 3.89 5.63 4.12
## 124 5.56 5.00 2.94
## 125 4.44 5.00 3.82
## 126 2.78 5.63 3.24
## 127 3.89 5.00 4.12
## 128 3.33 3.75 2.94
## 129 5.56 5.00 2.65
## 130 2.78 4.38 2.94
## 131 3.89 6.25 1.47
## 132 3.89 3.75 3.24
## 133 3.33 4.38 2.65
## 134 2.22 5.63 3.82
## 135 4.44 5.63 3.24
## 136 4.44 4.38 3.53
## 137 4.44 4.38 2.94
## 138 3.89 5.63 2.35
## 139 3.33 5.00 3.24
## 140 3.89 5.63 2.65
## 141 2.78 4.38 4.12
## 142 2.22 5.63 3.53
## 143 3.33 4.38 2.65
## 144 4.44 2.50 3.82
## 145 4.44 4.38 3.24
## 146 5.00 2.50 3.24
## 147 3.89 5.63 2.65
## 148 2.22 5.00 2.65
## 149 2.78 4.38 2.35
## 150 3.33 3.75 3.53
## 151 4.44 3.13 1.47
## 152 1.67 6.88 1.18
## 153 1.67 5.00 1.47
## 154 3.89 5.00 2.35
## 155 1.67 5.00 2.94
## 156 2.78 5.00 1.18
## 157 2.22 5.00 0.88
## 158 2.78 3.13 2.35
## 159 3.89 5.00 0.88
## 160 2.22 3.13 1.47
## 161 1.67 6.25 0.88
## 162 3.33 4.38 1.47
## 163 2.22 5.00 0.59
## 164 1.67 3.75 2.65
## 165 1.11 1.88 2.35
## 166 2.22 3.13 0.88
## 167 2.78 4.38 0.00
## 168 1.67 1.25 0.00
## Categoría
## 2 Democracia plena
## 3 Democracia plena
## 4 Democracia plena
## 5 Democracia plena
## 6 Democracia plena
## 7 Democracia plena
## 8 Democracia plena
## 9 Democracia plena
## 10 Democracia plena
## 11 Democracia plena
## 12 Democracia plena
## 13 Democracia plena
## 14 Democracia plena
## 15 Democracia plena
## 16 Democracia plena
## 17 Democracia plena
## 18 Democracia plena
## 19 Democracia plena
## 20 Democracia plena
## 21 Democracia plena
## 22 Democracia imperfecta
## 23 Democracia imperfecta
## 24 Democracia imperfecta
## 25 Democracia imperfecta
## 26 Democracia imperfecta
## 27 Democracia imperfecta
## 28 Democracia imperfecta
## 29 Democracia imperfecta
## 30 Democracia imperfecta
## 31 Democracia imperfecta
## 32 Democracia imperfecta
## 33 Democracia imperfecta
## 34 Democracia imperfecta
## 35 Democracia imperfecta
## 36 Democracia imperfecta
## 37 Democracia imperfecta
## 38 Democracia imperfecta
## 39 Democracia imperfecta
## 40 Democracia imperfecta
## 41 Democracia imperfecta
## 42 Democracia imperfecta
## 43 Democracia imperfecta
## 44 Democracia imperfecta
## 45 Democracia imperfecta
## 46 Democracia imperfecta
## 47 Democracia imperfecta
## 48 Democracia imperfecta
## 49 Democracia imperfecta
## 50 Democracia imperfecta
## 51 Democracia imperfecta
## 52 Democracia imperfecta
## 53 Democracia imperfecta
## 54 Democracia imperfecta
## 55 Democracia imperfecta
## 56 Democracia imperfecta
## 57 Democracia imperfecta
## 58 Democracia imperfecta
## 59 Democracia imperfecta
## 60 Democracia imperfecta
## 61 Democracia imperfecta
## 62 Democracia imperfecta
## 63 Democracia imperfecta
## 64 Democracia imperfecta
## 65 Democracia imperfecta
## 66 Democracia imperfecta
## 67 Democracia imperfecta
## 68 Democracia imperfecta
## 69 Democracia imperfecta
## 70 Democracia imperfecta
## 71 Democracia imperfecta
## 72 Democracia imperfecta
## 73 Democracia imperfecta
## 74 Democracia imperfecta
## 75 Democracia imperfecta
## 76 Democracia imperfecta
## 77 Régimen híbrido
## 78 Régimen híbrido
## 79 Régimen híbrido
## 80 Régimen híbrido
## 81 Régimen híbrido
## 82 Régimen híbrido
## 83 Régimen híbrido
## 84 Régimen híbrido
## 85 Régimen híbrido
## 86 Régimen híbrido
## 87 Régimen híbrido
## 88 Régimen híbrido
## 89 Régimen híbrido
## 90 Régimen híbrido
## 91 Régimen híbrido
## 92 Régimen híbrido
## 93 Régimen híbrido
## 94 Régimen híbrido
## 95 Régimen híbrido
## 96 Régimen híbrido
## 97 Régimen híbrido
## 98 Régimen híbrido
## 99 Régimen híbrido
## 100 Régimen híbrido
## 101 Régimen híbrido
## 102 Régimen híbrido
## 103 Régimen híbrido
## 104 Régimen híbrido
## 105 Régimen híbrido
## 106 Régimen híbrido
## 107 Régimen híbrido
## 108 Régimen híbrido
## 109 Régimen híbrido
## 110 Régimen híbrido
## 111 Régimen híbrido
## 112 Régimen híbrido
## 113 Régimen híbrido
## 114 Régimen híbrido
## 115 Régimen híbrido
## 116 Régimen autoritario
## 117 Régimen autoritario
## 118 Régimen autoritario
## 119 Régimen autoritario
## 120 Régimen autoritario
## 121 Régimen autoritario
## 122 Régimen autoritario
## 123 Régimen autoritario
## 124 Régimen autoritario
## 125 Régimen autoritario
## 126 Régimen autoritario
## 127 Régimen autoritario
## 128 Régimen autoritario
## 129 Régimen autoritario
## 130 Régimen autoritario
## 131 Régimen autoritario
## 132 Régimen autoritario
## 133 Régimen autoritario
## 134 Régimen autoritario
## 135 Régimen autoritario
## 136 Régimen autoritario
## 137 Régimen autoritario
## 138 Régimen autoritario
## 139 Régimen autoritario
## 140 Régimen autoritario
## 141 Régimen autoritario
## 142 Régimen autoritario
## 143 Régimen autoritario
## 144 Régimen autoritario
## 145 Régimen autoritario
## 146 Régimen autoritario
## 147 Régimen autoritario
## 148 Régimen autoritario
## 149 Régimen autoritario
## 150 Régimen autoritario
## 151 Régimen autoritario
## 152 Régimen autoritario
## 153 Régimen autoritario
## 154 Régimen autoritario
## 155 Régimen autoritario
## 156 Régimen autoritario
## 157 Régimen autoritario
## 158 Régimen autoritario
## 159 Régimen autoritario
## 160 Régimen autoritario
## 161 Régimen autoritario
## 162 Régimen autoritario
## 163 Régimen autoritario
## 164 Régimen autoritario
## 165 Régimen autoritario
## 166 Régimen autoritario
## 167 Régimen autoritario
## 168 Régimen autoritarioDemocracia$Puntuación=as.numeric(Democracia$Puntuación)Parte 1. Exploración Gráfica NOTA: Las variables numéricas no requieren tablas de frecuencia para ser exploradas. El grafico inicial a usar es el histograma:
library(ggplot2)
base1=ggplot(Democracia,aes(x=Puntuación))
histNum= base1 + geom_histogram(bins=50)
histNum 
La exploración numérica nos debe sugerir:
Si la media es representativo o no. Si hay asimetría, y hacia donde se concentran los datos. Si hay valores atípicos. Del gráfico podemos decir que, como no es simétrico, informar la media de accidentes no será muy representativa (la mediana será la mejor opción); por otro lado, como la asimetría nos muestra que los accidentes son en su mayoría pocos. Hay un numero de accidentes que se aleja hacia valores altos, pero no estamos seguros si está tan lejos del ‘centro’ para ser atípico.
Los atípicos se ven claramente en un boxplot:
base2=ggplot(Democracia,aes(y=Puntuación))
box=base2 + geom_boxplot() + coord_flip()
box 
El punto a la derecha confirma que hay atípicos.
Para ser más preciso en nuestra exploración, debemos calcular diversos indicadores estadísticos.
Parte 2. Exploración con Estadígrafos Los estadigrafos aparecen rapidamente así:
summary(Democracia$Puntuación)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.080 3.545 5.690 5.479 7.175 9.870Podriamos graficarlos en el boxplot:
library(ggplot2)
estadigrafos=round(as.vector(summary(Democracia$Puntuación)),2)
box + scale_y_continuous(breaks = estadigrafos) 
library(DescTools)
Skew(Democracia$Puntuación,conf.level = 0.05)## skew lwr.ci upr.ci
## -0.07107195 -0.07767865 -0.06334448La distancia intercuartilica es importante saberla:
IQR(Democracia$Puntuación)## [1] 3.63Es decir, entre el primer y tercer cuartil hay sólo 8 valores; asi, el 50% de los valores centrales varian en 8 valores. Así, podemos proponer que un atípico es aquel que está a una distancia lejana de estos valores centrales. Este umbral, tradicionalmente se calcula así:
q3=as.numeric(summary(Democracia$Puntuación)[5])
umbral= q3+1.5*IQR(Democracia$Puntuación)
umbral## [1] 12.62Osea, en teoria, todo valor mayor que 25 será considerado un atípico:
Democracia[Democracia$Puntuación>umbral,]## [1] Puesto País
## [3] Puntuación Proceso electoraly pluralismo
## [5] Funcionamientodel gobierno Participaciónpolítica
## [7] Culturapolítica Derechosciviles
## [9] Categoría
## <0 rows> (or 0-length row.names)Los accidentes pueden ser representados en el Gini:
Gini(Democracia$Puntuación,conf.level = 0.95)## gini lwr.ci upr.ci
## 0.2316285 0.2101804 0.2568738Si el Gini es 0, todas las empresas causan la misma cantidad de accidentes; si fuera 1, una sola empresa causa todos los accidentes.
Normalmente al Gini le acompaña la curva de Lorenz:
library(gglorenz)## Registered S3 methods overwritten by 'ineq':
## method from
## plot.Lc DescTools
## lines.Lc DescToolsbase1 + gglorenz::stat_lorenz(color='red') +
geom_abline(linetype = "dashed") + coord_fixed() +
labs(x = "% Democracia de los Países",
y = "% Puntuación de la democracia",
title = "Relación país / puntuación de democracia",
caption = "Fuente: Wikipedia")