02_atmosfera.Rmd

---
title: "Ejercicios"
author: "nombre"
date: "2024-08-01"
output: html_document
---

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

library(dplyr)
library(ggplot2)
```


```{r carga-datos}
atmosfera <- datos::atmosfera
```


1. Graficá la relación entre la presión y la temperatura. 
¿Es una relación lineal más o menos limpia o hay otras cosas “raras”?

```{r}
ggplot(atmosfera, aes(presion, temperatura)) +
  geom_point()
```


2. Calculá la temperatura media de cada mes y visualizalo en un gráfico de líneas.(Es decir, el ciclo anual promedio de temperatura). ¿Cómo describirías el ciclo anual en pocas palabras?

```{r}
  atmosfera |>
  group_by(anio, mes) |>
  summarise(temperatura_media = mean(temperatura)) |>
  ggplot(aes(anio, temperatura_media)) +
  geom_point(aes(color = factor(mes))) +
  geom_line(aes(group = mes, color = factor(mes)))
```


3. Calculá lo mismo pero para cada hemisferio. Graficalo con una línea de distinto color para cada hemisferio. 
(Ayudas: La función sign() devuelve el signo de una variable; en el hemisferio sur la latitud es negativa y en el hemisferio norte, positiva. 
Acordate del tema de los grupos y las líneas.)

¿Cómo cambia tu descripción del ciclo anual ahora?

```{r}
atmosfera |>
  mutate(hemisferio = ifelse(latitud < 0, "Sur","Norte")) |>
  group_by(anio, mes, hemisferio) |>
  summarise(temperatura_media = mean(temperatura)) |>
  ggplot(aes(anio, temperatura_media)) +
  geom_point(aes(color = factor(mes))) +
  geom_line(aes(group = mes, color = factor(mes))) +
  facet_wrap(~hemisferio)
```