Code
library(dda)
library(tidyverse)
library(ggplot2)
data(vietnam_temperature)
vntemp <- vietnam_temperature |>
filter(year == 2016) |>
mutate(t_max = lapply(t_max, unclass), id = seq_len(n())) |>
unnest_longer(t_max, indices_to = "day")
vntemp |> ggplot(aes(day, t_max, group = id, color = region)) +
geom_point() +
geom_line() +
xlab("Day number") +
ylab("Temperature (°C)")