The analysis compares the Boeoegg’s burn duration of how long it takes the snowman’s head to explode, with Zurich’s average summer temperature. #TidyTuesday

df <- tuesdata$sechselaeuten
df_bar <- df |>
filter(!is.na(duration))
ggplot(df_bar, aes(x = year, y = duration)) +
geom_col()