01-ggplot2.Rmd

---
title: "Gráficos con ggplot2"
author: "<tu nombre>"
date: "2024-07-11"
output: html_document
editor_options: 
  markdown: 
    wrap: sentence
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)


library(datos)
library(ggplot2)
library(readr)
library(tidyverse)

```

# Preparación

Esta vez vamos a trabajar con los datos `millas` del paquete datos.
Familiarizate con los datos igual que hiciste en el ejercicio anterior.

```{r}
millas <- datos::millas
```

En los ejercicios siguientes, vas a hacer varios gráficos.
Además de escribir el código para generar el gráfico, escribí como mínimo una oración describiendo qué es lo que ves.
¿Qué relación hay entre las variables?
¿Qué hipótesis te surgen?

# Ejercicios

1.  Hacé un gráfico de puntos de "autopista" versus "cilindros". ¿Qué conclusión sacás?

```{r}
ggplot(millas, 
       aes(autopista, cilindros)) +
  geom_point()
```

2.  Hacé un gráfico similar pero de "autopista" versus "ciudad".

```{r}
ggplot(data=millas)+
  aes(x=autopista, y=ciudad)+
  geom_point()
```

3.  ¿Qué pasa cuando haces un gráfico de de "clase" versus "traccion"? ¿Por qué no es útil este gráfico?

```{r}
ggplot(data=millas)+
  aes(x=clase,y=traccion)+
  geom_point()
```

4.  En otro bloque, rehacé el gráfico de "autopista" versus "ciudad" pero ahora asigná la variable "tracción" al color de los puntos.

```{r}
ggplot(data=millas)+
  aes(x=autopista,y=ciudad,color=traccion)+
  geom_point()
```

5.  ¿Qué ocurre si se asigna o mapea una estética a algo diferente del nombre de una variable, como `aes(color = cilindrada < 3)`?

```{r}
ggplot(data=millas)+
  aes(x=autopista,y=ciudad,color=cilindrada < 3)+
  geom_jitter(width = 0.25)
```

6.  ¿Notás algún problema con los gráfico anterior?
    Pensá en qué valores toman los datos de `ciudad` y `autopista`, ¿es posible que no haya ningún auto que haga 20.3 millas por galón en autopista?
    ¿Qué problemas puede traer eso?
    Por ejemplo, mirando el gráfico, ¿cuántos autos existe que hagan 20 millas en autopista y 15 en ciudad?

    es imposible ya que no se mide con valores decimales, solo enteros.

    ```{r}
    Auto_15_20<-millas %>% 
      filter(ciudad == "15" & autopista == "20")
    Auto_15_20
    ```

7.  En el gráfico anterior, reemplazá `geom_point()` por `geom_jitter()`.
    ¿Qué es lo que sucede?
    (Podés fijate en la ayuda de `geom_jitter()` si no entendés qué es lo que hace.) ¿Qué ventajas y desventajas tiene este geom?

    Mayor dispersion de los puntos