U1A1.R

# Script del primer ejercicio de la materia de PyE
# 26/08/2020
# Marijose González
# Ejercicio básico de graficación de variables


#Establecer folder de trabajo
setwd("~/PYE1112AD")

#Activar el paquete tidyverse
library(tidyverse)

## -- Attaching packages -------------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.1     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts ----------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

#Creación de la primer gráfica del tamaño del motor vs
#la eficiencia de uso de combustible en carretera

ggplot(data=mpg) +
  geom_point(mapping=aes(x=displ,y=hwy)) +
  ggtitle("Economía de combustible de EEUU (1999-2008)")

#Desarrollo de una gráfica punteada con datos de automóviles en los años 1999 a 2008, realizando una comparación del tamaño del cilindraje en litros, contra la eficiencia del uso de combustible en carretera medido en millas por galón. Además, se hizo uso de la librería tidyverse y por consiguiente, del paquete ggplot para hacer el diseño del gráfico. 
#En adición a lo anterior, se hizo uso de otros comandos, tales como:   
 # •    mpg: Colección de variables y observaciones para 38 modelos de automóviles recopiladas por la Agencia de Protección Ambiental de los EE. UU. 
 # •    ggtitle: Añade título a la gráfica. 
 # •    displ: Parte de los datos del mpg acerca del tamaño del cilindraje medido en litros. 
 # •    hwy: Parte de los datos del mpg acerca de la eficiencia en carretera medida en millas por galón.  
 # •    geom_point: Creación de la gráfica punteada.
 # •    aes: Estética de la gráfica (nombre de los ejes).
#Finalmente, el resultado apreciable de la gráfica fue que un cilindraje menor conlleva una mayor eficiencia en carretera. Por lo tanto, es una gráfica inversamente proporcional.