Sesion 1

library(rio)

## Warning: package 'rio' was built under R version 4.0.5

data = import("desigualdad.xlsx")

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)

## Warning: package 'ggplot2' was built under R version 4.0.5

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

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

base1=ggplot(data=data, aes(x=DesempleoMuj, y=DesigualdadGenero)) + geom_point(aes(color = DesconfianzaSJ))
base1

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

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

modelo2=formula(DesempleoMuj ~ DesigualdadGenero + DesconfianzaSJ)
reg2=lm(modelo2,data=data)
G = scatterplot3d(data[,c('DesempleoMuj','DesigualdadGenero','DesconfianzaSJ')])
G$plane3d(reg2, draw_polygon = TRUE, draw_lines = FALSE)

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(reg2, 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