info <- read_xlsx("/Users/cristinaalvarez/Desktop/Jalisco.xlsx")
data <- read_xlsx("/Users/cristinaalvarez/Desktop/Jalisco.xlsx")
DISC <- as.data.frame( aggregate(cbind(POBTOT, PCON_DISC)~NOM_MUN, FUN = sum, data=info))
DISC$PROP_DISC <-((DISC$PCON_DISC/DISC$POBTOT))
DISC<- DISC[order(-DISC$PROP_DISC),]
DISC<-(DISC[1:10,c(1,4)])
MAYOR <- as.data.frame( aggregate(cbind(POBTOT, POB65_MAS)~NOM_MUN, FUN = sum, data=info))
MAYOR$PROP_POB65<-(MAYOR$POB65/MAYOR$POBTOT)
MAYOR<- MAYOR[order(-MAYOR$POB65),]
MAYOR<- (MAYOR[1:30,c(1,4)])
ECONO <- as.data.frame( aggregate (PEA~NOM_MUN, FUN = sum, data=data))
ECONO<- ECONO[order(-ECONO$PEA),]
ECONO<- as.data.frame(ECONO[1:30,])
EDU <- as.data.frame( aggregate(cbind(POBTOT, P15YM_SE)~NOM_MUN, FUN = sum, data=info))
EDU$PROP_SEBASIC<-(EDU$P15YM_SE/EDU$POBTOT)
EDU<- EDU[order(-EDU$PROP_SEBASIC),]
EDU<-(EDU[1:10,c(1,4)])
INDIG <- as.data.frame(aggregate(as.numeric(P3YM_HLI)~NOM_MUN, FUN = sum, data=info))
INDIG<- INDIG[order(-INDIG$`as.numeric(P3YM_HLI)`),]
INDIG<- (INDIG[1:10,])
INTERNET <- as.data.frame( aggregate(cbind(VIVPAR_HAB, VPH_INTER)~NOM_MUN, FUN = sum, data=info))
INTERNET$PROP_VIVINT<-(INTERNET$VPH_INTER/INTERNET$VIVPAR_HAB)
INTERNET<- INTERNET[order(-INTERNET$PROP_VIVINT),]
INTERNET<- (INTERNET[1:10,c(1,4)])Los datos del Censo de Población y Vivienda 2020 del INEGI muestran que los municipios que concentran a la mayor proporción de personas mayores a 65 años, población económicamente activa, población indgínea y con mayor proporción de viviendas ocupadas con internet son Guadalajara y Zapopan. Esto sugiere que podrían ser demacarciones terroteriales estratégicas para la implementación piloto de políticas interseccionales.
DISC<-kable(DISC,caption = "TABLA 1: LOS 10 MUNICIPIOS CON MAYOR PROPORCIÓN DE PERSONAS CON DISCAPACIDAD" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "PROPORCIÓN"))
kable_classic(DISC,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(DISC, 2, width="10em"))| MUNICIPIO | PROPORCIÓN |
|---|---|
| Chimaltitán | 0.1159021 |
| El Limón | 0.1045082 |
| Cañadas de Obregón | 0.1034640 |
| San Julián | 0.0922463 |
| Huejúcar | 0.0917230 |
| Santa María del Oro | 0.0909091 |
| Cuautla | 0.0900277 |
| Santa María de los Ángeles | 0.0870555 |
| Ejutla | 0.0868248 |
| San Cristóbal de la Barranca | 0.0824213 |
MAYOR<-kable(MAYOR,caption = "TABLA 2: LOS 30 MUNICIPIOS CON MAYOR PROPORCIÓN DE PERSONAS DE 65 AÑOS O MÁS" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "PROPORCIÓN"))
kable_classic(MAYOR,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(MAYOR, 2, width="10em"))| MUNICIPIO | PROPORCIÓN |
|---|---|
| Guadalajara | 0.1215455 |
| Zapopan | 0.0769229 |
| San Pedro Tlaquepaque | 0.0627409 |
| Tonalá | 0.0507341 |
| Tlajomulco de Zúñiga | 0.0358708 |
| Puerto Vallarta | 0.0628669 |
| Lagos de Moreno | 0.0698886 |
| Tepatitlán de Morelos | 0.0765430 |
| Zapotlán el Grande | 0.0867545 |
| El Salto | 0.0425420 |
| Ocotlán | 0.0847808 |
| Chapala | 0.1539242 |
| Ameca | 0.1154241 |
| La Barca | 0.0977376 |
| Autlán de Navarro | 0.0953012 |
| Tala | 0.0703729 |
| Arandas | 0.0726098 |
| Atotonilco el Alto | 0.0847537 |
| Zapotlanejo | 0.0811190 |
| San Juan de los Lagos | 0.0706216 |
| Tamazula de Gordiano | 0.1229624 |
| Encarnación de Díaz | 0.0886140 |
| Jocotepec | 0.0889290 |
| Teocaltiche | 0.1026883 |
| Poncitlán | 0.0724948 |
| San Martín Hidalgo | 0.1342609 |
| Tuxpan | 0.0989925 |
| Tomatlán | 0.0999009 |
| Ayotlán | 0.0859646 |
| Cocula | 0.1185636 |
ECONO<-kable(ECONO,caption = "TABLA 3: LOS 30 MUNICIPIOS CON MAYOR POBLACIÓN DE PERSONAS ECONOMICAMENTE ACTIVAS" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "POBLACIÓN"))
kable_classic(ECONO,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(ECONO, 2, width="10em"))| MUNICIPIO | POBLACIÓN |
|---|---|
| Zapopan | 781705 |
| Guadalajara | 747410 |
| Tlajomulco de Zúñiga | 370745 |
| San Pedro Tlaquepaque | 357168 |
| Tonalá | 294989 |
| Puerto Vallarta | 163237 |
| El Salto | 111997 |
| Lagos de Moreno | 86038 |
| Tepatitlán de Morelos | 78547 |
| Zapotlán el Grande | 60735 |
| Ocotlán | 52863 |
| Tala | 44064 |
| Arandas | 41838 |
| San Juan de los Lagos | 36700 |
| Zapotlanejo | 33842 |
| Ixtlahuacán de los Membrillos | 33290 |
| Autlán de Navarro | 32845 |
| La Barca | 31182 |
| Atotonilco el Alto | 31024 |
| Ameca | 29067 |
| Chapala | 26183 |
| Encarnación de Díaz | 25385 |
| Poncitlán | 24287 |
| Jocotepec | 23572 |
| Tequila | 21120 |
| Cihuatlán | 20220 |
| Ayotlán | 18996 |
| Teocaltiche | 18412 |
| Tomatlán | 18094 |
| Sayula | 18078 |
EDU<-kable(EDU,caption = "TABLA 4: LOS 10 MUNICIPIOS CON MAYOR PROPORCIÓN DE PERSONAS CON DISCAPACIDAD" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "PROPORCIÓN"))
kable_classic(EDU,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(EDU, 2, width="10em"))| MUNICIPIO | PROPORCIÓN |
|---|---|
| Santa María del Oro | 0.1669421 |
| Mezquitic | 0.1433229 |
| Quitupan | 0.1055081 |
| Pihuamo | 0.0981908 |
| Jilotlán de los Dolores | 0.0969761 |
| Jesús María | 0.0931936 |
| Bolaños | 0.0895925 |
| Cuautitlán de García Barragán | 0.0813827 |
| Cañadas de Obregón | 0.0774840 |
| Chimaltitán | 0.0773700 |
INDIG<-kable(INDIG,caption = "TABLA 5: LOS 10 MUNICIPIOS CON MAYOR POBLACIÓN DE PERSONAS ÍNDIGENAS" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "POBLACIÓN"))
kable_classic(INDIG,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(INDIG, 2, width="10em"))| MUNICIPIO | POBLACIÓN |
|---|---|
| Mezquitic | 16102 |
| Zapopan | 14413 |
| Guadalajara | 4150 |
| Tlajomulco de Zúñiga | 4052 |
| Bolaños | 4026 |
| San Pedro Tlaquepaque | 3194 |
| Puerto Vallarta | 3069 |
| Tonalá | 1413 |
| El Salto | 1283 |
| Tala | 1038 |
INTERNET<-kable(INTERNET,caption = "TABLA 6:LOS 10 MUNICIPIOS CON MAYOR PROPORCIÓN DE VIVIENDAS PARTICULARES HABITADAS CON INTERNET" , row.names = F, full_width = FALSE, align = "rc", col.names = c("MUNICIPIO", "PROPORCIÓN"))
kable_classic(INTERNET,"striped", full_width = FALSE, position = "center", font_size = 10, column_spec(INTERNET, 2, width="10em"))| MUNICIPIO | PROPORCIÓN |
|---|---|
| Zapopan | 0.8611982 |
| Guadalajara | 0.7804240 |
| San Pedro Tlaquepaque | 0.7143304 |
| Tonalá | 0.7066812 |
| Puerto Vallarta | 0.7035077 |
| Zapotlán el Grande | 0.6779001 |
| Chapala | 0.6475834 |
| Tlajomulco de Zúñiga | 0.6409206 |
| Ocotlán | 0.6308173 |
| Sayula | 0.6127069 |
A mamá Roma le aviva el amora papá y a papá Roma le aviva el amor a mamá
palindromo_prueba <- function(f){
f<-str_replace_all(f, fixed(" "), "")
f<-toupper(stri_trans_general(f,"Latin-ASCII"))
reves <- stri_reverse(f)
prueba <- if (reves == f) { print("La frase es palindromo")
} else {print("La frase NO es palindromo")}
}
palindromo_prueba("A mamá Roma le aviva el amora papá y a papá Roma le aviva el amor a mamá")## [1] "La frase es palindromo"\[ \begin{equation*} X= \begin{bmatrix} 3 & 4 & -1 \\ 2 & -1 & 3\\ 2 & 2 & 1 \\ \end{bmatrix} \quad \end{equation*} \]
Para saber si es positiva definida revisamos los menores principales:
x2 <- matrix(c(3,4,2,-1), ncol = 2, byrow=TRUE)
x2_det <- det(x2)
x3 <- matrix(c(3,4,-1,2,-1,3,2,2,1), ncol = 3, byrow=TRUE)
x3_det <- det(x3)\[ \begin{equation*} |X_{1}|= \begin{bmatrix} 3 \end{bmatrix} = |3|> 0 \quad \end{equation*} \]
\[ \begin{equation*} |X_{2}|= \begin{bmatrix} 3 & 4 \\ 2 & -1 \\ \end{bmatrix} = |-11|< 0 \quad \end{equation*} \]
\[ \begin{equation*} |X_{3}|= \begin{bmatrix} 3 & 4 & -1 \\ 2 & -1 & 3\\ 2 & 2 & 1 \\ \end{bmatrix} = |-11|< 0 \quad \end{equation*} \]
prueba <- if (x2_det| x3_det < 0) { print("La matriz no es definida positiva")
} else {print("La matriz es definida positiva")}## [1] "La matriz no es definida positiva"x <- matrix(c(3,4,-1,2,-1,3,2,2,1), ncol = 3, byrow=TRUE)
x_inv<- round(solve(x),1)\[ \begin{equation*} X^1= \begin{bmatrix} 0.6 & 0.5 & -1 \\ -0.4 & -0.5 & 1\\ -0.5 & -0.2 & 1 \\ \end{bmatrix} \quad \end{equation*} \]
x <- matrix(c(3,4,-1,2,-1,3,2,2,1), ncol = 3, byrow=TRUE)
x_inv<- solve(x)
x_ident <- round( (x%*%x_inv), 1)\[ \begin{equation*} XX^1= \begin{bmatrix} 1 & 0 & 0 \\ 0 & 1 & 0\\ 0 & 0 & 1 \\ \end{bmatrix} \quad \end{equation*} \]
Ejercicio libre de programación
.columns{display: flex;}
h1{color:#CF6245;
text-align:center;}
h2{color:#CF6245;}
body {
background-color: #FFEBEE;
font-size: 12pt;
margin: 5em;
}
.principal {
background-color: #EFD5C9;
border: 1px dashed grey;
font-weight: bold;
font-size: 7pt;
color: #616161;
}
.secondary {
background-color: #FFEBEE;
border: none;
font-weight: light;
font-size: 7pt;
color: #616161;
}