# ===========================================
# Dr. Carlos Téllez Martínez
# Febrero de 2015
# Control Estadístico de Calidad
# HISTOGRAMA EN R
# ===========================================

# Usando la base de datos "airquality"
# Se elaborará un Histograma para la variable Temperatura

attach(airquality)
names(airquality)
## [1] "Ozone"   "Solar.R" "Wind"    "Temp"    "Month"   "Day"
hist(Temp, main="Histograma de la variable Temperatura para la base de datos airquality",
     col=1:10, breaks=15)

# Cortando el título en 2 partes
hist(Temp, main="Histograma de la variable Temperatura\npara la base de datos airquality",
     col=1:10, breaks=15)

# Modificando las divisiones
hist(Temp, main="Histograma de la variable Temperatura\npara la base de datos airquality",
     col=2, breaks=15, xlim=c(50,105))

# Para generar una gráfica de densidad
densidad <- density(Temp)
plot(densidad, 
     main="Gráfica de densidad de la variable Temperatura \npara la base de datos airquality",
     xlim=c(30,125))
polygon(densidad, col="red")

# Para generar 2 gráficas en el mismo espacio gráfico
par(mfrow=c(2,1))
hist(Temp, main="Histograma de la variable Temperatura\npara la base de datos airquality",
     col=2, breaks=15, xlim=c(40,125))

densidad <- density(Temp)
plot(densidad, 
     main="Gráfica de densidad de la variable Temperatura \npara la base de datos airquality",
     xlim=c(30,125))
polygon(densidad, col="red")

par(mfrow=c(1,1))