################################################################################
### TALLER FUNDAMENTOS DE R                                                  ###
### EJERCICIO 8.1: Gráficos                                                  ###
###                                                                          ###
### Center for Conservation and Sustainable Development                      ###
### Missouri Botanical Garden                                                ###
### Website: rbasicsworkshop.weebly.com                                      ###
################################################################################

## TAREA 1 ##
# Cargue el set de datos de "Iris" de Edgar Anderson

# Los siguientes argumentos se describen en la página de ayuda de la función
# "plot.default": "xlim" y "ylim." Utilize ambos argumentos en este código para 
# modificar la gráfica resultante, la misma que muestra la relación entre dos
# variables morfológicas para especies de Iris:

plot(iris$Petal.Width, iris$Sepal.Width)


## TAREA 2 ##
# Vaya a la página de ayuda para la función "plot" y lea sobre estos 6 argumentos:
# "type", "main", "sub", "xlab", "ylab", y "asp". Utilice esa información para 
# modificar el código anterior utilizando todos los cinco argumentos.


## TAREA 3 ##
# Considere este cambio en el código de la tarea 2:

plot(iris$Petal.Width, iris$Sepal.Width, xlab="Petal Width (cm)", 
    ylab="Sepal Width (cm)", cex.axis=1.5, cex.lab=1.5, bty="n", pch=19)

# Note el uso del argumento "bty". Vaya a la página de ayuda para la función 
# "par" y lea sobre este argumento. Cambiar el valor dado al argumento "bty" en 
# el código anterior para ver los resultados que son posible para diferentes 
# valores de "bty".


## TAREA 4 ##
# El siguiente código difiere del código de la Tarea 3 sólo en el uso del 
# argumento "type":

plot(iris$Petal.Width, iris$Sepal.Width, xlab="Petal Width (cm)", 
    ylab="Sepal Width (cm)", cex.axis=1.5, cex.lab=1.5, bty="n", pch=19, type="n")

# Lea sobre el argumento "type" en la ayuda para la función "plot" para 
# aprender lo que pasó. A continuación, utilice el código anterior como punto de 
# partida para representar gráficamente la relación entre el ancho del sépalo y 
# el ancho del pétalo mostrando cada especie con un símbolo y color diferente. 
# Vea la lista de símbolos disponibles a través del argumento "pch" en la página 
# 44 de "R para principiantes". Vea también la descripción del argumento "pch" 
# en la página de ayuda para la función "par". Para ver una lista de colores 
# disponibles escriba "colours()". Para completar esta tarea es necesario que 
# utilice la función de "points" y que ponga en practica sus conocimientos sobre
# indexación de objetos.


## TAREA 5 ##
# Añada una leyenda al gráfico que ha creado en la Tarea 4 usando la función
# "lengend". Obtenga información acerca de esta función visitando la página de 
# ayuda correspondiente.


## TAREA 6 ##
# Examine los datos de longitud del sépalo y ancho del pétalo utilizando 
# este código:

summary(iris$Sepal.Length)
summary(iris$Petal.Width)

# Considere cuidadosamente el siguiente código que produce histogramas de 
# longitud del sépalo y ancho del pétalo en el mismo gráfico:

hist(iris$Sepal.Length, breaks=seq(0,8,0.5), col="gray70", border="gray40", 
    xlab="", ylab="", main="", xaxt="n", yaxt="n", ylim=c(0,40))
par(new=TRUE)
hist(iris$Petal.Width, breaks=seq(0,8,0.5), density=30, xlab="", ylab="", 
    main="", xaxt="n", yaxt="n", ylim=c(0,40))

# Lea en la página de ayuda para la funcion "par" la información sobre el 
# argumento "new". Use de las funciones "axis", "mtext" y "legenda" para agregar 
# ejes, títulos de ejes y una leyenda. 


## TAREA 7 ##
# El gráfico que ha creado en la tarea 5 puede tener un problema: el eje Y es 
# demasiado corto y deja parcialmente fuera una de las barras del histograma. 
# Modifique los valores en el argumento "ylim" para solucionar este problema. 
# Puede haber también un segundo problema: el título del eje vertical se puede 
# estar cortado. Utilice el argumento "mar" de la función "par" para solucionar 
# este segundo problema. Lea sobre el argumento "mar" en la página de ayuda de 
# la función "par".




















################################################################################
### SOLUCIONES PARA TAREAS #####################################################
################################################################################