Practica Tres, Generar muestreo para el estado asignado (Tamaulipas)

Cargar librerias (sin esto no funciona)

library(readr)
library(dplyr)
library(fdth)
library(knitr)

Leer Datos

Datos de personal_federalizado.csv

Tamaño de la muestra del total de la poblacion

1’610,078 99% de Confianza 1% margen de error = 16,471

datos<-read.csv("../Datos/personal_federalizado.csv", encoding = "UTF-8")

kable(head(datos,6))

X	CLAVECT	RFC	CURP	NOMBRECOMPLETODETRABAJADOR	NOMBRESTRABAJADOR	PRIMERAPELLIDO	SEGUNDOAPELLIDO	TIPODENOMINA	DESCRIPCIONTIPONOMINA	CLAVEDECATEORIA	ERROR	ENTIDADFEDERATIVA
1	01ADG0005J	AAMR680705AT3	AAMR680705MASRRS09	ROSA IMELDA ARANDA MARQUEZ	ROSA IMELDA	ARANDA	MARQUEZ	A	ORDINARIA	E0121	AGUSCALIENTES	AGUASCALIENTES
2	01ADG0005J	LAGE740824A21	LAGE740824MASRLL05	MARIA ELIZABETH LARA GALLEGOS	MARIA ELIZABETH	LARA	GALLEGOS	A	ORDINARIA	A01805	AGUSCALIENTES	AGUASCALIENTES
3	01ADG0005J	LOVG681207PS0	LOVG681207HASPLR02	VALENCIA GERARDO LOPEZ VELARDE	VALENCIA GERARDO	LOPEZ	VELARDE	A	ORDINARIA	E0363	AGUSCALIENTES	AGUASCALIENTES
4	01ADG0005J	LUCJ750616L1A	LUCJ750616HASNSN05	JUAN MANUEL LUNA CASTANON	JUAN MANUEL	LUNA	CASTANON	A	ORDINARIA	E7211	AGUSCALIENTES	AGUASCALIENTES
5	01ADG0005J	LUEB581004V15	LUEB581004MASVDT02	BEATRIZ EUG LUEVANO EDREHIRA	BEATRIZ EUG	LUEVANO	EDREHIRA	A	ORDINARIA	E0181	AGUSCALIENTES	AGUASCALIENTES
6	01ADG0005J	LUEB581004V15	LUEB581004MASVDT02	BEATRIZ EUG LUEVANO EDREHIRA	BEATRIZ EUG	LUEVANO	EDREHIRA	A	ORDINARIA	E0689	AGUSCALIENTES	AGUASCALIENTES

kable(tail(datos,6))

	X	CLAVECT	RFC	CURP	NOMBRECOMPLETODETRABAJADOR	NOMBRESTRABAJADOR	PRIMERAPELLIDO	SEGUNDOAPELLIDO	TIPODENOMINA	DESCRIPCIONTIPONOMINA	CLAVEDECATEORIA	ERROR	ENTIDADFEDERATIVA
1610073	1610073	32TAR0077T	GAFS880606US3	GAFS880606MSPRRC08	MA. DEL SOCORRO GARCIA FRAGA	MA. DEL SOCORRO	GARCIA	FRAGA	A	ORDINARIA	A03803	ZACATECAS	ZACATECAS
1610074	1610074	32TAR0077T	MENR7512171D6	MENR751217HZSRYG08	JOSE RIGOBERTO MERCADO NOYOLA	JOSE RIGOBERTO	MERCADO	NOYOLA	A	ORDINARIA	S01808	ZACATECAS	ZACATECAS
1610075	1610075	32TAR0077T	MERL901023F49	MERL901023HZSLVS06	LUIS PEDRO MELENDREZ RUVALCABA	LUIS PEDRO	MELENDREZ	RUVALCABA	A	ORDINARIA	S01808	ZACATECAS	ZACATECAS
1610076	1610076	32TAR0077T	MOOC740716TE0	MOOC740716MZSRNR00	MA. CARMEN MORENO ONTIVEROS	MA. CARMEN	MORENO	ONTIVEROS	A	ORDINARIA	S01808	ZACATECAS	ZACATECAS
1610077	1610077	32TAR0077T	SAMJ7408058C4	SAMJ740805MZSNCN04	JUANA MARIA DE LAS NIEVES SANCHEZ MACIEL	JUANA MARIA DE LAS NIEVES	SANCHEZ	MACIEL	A	ORDINARIA	A03803	ZACATECAS	ZACATECAS
1610078	1610078	32TAR0077T	ZADG600712451	ZADG600712MSPVVD03	GUADALUPE ZAVALA DAVILA	GUADALUPE	ZAVALA	DAVILA	A	ORDINARIA	S01807	ZACATECAS	ZACATECAS

Explorar los datos

summary(datos)

##        X                 CLAVECT                   RFC         
##  Min.   :      1   19ADG0001M:   3035   SARA6609254J3:     18  
##  1st Qu.: 402520   28ZST0060O:   1265   FUAD851122T56:     15  
##  Median : 805040   27ADG0001V:   1214   MIPL4901034S6:     15  
##  Mean   : 805040   18ADG0001N:   1106   RARM591011JG9:     15  
##  3rd Qu.:1207559   09DEF0007X:   1054   GUMO720805GE3:     14  
##  Max.   :1610078   26ADG0001W:    995   LORE6211207N7:     14  
##                    (Other)   :1601409   (Other)      :1609987  
##                  CURP                       NOMBRECOMPLETODETRABAJADOR
##                    :  12794   SANCHEZ RUIZ AURELIO       :     18     
##  XXXX800101HMCXXX00:    171   ANTONIO HERNANDEZ HERNANDEZ:     16     
##  *                *:     18   FELIPE HERNANDEZ HERNANDEZ :     16     
##  SARA660925HSLNZR06:     18   MARIBEL HERNANDEZ HERNANDEZ:     16     
##  DAMA620215MNTVRN17:     15   PEDRO HERNANDEZ HERNANDEZ  :     16     
##  EIGA731011HNTNML05:     15   ELSA LOPEZ RODRIGUEZ       :     15     
##  (Other)           :1597047   (Other)                    :1609981     
##        NOMBRESTRABAJADOR     PRIMERAPELLIDO     SEGUNDOAPELLIDO   
##  NULL           :  70284   NULL     :  70655   NULL     :  71137  
##  JOSE LUIS      :   9721   HERNANDEZ:  55330   HERNANDEZ:  55526  
##  MARIA GUADALUPE:   8988   GARCIA   :  41822   GARCIA   :  42327  
##  LETICIA        :   7266   MARTINEZ :  39043   MARTINEZ :  39145  
##  GUADALUPE      :   7256   LOPEZ    :  38129   LOPEZ    :  37939  
##  (Other)        :1506561   GONZALEZ :  32670   GONZALEZ :  32773  
##  NA's           :      2   (Other)  :1332429   (Other)  :1331231  
##   TIPODENOMINA     DESCRIPCIONTIPONOMINA CLAVEDECATEORIA 
##  A      :1581268   A         :      3    E0281  :363836  
##  J      :  28515   AGUINALDO :    289    E0181  :113784  
##  K      :    289   E0281     :      1    E0363  : 81913  
##  NULL   :      2   ESTRADA   :      1    E0463  : 76706  
##  CORONA :      1   HONORARIOS:  28515    E0763  : 52900  
##  MACIAS :      1   LOPEZ     :      1    S01807 : 52046  
##  (Other):      2   ORDINARIA :1581268    (Other):868893  
##               ERROR               ENTIDADFEDERATIVA 
##   FORANEO.       :319735   ESTADO DE MEXICO:163793  
##  DISTRITO FEDERAL:150304   DISTRITO FEDERAL:155278  
##   FORANEA.       :134721   VERACRUZ        :103592  
##   FORANEO        :117587   OAXACA          : 87819  
##  VERACRUZ        :103592   GUERRERO        : 87070  
##  MEXICO          : 93745   JALISCO         : 84643  
##  (Other)         :690394   (Other)         :927883

Asignar variables N-total de la poblacion n-tamaño de la muestra

N<-nrow(datos)
n<- 16471

Tabla de frecuencias para ‘Entidad’

tabla.frec<-fdt_cat(datos$ENTIDADFEDERATIVA)
tabla.frec

##             Category      f   rf rf(%)      cf  cf(%)
##     ESTADO DE MEXICO 163793 0.10 10.17  163793  10.17
##     DISTRITO FEDERAL 155278 0.10  9.64  319071  19.82
##             VERACRUZ 103592 0.06  6.43  422663  26.25
##               OAXACA  87819 0.05  5.45  510482  31.71
##             GUERRERO  87070 0.05  5.41  597552  37.11
##              JALISCO  84643 0.05  5.26  682195  42.37
##              CHIAPAS  72309 0.04  4.49  754504  46.86
##            MICHOACAN  71501 0.04  4.44  826005  51.30
##           GUANAJUATO  69202 0.04  4.30  895207  55.60
##               PUEBLA  62676 0.04  3.89  957883  59.49
##           TAMAULIPAS  52238 0.03  3.24 1010121  62.74
##              HIDALGO  48874 0.03  3.04 1058995  65.77
##      SAN LUIS POTOSÍ  45148 0.03  2.80 1104143  68.58
##           NUEVO LEÓN  45080 0.03  2.80 1149223  71.38
##            CHIHUAHUA  41160 0.03  2.56 1190383  73.93
##              SINALOA  38834 0.02  2.41 1229217  76.35
##             COAHUILA  37817 0.02  2.35 1267034  78.69
##      BAJA CALIFORNIA  32281 0.02  2.00 1299315  80.70
##               SONORA  31387 0.02  1.95 1330702  82.65
##              TABASCO  29656 0.02  1.84 1360358  84.49
##              NAYARIT  28901 0.02  1.80 1389259  86.29
##            ZACATECAS  27408 0.02  1.70 1416667  87.99
##              MORELOS  27015 0.02  1.68 1443682  89.67
##              YUCATÁN  26966 0.02  1.67 1470648  91.34
##            QUERÉTARO  23876 0.01  1.48 1494524  92.82
##             TLAXCALA  22342 0.01  1.39 1516866  94.21
##         QUINTANA ROO  21974 0.01  1.36 1538840  95.58
##       AGUASCALIENTES  19968 0.01  1.24 1558808  96.82
##             CAMPECHE  15222 0.01  0.95 1574030  97.76
##  BAJA CALIFORNIA SUR  12312 0.01  0.76 1586342  98.53
##               COLIMA  12283 0.01  0.76 1598625  99.29
##              DURANGO  11453 0.01  0.71 1610078 100.00

¿Cuál es la muestra que representa a Tamaulipas?

n.Tamaulipas<-ceiling(n*0.032444391)
n.Tamaulipas

## [1] 535

Muestreo simple Tamaulipas

Pob.Tamaulipas<-filter(datos, ENTIDADFEDERATIVA=="TAMAULIPAS")

N<-nrow(Pob.Tamaulipas)

muestra.Tamaulipas<-sample(1:N,n.Tamaulipas, replace = FALSE)

muestra.Tamaulipas

##   [1]  4293  2379   491   208  8989 42883 30749 14494  5659 17942 37145 12642
##  [13] 23019 45091 48023 14976 33754 11003  4000  2950 38161 51268 12429 16054
##  [25] 44799 47124 19083 41620 42045 17005 14882 26254 35829   344 12103 49370
##  [37] 35411 29380 45545 33897 41166 43582 27794 23687    86 23651 40939 45337
##  [49] 48988 47308 20080  2170 15200  1958 11053 25411 14712 49799 26982  9485
##  [61] 29330 15401 25314 28882  6363  3899  3357 11717  7208 28616 23855 51249
##  [73]  6882 24565 36358  5474 23563  1306  1883  1980 31937  5582  1457    25
##  [85] 12178 32208 11297 25871 31807  3204 49876 21353 51573 47859 28836 31627
##  [97] 48668 20676  2553 51564 25107 24267 33182 10284 42549 19817 22123 47126
## [109]  2761 33712 48909 13971 30099 23153 50562   389 33087 10934  3595 23512
## [121] 20849 29903  4254 36822 47502 16606  6332  9939  7196 14795 33288 38049
## [133] 45071 40462 33074 33957 37011  9554 44743 42277  8856 16926 46255   421
## [145] 42670   903 23542 43889  8000 16741 29377 17030 22043 33016 45712 42556
## [157]  6276 11375 16989 36176 19057 23950  4153 25295 44398 51626 11424 44279
## [169] 43055 39207  8595 26190 16225 40296 43312 45946 51943 26616 47172 10548
## [181]  4709 17899 13032 14477  4190  9842 20073 21311 15545 25315 27133 42734
## [193] 25401  6611  1211 35766 22769 12320 50869 11647 39474 13066 46096  5671
## [205] 37504 43275 11996 42590 20719 14157 35509    80 36265 12314 46737 25911
## [217] 28750  4467  1358 43677 38892  7818 20228 11619 32109 42644 31199  4639
## [229] 49391 14841 36495 28169 29398  5275 11704 50486 30964 18652 41222 49055
## [241]  5603 39213  4571 38692 41209 49417 40179 26557  2799 42830 48568 18172
## [253] 38590  4149 41877 30952    66 38959 11997 22465 35724 44945 13651 36046
## [265] 43467   245 39897 27314 25823  8531 10421 41634 37368 51144 32605  3582
## [277] 21302  6935 17558 48962  2738 38988 42766 34401 23528 10966 44635 42273
## [289] 12450 23864  4449 47319 29035  5221 38374 31492 49070 52069 33769 32461
## [301] 15163  9751 10441 39202 28240  4674 31684  5341 39726  9732 32153 28297
## [313] 29110 51504 18185 45063 40559 42509 39129 38045  2029  2644 10372 34661
## [325] 37655 28149 40175 31287 28744 14174 25265 30140 41866 21245 15435 49502
## [337] 16895 51486 19662 16778 25806 46322 23216 45884 19382 11485 44424 22750
## [349] 13363  7662 18264  1144 37489   737  3545 30993 10795 15259 34472 33998
## [361] 32626 10533 50627 11108 25505 29530 35862  6532 50472 38385 10920 31719
## [373] 40783  3658 20503 33045  5768 45869 35911 51783 40728 37036  3231 16524
## [385]  9119 16373 14427  2773 35852 10554 30547 35410 33451 19219  2017 44297
## [397] 39567 39619  4954 52041 19013 27039 12806 39005  3134  6359 46270 43207
## [409] 12573 41861 37241 28292 44366 44834 33795 37478 37532 13342 16856 41450
## [421] 52060 24380 41612 27158 37672 49142  7598 43218 34922  2255 38815  3109
## [433] 36776 49875 19513 27961 26098  3948 49387 30224 32328  2533  3311 40897
## [445] 45500  1282 43962 12000 28182 25454 10627 44464 29329 21500 45131  6736
## [457] 20492 14238  7946 50271 16815 41936  1592 49836 18699 32321  6753 42736
## [469] 28042 45155 48072 37020 51555 45358 16914 24458  2272 18243  1583 38487
## [481] 49770 45985 17059  6426 43790  2369  8173 44347 41948 41729 39645 36846
## [493] 45576 42756 14561 35985 16523  9068 21848 20933 18537 16082 36396  6567
## [505]  5164 38065 38386 40145 29213 21408 40933 10388 27614 18747 34892 43555
## [517] 47386  3147 36047  5246 12489 49492 49557  9154 35525  7455 23433 31281
## [529]  2324 46639 45256 39188 31569 45415 14399

Muestreo estratificado Tamaulipas

muestreo.estrat.Tamaulipas<-Pob.Tamaulipas[muestra.Tamaulipas,]

kable(head(muestreo.estrat.Tamaulipas))

	X	CLAVECT	RFC	CURP	NOMBRECOMPLETODETRABAJADOR	NOMBRESTRABAJADOR	PRIMERAPELLIDO	SEGUNDOAPELLIDO	TIPODENOMINA	DESCRIPCIONTIPONOMINA	CLAVEDECATEORIA	ERROR	ENTIDADFEDERATIVA
4293	1381825	28DES0025E	VECJ680113P32	VECJ680113HTSRSS00	JESUS VERASTEGUI CASTILLO	JESUS	VERASTEGUI	CASTILLO	A	ORDINARIA	E2401	FORANEO.	TAMAULIPAS
2379	1379911	28DES0005R	MEGM630629QD5	MEGM630629MTSJRY08	MAYRA GRACIELA MEJIA GARCIA	MAYRA GRACIELA	MEJIA	GARCIA	A	ORDINARIA	E0365	DE SECUNDARIA	TAMAULIPAS
491	1378023	28ADG0011A	RAPG690911CC9	RAPG690911MTSMRB06	GABRIELA RAMIREZ PEREZ	GABRIELA	RAMIREZ	PEREZ	A	ORDINARIA	T03803	TAMAULIPAS	TAMAULIPAS
208	1377740	28ADG0004R	ROZA6408024W6	ROZA640802HTSDPN05	J ANGEL RODRIGUEZ ZAPATA	J ANGEL	RODRIGUEZ	ZAPATA	A	ORDINARIA	E0221	FORANEO.	TAMAULIPAS
8989	1386521	28DES0067D	ZACC850813EU1	ZACC850813MTSMSN03	CINTHIA NERINA ZAMORANO CASTILLO	CINTHIA NERINA	ZAMORANO	CASTILLO	A	ORDINARIA	A01803	TAMAULIPAS	TAMAULIPAS
42883	1420415	28ETV0003Y	MAHS581231DA0	MAHS581231HTSTRX06	SIXTO MATA HERRERA	SIXTO	MATA	HERRERA	A	ORDINARIA	E2781	FORANEO	TAMAULIPAS

kable(tail(muestreo.estrat.Tamaulipas))

	X	CLAVECT	RFC	CURP	NOMBRECOMPLETODETRABAJADOR	NOMBRESTRABAJADOR	PRIMERAPELLIDO	SEGUNDOAPELLIDO	TIPODENOMINA	DESCRIPCIONTIPONOMINA	CLAVEDECATEORIA	ERROR	ENTIDADFEDERATIVA
46639	1424171	28FZF0009U	BEMJ670207LV3	BEMJ670207HTSRNL02	JULIO CESAR BERNAL MENDEZ	JULIO CESAR	BERNAL	MENDEZ	A	ORDINARIA	E0763	FORANEO	TAMAULIPAS
45256	1422788	28FUA0013Q	CAGX550319EU5	CXGA550319MTSNRN05	MARIA ANGELICA CANTU GARCIA	MARIA ANGELICA	CANTU	GARCIA	A	ORDINARIA	E0687	TAMAULIPAS	TAMAULIPAS
39188	1416720	28DST0063Z	HEMA590802GR4	HEMA590802HTSRYN02	JOSE ANGEL HERRERA MAYA	JOSE ANGEL	HERRERA	MAYA	A	ORDINARIA	E0463	FORANEO.	TAMAULIPAS
31569	1409101	28DPR2430G	PAVA761002610	PAVA761002MOCLLN03	MARIA DE LOS ANGELES PALACIOS VALDIVIA	MARIA DE LOS ANGELES	PALACIOS	VALDIVIA	A	ORDINARIA	E0281	FORANEO.	TAMAULIPAS
45415	1422947	28FUA0025V	MOGL680322TF8	MOGL680322HTSRMS04	JOSE LUIS MORALES GOMEZ	JOSE LUIS	MORALES	GOMEZ	A	ORDINARIA	E0687	TAMAULIPAS	TAMAULIPAS
14399	1391931	28DJN0357K	PEFS820219PVA	PEFS820219MTSRLN05	SANDRA BERENICE PEREZ FLORES	SANDRA BERENICE	PEREZ	FLORES	A	ORDINARIA	E0181	FORANEA.	TAMAULIPAS

Practica Tres, Generar muestreo para el estado asignado (Tamaulipas)

Laura E. Vega Fdz

11/5/2020

Cargar librerias (sin esto no funciona)

Leer Datos

Datos de personal_federalizado.csv

Tamaño de la muestra del total de la poblacion

1’610,078 99% de Confianza 1% margen de error = 16,471

Explorar los datos

Asignar variables N-total de la poblacion n-tamaño de la muestra

Tabla de frecuencias para ‘Entidad’

¿Cuál es la muestra que representa a Tamaulipas?

Muestreo simple Tamaulipas

Muestreo estratificado Tamaulipas