Tareas_Clase

Tarea 1,

1.El Gobierno del Estado esta implementando una politica publica nueva tomando en cuenta el ingreso mensual y seguridad social, para ello necesita lo siguiente:

Entidad_federativa<-c(30,30,30,10,12,11,15,30,8,2,3,4,20,10,22,32,31,33,30,30,30,5,18,27,28,28,11,19,19,15)

Seguridad_social<-c(1,1,1,0,1,0,0,0,0,0,1,1,1,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,1,0)

Salario<-c(10000,12000,8000,1500,3000,3500,3200,2000,9594,9744,9012,8251,8000,14508,12891,3537,5264,12590,11217,4166,5803,12816,8888,8433,9658,14208,7515,4212,8143,2223)

Tabla<-data.frame(Entidad_federativa,Seguridad_social,Salario)

Tabla

##    Entidad_federativa Seguridad_social Salario
## 1                  30                1   10000
## 2                  30                1   12000
## 3                  30                1    8000
## 4                  10                0    1500
## 5                  12                1    3000
## 6                  11                0    3500
## 7                  15                0    3200
## 8                  30                0    2000
## 9                   8                0    9594
## 10                  2                0    9744
## 11                  3                1    9012
## 12                  4                1    8251
## 13                 20                1    8000
## 14                 10                1   14508
## 15                 22                0   12891
## 16                 32                0    3537
## 17                 31                1    5264
## 18                 33                1   12590
## 19                 30                0   11217
## 20                 30                1    4166
## 21                 30                0    5803
## 22                  5                0   12816
## 23                 18                0    8888
## 24                 27                0    8433
## 25                 28                0    9658
## 26                 28                0   14208
## 27                 11                0    7515
## 28                 19                0    4212
## 29                 19                1    8143
## 30                 15                0    2223

Una vez que tenga su base de datos, inspeccionela y asegurese con que tipo de datos va a trabajar.

str(Tabla)

## 'data.frame':    30 obs. of  3 variables:
##  $ Entidad_federativa: num  30 30 30 10 12 11 15 30 8 2 ...
##  $ Seguridad_social  : num  1 1 1 0 1 0 0 0 0 0 ...
##  $ Salario           : num  10000 12000 8000 1500 3000 ...

tail(Tabla)

##    Entidad_federativa Seguridad_social Salario
## 25                 28                0    9658
## 26                 28                0   14208
## 27                 11                0    7515
## 28                 19                0    4212
## 29                 19                1    8143
## 30                 15                0    2223

head(Tabla)

##   Entidad_federativa Seguridad_social Salario
## 1                 30                1   10000
## 2                 30                1   12000
## 3                 30                1    8000
## 4                 10                0    1500
## 5                 12                1    3000
## 6                 11                0    3500

class(Tabla)

## [1] "data.frame"

Identifique solo aquellas personas que son de Veracruz de acuerdo con el INEGI.(Es el estado numero 30)

Entidad_federativa_2<-ifelse(Tabla$Entidad_federativa==30,"Pertenece a Veracruz","No pertenece a Veracruz")

Entidad_federativa_2

##  [1] "Pertenece a Veracruz"    "Pertenece a Veracruz"   
##  [3] "Pertenece a Veracruz"    "No pertenece a Veracruz"
##  [5] "No pertenece a Veracruz" "No pertenece a Veracruz"
##  [7] "No pertenece a Veracruz" "Pertenece a Veracruz"   
##  [9] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [11] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [13] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [15] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [17] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [19] "Pertenece a Veracruz"    "Pertenece a Veracruz"   
## [21] "Pertenece a Veracruz"    "No pertenece a Veracruz"
## [23] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [25] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [27] "No pertenece a Veracruz" "No pertenece a Veracruz"
## [29] "No pertenece a Veracruz" "No pertenece a Veracruz"

Identifique aquellos trabajadores que no tienen seguridad social.

Seguridad_social_2<-ifelse(Tabla$Seguridad_social==0,"No cuenta con seguridad social","Cuenta con seguridad social")

Seguridad_social_2

##  [1] "Cuenta con seguridad social"    "Cuenta con seguridad social"   
##  [3] "Cuenta con seguridad social"    "No cuenta con seguridad social"
##  [5] "Cuenta con seguridad social"    "No cuenta con seguridad social"
##  [7] "No cuenta con seguridad social" "No cuenta con seguridad social"
##  [9] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [11] "Cuenta con seguridad social"    "Cuenta con seguridad social"   
## [13] "Cuenta con seguridad social"    "Cuenta con seguridad social"   
## [15] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [17] "Cuenta con seguridad social"    "Cuenta con seguridad social"   
## [19] "No cuenta con seguridad social" "Cuenta con seguridad social"   
## [21] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [23] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [25] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [27] "No cuenta con seguridad social" "No cuenta con seguridad social"
## [29] "Cuenta con seguridad social"    "No cuenta con seguridad social"

Identifique aquellos trabajadores que ganen arriba de 8,000 y tambien aquellos que ganen por debajo de 8,000

Salario_2<-ifelse(Tabla$Salario>=8000,"Gana arriba de 8,000", "Gana por debajo de 8,000")

Salario_2

##  [1] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
##  [3] "Gana arriba de 8,000"     "Gana por debajo de 8,000"
##  [5] "Gana por debajo de 8,000" "Gana por debajo de 8,000"
##  [7] "Gana por debajo de 8,000" "Gana por debajo de 8,000"
##  [9] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
## [11] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
## [13] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
## [15] "Gana arriba de 8,000"     "Gana por debajo de 8,000"
## [17] "Gana por debajo de 8,000" "Gana arriba de 8,000"    
## [19] "Gana arriba de 8,000"     "Gana por debajo de 8,000"
## [21] "Gana por debajo de 8,000" "Gana arriba de 8,000"    
## [23] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
## [25] "Gana arriba de 8,000"     "Gana arriba de 8,000"    
## [27] "Gana por debajo de 8,000" "Gana por debajo de 8,000"
## [29] "Gana arriba de 8,000"     "Gana por debajo de 8,000"

6.1 indica que el trabajador cuenta con seguridad social y 0 que no.

Seguridad_social_3<-ifelse(Tabla$Seguridad_social==0,"0","1")

Seguridad_social_3

##  [1] "1" "1" "1" "0" "1" "0" "0" "0" "0" "0" "1" "1" "1" "1" "0" "0" "1" "1" "0"
## [20] "1" "0" "0" "0" "0" "0" "0" "0" "0" "1" "0"

Tareas_Clase_3

Danna Paola Enríquez Martínez

2025-10-30