U1A1.R

#script del primer ejercicio de la materia de PyE
#Felipe Escarrega
#EJERCICIO BASICO DE GRAFICACION DE VARIABLES 
#26/08/2020

#En este ejercicio tiene como objeivo,que los alumnos aprendan a
#elavorar graficas en r

#Establecer el folder  donde se guardaran las cosas
setwd("~/PYE1112ITSON")


#activar el paquete tydyverse
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()

#creacion de la primer grafica del tamaaño del motor vs
#la eficiencia de uso de combustible en carretera

ggplot(data=mpg) +
  geom_point(mapping=aes(x=displ, y=hwy))+
  ggtitle("economia de cobustible en EEUU (1999-2008")

#___________________________________________
#              Descripción
#___________________________________________
#En este ejercicio hicimos una grafica del consumo de cubustible MPG en carretera dependidendo del 
#cilindrage DISPL de los automoviles con la ayuda de ggplot
#la grafica es de puntos ya que segun expertos es mas facil interpretar
#una graficade puntos(geom_point)

#podemos observar que entre mas grande sea la cilindarada DISPL este consumira mas combustible MPG