PRÁCTICA CALIFICADA 3

PARTE 1

library(rio)
link='https://github.com/JoseManuelMagallanes/Estadistica_Para_AnalisisPolitico/raw/master/lapop17.dta'
lapop17=import(link)

lapop17=lapop17[c(96,24)]

1. ¿Cree la mayoria de la gente que los servicios que dan los municipios son malos?

table(lapop17$sgl1)

## 
##    1    2    3    4    5 
##   46  504 1100  606  320

Considerando que los rangos de valoración son: (1) Muy buenos (2) Buenos (3) Ni buenos ni malos (regulares) (4) Malos (5) Muy malos

library(DescTools)
Mode(lapop17$sgl1)

## [1] 3

Podemos ver que la mayoría siente que los servicios brindados por la municipalidad no son ni buenos ni malos, lo que indicaría que muchos no están recibiendo adecuadamente estos servicios.

2)¿Esa creencia es relevante o no?

dataTable=table(lapop17$sgl1)
Herfindahl(dataTable)

## [1] 0.2917169

Con el gráfico de Herfindahl, notamos que existe una moda que no llega a ser absoluta, pero si importante.

3)¿Podemos afirmar que alrededor de 70% de los entrevistados cree que los derechos básicos del ciudadano estan a los mås medianamente protegidos por el sistema político peruano?

library(qcc)

## Package 'qcc' version 2.7

## Type 'citation("qcc")' for citing this R package in publications.

pareto.chart(table(lapop17$lib4),cumperc = c(0,50,80,100))

##    
## Pareto chart analysis for table(lapop17$lib4)
##       Frequency   Cum.Freq.  Percentage Cum.Percent.
##   1 1917.000000 1917.000000   73.476428    73.476428
##   2  465.000000 2382.000000   17.822921    91.299348
##   3  227.000000 2609.000000    8.700652   100.000000

Considerando que las variables se escuentran representadas de la siguiente manera: Muy poca (1), Suficiente (2) y Demasiada(3) Podemos deducir que, en efecto, alrededor del 70% de la población no siente que sus derechos se encuentren bien resguardados por el sistema político.

PARTE 2

library(htmltab)

linkPage='https://es.wikipedia.org/wiki/%C3%8Dndice_global_de_felicidad'
linkTabla= '//*[@id="mw-content-text"]/div/table/tbody'

Felicidad = htmltab(doc = linkPage, which = linkTabla)

str(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=Felicidad[c(2,3)]

names(Felicidad)

## [1] "País"       "Puntuación"

Felicidad$Puntuación=as.numeric(Felicidad$Puntuación)

str(Felicidad)

## 'data.frame':    156 obs. of  2 variables:
##  $ País      : chr  "Finlandia" "Noruega" "Dinamarca" "Islandia" ...
##  $ Puntuación: num  7.63 7.59 7.55 7.5 7.49 ...

library(ggplot2)
base1=ggplot(Felicidad,aes(x=Puntuación))
hist_pbi= base1 + geom_histogram(bins=7) 
hist_pbi

base2=ggplot(Felicidad,aes(y=Puntuación))
box=base2 + geom_boxplot() + coord_flip()

box

1. La puntuación de la felicidad se distribuye asimetricamente?

2. ¿El valor representativo de indice de felicidad es robusto?

3. ¿Puedes concluir que hay mucha desigualdad en este indice?

4. ¿Se puede afirmar que aproximadamente el 80% de los paises del mundo suman el 75% del puntaje acumulado de felicidad?

5. ¿Hay atipicos en el puntaje de felicidad?