R Markdow

Pregunta 1: ¿Es igual o diferente el ingreso corriente entre la zonas rurales y urbanas de Tlaxcala?

Preg1.Boxplot

C=read.csv("Centro.csv") 
options(scipen=999) 
tlaxcala=subset(C,C$Estado==29)
tlaxcala$localidad <- as.factor(tlaxcala$localidad)
levels(tlaxcala$localidad) <- c("Rural", "Urbana") 
boxplot(tlaxcala$ing_cor ~ tlaxcala$localidad, col= c("darkgreen", "brown"), ylab="Ingreso Corriente", xlab="Zona", main="Ingreso Corriente en Zonas Rurales y Urbanas de Tlaxcala")

Preg1.Histogramas

C=read.csv("Centro.csv") 
options(scipen=999) 
par(cex = 0.7) 
par(mfrow=c(1,2))
tlaxcala=subset(C,C$Estado==29) 
tlaxcala_rural= subset(tlaxcala,tlaxcala$localidad=="R")
tlaxcala_urbano= subset(tlaxcala,tlaxcala$localidad=="U")
hist(tlaxcala_rural$ing_cor, col="green", main="Localidad Rural Tlaxcala", xlab = "Ingreso Corriente", ylab = "Frecuencia") 
hist(tlaxcala_urbano$ing_cor, col="brown", main="Localidad Urbana Tlaxcala", xlab = "Ingreso Corriente", ylab = "Frecuencia")

Preg1.Medidas Descriptivas

C=read.csv("Centro.csv") 
options(scipen=999)
tlaxcala=subset(C,C$Estado==29)

minimo=tapply(tlaxcala$ing_cor, tlaxcala$localidad, min)
mediana=tapply(tlaxcala$ing_cor, tlaxcala$localidad, median)
media=tapply(tlaxcala$ing_cor, tlaxcala$localidad, mean)
maximo=tapply(tlaxcala$ing_cor, tlaxcala$localidad, max)

desviacion=tapply(tlaxcala$ing_cor, tlaxcala$localidad,sd)
rangoint=tapply(tlaxcala$ing_cor, tlaxcala$localidad, IQR)
todo=data.frame(minimo,mediana,media,maximo,desviacion,rangoint)
row.names(todo) = c("Rural", "Urbano")
todo
##         minimo  mediana    media   maximo desviacion rangoint
## Rural  5776.83 33826.22 44357.72 209891.2   35534.17 28662.63
## Urbano 3091.22 41880.52 48881.60 261372.1   34077.93 35285.49

Pregunta 2: ¿Es igual o diferente el gasto monetario entre la zonas rurales y urbanas de Tlaxcala?

Preg2.Boxplot

C=read.csv("Centro.csv") 
options(scipen=999) 
tlaxcala=subset(C,C$Estado==29)
tlaxcala$localidad <- as.factor(tlaxcala$localidad)
levels(tlaxcala$localidad) <- c("Rural", "Urbana") 
boxplot(tlaxcala$gasto_mon ~ tlaxcala$localidad, col= c("lightblue", "yellow"), ylab="Gasto Monetario", xlab="Zona", main="Gasto Monetario en Zonas Rurales y Urbanas de Tlaxcala")

## Preg2.Histogramas

C=read.csv("Centro.csv") 
options(scipen=999) 
par(cex = 0.7) 
par(mfrow=c(1,2))
tlaxcala=subset(C,C$Estado==29) 
tlaxcala_rural= subset(tlaxcala,tlaxcala$localidad=="R")
tlaxcala_urbano= subset(tlaxcala,tlaxcala$localidad=="U")
hist(tlaxcala_rural$gasto_mon, col="lightblue", main="Localidad Rural Tlaxcala", xlab = "Gasto Monetario", ylab = "Frecuencia") 
hist(tlaxcala_urbano$gasto_mon, col="yellow", main="Localidad Urbana Tlaxcala", xlab = "Gasto Monetario", ylab = "Frecuencia")

## Preg2.Medidas Descriptivas

C=read.csv("Centro.csv") 
options(scipen=999)
tlaxcala=subset(C,C$Estado==29)

minimo=tapply(tlaxcala$gasto_mon, tlaxcala$localidad, min)
mediana=tapply(tlaxcala$gasto_mon, tlaxcala$localidad, median)
media=tapply(tlaxcala$gasto_mon, tlaxcala$localidad, mean)
maximo=tapply(tlaxcala$gasto_mon, tlaxcala$localidad, max)

desviacion=tapply(tlaxcala$gasto_mon, tlaxcala$localidad,sd)
rangoint=tapply(tlaxcala$gasto_mon, tlaxcala$localidad, IQR)
todo=data.frame(minimo,mediana,media,maximo,desviacion,rangoint)
row.names(todo) = c("Rural", "Urbano")
todo
##         minimo  mediana    media   maximo desviacion rangoint
## Rural  6422.81 25829.41 32303.21 166523.1   25848.79 22609.21
## Urbano 2746.68 29982.36 35608.33 213877.4   25242.93 25811.91