U1A1.R

setwd("~/PyE")
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 primera grafica 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")

?mpg

## starting httpd help server ...

##  done

#redaccion personal 

#en este ejercicio elaboramos una grafica con los datos adquiridos de "mpg" lo que nos daba esta copilacion de datos 
#era la informacion de la economia de la gasolina entre 1999 hasta 2008 usando los modelos de carro mas populares.
#esta data nos ofrece mucha informacion pero nosotros nomas usamos el "displ" que es 
#desplazamiento del motor en litros y "hym"  que es millas por gallon en carretera. Comparamos esta informacion graficamente y nos
#dio la grafica de arriba.