PRACTICA CALIFICADA 3: Exploración numérica Extrayendo la data de wikipedia
PARTE 1
library(htmltab)
datademo= htmltab(doc = "https://es.wikipedia.org/wiki/%C3%8Dndice_de_democracia",
which ='//*[@id="mw-content-text"]/div/table[2]',
encoding = "UTF-8")
datademo## 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 autoritarionames(datademo)## [1] "Puesto" "País"
## [3] "Puntuación" "Proceso electoraly pluralismo"
## [5] "Funcionamientodel gobierno" "Participaciónpolítica"
## [7] "Culturapolítica" "Derechosciviles"
## [9] "Categoría"datademo=datademo[c(2,3)]
names(datademo)## [1] "País" "Puntuación"str(datademo)## 'data.frame': 167 obs. of 2 variables:
## $ País : chr "Noruega" " Islandia" "Suecia" " Nueva Zelanda" ...
## $ Puntuación: chr "9.87" "9.58" "9.39" "9.26" ...Son caracteres. Se debe pasar a numérico
datademo$Puntuación=as.numeric(datademo$Puntuación)Al ser numerica, se procede con el analisis
PARTE 2
Realice un histograma e interprete
library(ggplot2)
base1=ggplot(datademo,aes(x=Puntuación))
histNum= base1 + geom_histogram(bins=10)
histNum 
Podemos observar en el gráfico que es simétrico, la media seria la mejor opción
Boxplot: ver los atipicos
base2=ggplot(datademo,aes(y=Puntuación))
box=base2 + geom_boxplot() + coord_flip()
box 
summary(datademo$Puntuación)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.080 3.545 5.690 5.479 7.175 9.870library(ggplot2)
estadigrafos=round(as.vector(summary(datademo$Puntuación)),2)
box + scale_y_continuous(breaks = estadigrafos) 
La mediana es mayor que la media. Hay una pequeña tendencia a la asimetria negativa. No es notoria*
library(DescTools)
Skew(datademo$Puntuación,conf.level = 0.05)## skew lwr.ci upr.ci
## -0.07107195 -0.07041138 -0.05650116Halle la distancia intercuartilica y calcule con ella el umbral de atipicos.
IQR(datademo$Puntuación)## [1] 3.63Es decir, entre el primer y tercer cuartil hay sólo 3 valores; asi, el 50% de los valores centrales varian en 3 valores.
Umbral:
q3=as.numeric(summary(datademo$Puntuación)[5])
umbral= q3+1.5*IQR(datademo$Puntuación)
umbral## [1] 12.62¿Cuenta con valores atipicos? Ofrezca un gráfico para observarlos y luego indique cuales son. Todo valor mayor a 12.62 se considerara un atipico
datademo[datademo$Puntuación>umbral,]## [1] País Puntuación
## <0 rows> (or 0-length row.names)No hay atipicos
base2=ggplot(datademo,aes(y=Puntuación))
box=base2 + geom_boxplot() + coord_flip()
box
¿Se puede afirmar que la asimetría es positiva o negativa?
Es negativa. La mediana es mayor que la media. Hay una pequeña tendencia a la asimetria negativa. No es notoria*
Halle el GINI, interprete y acompañelo con la curva de Lorentz
Gini(datademo$Puntuación,conf.level=0.95)## gini lwr.ci upr.ci
## 0.2316285 0.2103928 0.2602888El gini tiene mas proximidad a 0. Los paises pueden tener la misma cantidad de indice de democracia
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 = "% Paises ordenados por puntuación",
y = "% Acumulado de indice",
title = "Relación indice de democracia / pais",
caption = "Fuente: Wikipedia")
La linea roja no esta tan pegada a la linea horizontal, pero existe proximidad, es decir, el analisis tiene cierta distribucion entre los paises