Primero se cragan la librerias a usar Lo primero es cargar la base de datos del parcial

Encuesta_ciu <- read_excel("C:/Users/maria/Downloads/Encuesta_ciu.xlsx")
datos_p <-Encuesta_ciu
datos_p <-  sample_n(Encuesta_ciu,size = 150, replace = FALSE)
is.data.frame(datos_p)
## [1] TRUE

Pregunta 1

t1 <- table(datos_p$Nivel_Educativo,datos_p$Zona)
t1 <- addmargins(t1)
kable(t1)
Centro Norte Oriente Sur Sum
Básico 14 0 2 33 49
Medio 25 1 7 24 57
Superior 11 1 4 28 44
Sum 50 2 13 85 150

ds_cross_table(data, var_1, var_2)

Pregunta 2

Elabore un diagrama de caja y bigotes para la variable Horas_Trabajo en funcion de la variable Nivel_Educativo y concluya

boxplot(datos_p$Horas_Trabajo ~ datos_p$Nivel_Educativo, xLab = "Nivel Educativo", yLab = "Horas de trabajo", main = "Diagrama de caja P2", col =c(7,2,3))

#### Pregunta 3a

a <- table(datos_p$Zona) 

barplot(a, main = "tit", col = c("gold", "blue","pink","darkred"))




``` r
summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.