U1A1.R

#Primer ejercicio de la materia PyE, 26/08/2020
#Ejercicio básico de graficación de variables

setwd("~/Pobabilidad y estadistica 11-12 agodic")

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

#Redacción personal
#En esta asignación se realizó una gráfica en la cual se compara el tamaño del
#motor contra la eficiencia del uso del combustible con el comando ggplot. 
#En esta ocasión la grafica fue de puntos, con el comando geom_point, y estaba
#distribuída en x "displ" y en y "hwy". También se le puso un título con el 
#comando ggtitle.