#Actividad El Gobierno del Estado está implementando una política pública nueva tomando en cuenta el ingreso mensual y seguridad social, para ello necesita lo siguiente:
#Puede crear los vectores o crear una base y cargarla por Excel o csv.
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_1<-data.frame(Entidad_federativa,Seguridad_social,Salario)
Tabla_1## 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 2223Una vez que tenga su base de datos, inspecciónela y asegúrese con qué tipo de datos va a trabajar.
str(Tabla_1)## '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_1)## 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 2223head(Tabla_1)## 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 3500Identifique solo aquellas personas que son de Veracruz de acuerdo con el INEGI. (Es el estado número “30”)
Entidad_federativa2<-ifelse(Tabla_1$Entidad_federativa==30,"Pertenece a Veracruz","No pertenece a Veracruz")
Entidad_federativa2## [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_social2<-ifelse(Tabla_1$Seguridad_social==0,"No cuenta con seguridad social","Cuenta con seguridad social")
Seguridad_social2## [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.
Salario2<-ifelse(Tabla_1$Salario>=8000,"Gana arriba de 8,000", "No gana arriba de 8,000")
Salario2## [1] "Gana arriba de 8,000" "Gana arriba de 8,000"
## [3] "Gana arriba de 8,000" "No gana arriba de 8,000"
## [5] "No gana arriba de 8,000" "No gana arriba de 8,000"
## [7] "No gana arriba de 8,000" "No gana arriba 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" "No gana arriba de 8,000"
## [17] "No gana arriba de 8,000" "Gana arriba de 8,000"
## [19] "Gana arriba de 8,000" "No gana arriba de 8,000"
## [21] "No gana arriba 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] "No gana arriba de 8,000" "No gana arriba de 8,000"
## [29] "Gana arriba de 8,000" "No gana arriba de 8,000"Tabla_2<-data.frame(Entidad_federativa2,Seguridad_social2,Salario2)
Tabla_2## Entidad_federativa2 Seguridad_social2
## 1 Pertenece a Veracruz Cuenta con seguridad social
## 2 Pertenece a Veracruz Cuenta con seguridad social
## 3 Pertenece a Veracruz Cuenta con seguridad social
## 4 No pertenece a Veracruz No cuenta con seguridad social
## 5 No pertenece a Veracruz Cuenta con seguridad social
## 6 No pertenece a Veracruz No cuenta con seguridad social
## 7 No pertenece a Veracruz No cuenta con seguridad social
## 8 Pertenece a Veracruz No cuenta con seguridad social
## 9 No pertenece a Veracruz No cuenta con seguridad social
## 10 No pertenece a Veracruz No cuenta con seguridad social
## 11 No pertenece a Veracruz Cuenta con seguridad social
## 12 No pertenece a Veracruz Cuenta con seguridad social
## 13 No pertenece a Veracruz Cuenta con seguridad social
## 14 No pertenece a Veracruz Cuenta con seguridad social
## 15 No pertenece a Veracruz No cuenta con seguridad social
## 16 No pertenece a Veracruz No cuenta con seguridad social
## 17 No pertenece a Veracruz Cuenta con seguridad social
## 18 No pertenece a Veracruz Cuenta con seguridad social
## 19 Pertenece a Veracruz No cuenta con seguridad social
## 20 Pertenece a Veracruz Cuenta con seguridad social
## 21 Pertenece a Veracruz No cuenta con seguridad social
## 22 No pertenece a Veracruz No cuenta con seguridad social
## 23 No pertenece a Veracruz No cuenta con seguridad social
## 24 No pertenece a Veracruz No cuenta con seguridad social
## 25 No pertenece a Veracruz No cuenta con seguridad social
## 26 No pertenece a Veracruz No cuenta con seguridad social
## 27 No pertenece a Veracruz No cuenta con seguridad social
## 28 No pertenece a Veracruz No cuenta con seguridad social
## 29 No pertenece a Veracruz Cuenta con seguridad social
## 30 No pertenece a Veracruz No cuenta con seguridad social
## Salario2
## 1 Gana arriba de 8,000
## 2 Gana arriba de 8,000
## 3 Gana arriba de 8,000
## 4 No gana arriba de 8,000
## 5 No gana arriba de 8,000
## 6 No gana arriba de 8,000
## 7 No gana arriba de 8,000
## 8 No gana arriba de 8,000
## 9 Gana arriba de 8,000
## 10 Gana arriba de 8,000
## 11 Gana arriba de 8,000
## 12 Gana arriba de 8,000
## 13 Gana arriba de 8,000
## 14 Gana arriba de 8,000
## 15 Gana arriba de 8,000
## 16 No gana arriba de 8,000
## 17 No gana arriba de 8,000
## 18 Gana arriba de 8,000
## 19 Gana arriba de 8,000
## 20 No gana arriba de 8,000
## 21 No gana arriba de 8,000
## 22 Gana arriba de 8,000
## 23 Gana arriba de 8,000
## 24 Gana arriba de 8,000
## 25 Gana arriba de 8,000
## 26 Gana arriba de 8,000
## 27 No gana arriba de 8,000
## 28 No gana arriba de 8,000
## 29 Gana arriba de 8,000
## 30 No gana arriba de 8,000