Tiempo vs Clima - Weather vs Climate

tiempo_vs_clima.R

library(ggplot2)

t <- 1:100  # create time sequence

# warming trend, constant variance
clima <- data.frame(t = t,
                    temp = rnorm(100, 15 + 0.03*t, sd = 1))

# warming trend + increasing variance
clima <- data.frame(t = t,
                    temp = rnorm(100, 15 + 0.03*t, sd = 1 + 0.03*t))


# Plot
ggplot(clima) +
  geom_line(aes(t, temp)) +
  theme_minimal(base_size = 18) +
  geom_smooth(method = "lm", aes(t, temp), se = FALSE, colour = "red", size = 2) +
  labs(x = "", y = "Temperatura",
       title = "Diferencia entre tiempo y clima",
       subtitle = "Aunque exista una clara tendencia al aumento de temperaturas,\npueden darse episodios fríos",
       caption = "@frod_san") +
  theme(axis.text.x = element_blank(),
        plot.subtitle = element_text(colour = "grey20", size = 13),
        plot.caption = element_text(size = 10, colour = "grey20"),
        axis.title.y = element_text(size = 16, colour = "grey40"),
        axis.text.y = element_text(size = 11, colour = "grey40"))

ggsave("tiempo_vs_clima.pdf")