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

# Este ejercicio no incluye respuestas para las tareas, trate de resolver cada
# tarea con el conocimiento que ha adquirido en el taller.


## TAREA 1 ##
# Open the data in files Data_AlcoholConsumption.xlsx and Data_AdultLiteracy.xlsx 
# in R. Note that you have to either transform them into .txt files, or find a 
# package with a function that can open xlsx files. These files contain data on 
# literaty (% of people >15 years old) per country per year, and similar data 
# for consumption of alcohol (average per adult).


## TAREA 2 ##
# Escoja un año reciente y diez países de su interés, y elabore un gráfico de
# barras (utilizando la función *barplot*) en el que compare las tasas de
# alfabetismo entre países. Esmérese por crear un buen gráfico: escogiendo buenos
# colores, buenos tamaño de letra, creando nombres de ejes y títulos, etc.


## TAREA 3 ##
# Utilice la función "dev,new" para abrir una nueva ventana gráfica y hacer un
# gráfico de barras, con la función *barplot*, que compare el consumo de alcohol
# entre los diez países y el año que escojió para la Tarea 2. Sea juicioso y
# cree un buen gráfico: escogiendo buenos colores, buenos tamaño de letra,
# creando nombres de ejes y títulos, etc. Asegúrese que el formato del gráfico
# sea similar al de la Tarea 2.


## TAREA 4 ## 
# Cuando esté contento con el formato de los gráficos de barras producidos en las
# Tareas 2 y 3, abra un archivo gráfico jpeg o pdf y guarde en el el gráfico que
# creo en la Tarea 2. Recuerde definir su directorio de trabajo, darle un nombre
# apropiado al archivo. Una vez concluya, confirme que el archivo con el gráfico  
# se encuentra en su directorio de trabajo.


## TASK 5 ##
# Abra un archivo gráfico jpeg o pdf y guarde en el el gráfico que creo en la
# Tarea 3. Recuerde definir su directorio de trabajo, darle un nombre apropiado
# al archivo. Una vez concluya, confirme que el archivo con el gráfico se encuentra
# en su directorio de trabajo.


## TAREA 6 ##
# Escoja un año reciente en las bases de datos sobre alfabetismo y consumo de
# alcohol, para el que haya una buena cantidad de datos. Elabore un gráfico
# relacionando las dos variables. Note que, para hacer esta gráfica correctamente,
# los nombres de los países deben coincidir en las dos bases de datos. Para
# algunos países podría haber datos en una base de datos pero no en la otra. 
# Use la función *cor* para estimar la correlación entre ambas variables, y la
# función "cor.test" para poner a prueba la hipótesis nula que la correlación
# entre ambas variables es cero.


## TAREA 7 ##
# Abra el paquete "ellipse" y utilice la función *ellipse* para adicionar una
# elipse a la gráfica que creó en la Tarea 6. La elipse debe representar
# gráficamente la correlación que midió en la Tarea 6. Sobra decir que, si
# no ha utilizado la función "ellipse" antes o si no recuerda cómo usarla,
# visite la página de ayuda de esa función.