FERNADNA PZIARRO-S1

BASE DE DATOS

library(rio)
data=import("desigualdad.xlsx")

En la presente base de datos se analiza los principales factores que explican la desigualdad de género a nivel mundial.

data$DesigualdadGenero = data$DesigualdadGenero * 100
data$DesempleoMuj = (data$DesempleoMuj - 0.4)* 100/2
names(data)

##  [1] "Pais"              "DesigualdadGenero" "MLAutonomia"      
##  [4] "MLViolencia"       "VozPolitica"       "LibertadMov"      
##  [7] "DesconfianzaSJ"    "SecundariaC"       "DesempleoMuj"     
## [10] "CuentaF"

library(ggplot2)
base=ggplot(data=data, aes(x=DesigualdadGenero, y=DesempleoMuj))+ geom_point()
base

X:VARIABLE INDEPENDIENTE - desigualdad de genero Y: VARIABLE DEPENDIENTE- Desempleo muejres

library(scatterplot3d)
scatterplot3d(data[,c('DesempleoMuj','DesigualdadGenero','DesconfianzaSJ')])

xyz

base + geom_point(aes(color = DesconfianzaSJ))

modelo2= ggplot(data=data, aes(x=DesigualdadGenero, y=DesempleoMuj))+ geom_point() + geom_smooth(method=lm)
modelo2

## `geom_smooth()` using formula 'y ~ x'

Se puede aprecian una regresión lineal positiva

modelo3=formula(DesempleoMuj ~ DesigualdadGenero + DesconfianzaSJ)
reg3=lm(modelo3,data=data)

library(stargazer)

## 
## Please cite as:

##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.

##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer

stargazer(reg3, type = "text" ,intercept.bottom = FALSE)

## 
## ===============================================
##                         Dependent variable:    
##                     ---------------------------
##                            DesempleoMuj        
## -----------------------------------------------
## Constant                     32.067***         
##                              (12.216)          
##                                                
## DesigualdadGenero            0.341***          
##                               (0.085)          
##                                                
## DesconfianzaSJ                -0.040           
##                               (0.216)          
##                                                
## -----------------------------------------------
## Observations                    121            
## R2                             0.126           
## Adjusted R2                    0.111           
## Residual Std. Error      18.476 (df = 118)     
## F Statistic           8.469*** (df = 2; 118)   
## ===============================================
## Note:               *p<0.1; **p<0.05; ***p<0.01