#Script del primer ejercicio de la materia de probabilidad y estadística
#26/08/2020
#Victor Carvajal
#Ejercicio básico de graficación de variables

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

#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("mpg")

#Conclusión Personal
#En esta clase de probabilidad y estadística utilizamos el programa R
#para un ejercicio de graficación con ayuda de un software.
#Utilizamos datos de la biblioteca de  tidyverse, recopiladas de un estudio
#de la eficiencia de combustible (1999-2008) de los 38 modelos de carros más
#populares en Estados Unidos. Elaboramos un código que generaba una gráfica
#de puntos, cuyos ejes eran tamaño del cilindraje versus gasto de combustible
#en carretera.