U1A1.R

# Script del primer ejercicio de la materia de PyE
#Adolfo Amado Sánchez
#ID: 000000214997
#4 de Septiembre del 2020
# Ejercicio básico de graficación de variables


#Establecer folder de trabajo
setwd("~/PyE 11 AM") 

#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 del combustible mpg(1999 - 2008)")

#Conclusión
#El desarrollo de esta práctica es importante debido no solo
#a que sirve como introducción a la materia de probabilidad y 
#estadística, sino también a que es una buena forma de familiarizarse
#con un entorno de programación como lo es RStudio. Además, el hecho
#de realizar una representación gráfica con datos reales como lo son
#los del consumo de combustible a lo largo de una década permite
#que se comience a interpretar lo que sucede verdaderamente.