Extra

Additional mapping and data visualisation using R Studio.

Global temperature change

Warming stripes

Spiral

library(dplyr)
library(tidyr)
library(ggplot2)
library(animation)
library(lubridate)

median <- read.table(url("https://www.metoffice.gov.uk/hadobs/hadcrut4/data/current/time_series/HadCRUT.4.6.0.0.monthly_ns_avg.txt"))

names(median) <- c("date", "Median")
median[3:12] <- NULL

median = median %>% 
  mutate(date = ym(date)) %>% 
  mutate_at(vars(date), funs(year, month))

median[1] <- NULL
names(median) <- c("Median", "Year", "Month")

saveGIF({
  for(i in 1850:2020){
    print(ggplot(median %>%
                   filter(Year <= i), aes(x = Month, y = Median, color = Year, group = Year)) +
            geom_line() +
            scale_color_gradient(low = "blue", high = "red", limits = c(1850, 2020), guide = "none") +
            geom_hline(yintercept = 0, color = "white", lty = 2) +
            geom_hline(yintercept = 1, color = "white", lty = 2) +
            annotate(x = 1, y = -1.5, geom = "text", label = i, color = "white") +
            annotate(x = 1, y = 0.2, geom = "text", label = "0°C", color = "white") +
            annotate(x = 1, y = 1.2, geom = "text", label = "1°C", color = "white") +
            coord_polar() +
            theme_void() +
            labs(title = "Temperature anomalies",
                 subtitle = "Relative to 1961-1990",
                 caption = "Data: Met Office Hadley Centre") +
            theme(plot.background = element_rect(fill = "#1e1e1e", color = NA), 
                  panel.background = element_rect(fill = "#1e1e1e", color = NA),
                  plot.title = element_text(size = 15, hjust = 0.5, vjust = 0.5, color = "white"),
                  plot.subtitle = element_text(size = 13, hjust = 0.5, vjust = 0.7, color = "white"),
                  plot.caption = element_text(size = 6, hjust = 0.97, vjust = 5, face = "italic", color = "white"))
    )}
}, interval = 0.2

Time series

Arctic sea ice extent

Ocean currents

Sea surface temperature

Time averaged map of sea surface temperature (SST) in December 2020.

Data source: NASA (You may need to login.)