Aquest document genera un Ridgeline Chart (gràfic de crestes) que mostra la distribució de les temperatures màximes diàries a Barcelona al llarg dels 12 mesos de l’any 2023. Cada cresta representa un mes i permet comparar visualment com canvia la distribució de temperatures al llarg de l’any.
library(ggplot2)
library(ggridges)
library(plotly)
dades <- read.csv("temperatures_barcelona_2023.csv", encoding = "UTF-8")
dades$mes <- factor(dades$mes, levels = c(
"Gener", "Febrer", "Març", "Abril", "Maig", "Juny",
"Juliol", "Agost", "Setembre", "Octubre", "Novembre", "Desembre"
))
p <- ggplot(dades, aes(x = temperatura, y = mes, fill = after_stat(x))) +
geom_density_ridges_gradient(
scale = 2.5,
rel_min_height = 0.01,
bandwidth = 1.5
) +
scale_fill_gradientn(
colours = c("#4575b4", "#91bfdb", "#fee090", "#fc8d59", "#d73027"),
name = "Temp. (°C)"
) +
scale_x_continuous(
breaks = seq(5, 40, by = 5),
labels = function(x) paste0(x, "°C")
) +
labs(
title = "Distribució de temperatures màximes a Barcelona per mes (2023)",
subtitle = "Cada cresta mostra com es distribueixen les temperatures diàries al llarg del mes",
x = "Temperatura màxima diària (°C)",
y = NULL,
caption = "Font: Open-Meteo | PAC2 Visualització de Dades — UOC"
) +
theme_ridges(grid = TRUE) +
theme(
plot.title = element_text(size = 13, face = "bold"),
plot.subtitle = element_text(size = 10, color = "grey40"),
plot.caption = element_text(size = 8, color = "grey60"),
legend.position = "right",
axis.text.y = element_text(size = 10)
)
p