Overview of Tidying and Example Analysis

The data set has a number of elements that require tidying. First, the header row is regularly repeated throughout the data set, so these rows need to be removed. Secondly, for some observations, the snow fall amount is recorded as “T”, indicating a trace amount of snow; however, trace amounts do not appear to impact the annual sum and can therefore be changed to 0 for all practical purposes. Lastly, there is an opportunity to pivot the monthly data vertically. The annual data column could also theoretically be pivoted, but I did not choose to do so here thinking it would be helpful to maintain it adjacent to monthly data for potential mutation purposes.

In terms of analysis, all data at first was graphed via geomline(). While this graph does reveal significant (albeit predictable) patterns of snow fall by month across all years, it’s not easy to see which months had the largest snowfall amounts. In order to display the months with the greatest snowfall amounts, the data is filtered for months with snow fall amounts greater than 40 inches. This filtered data set reveals the month with the greatest amount of snow was December 2001-02 season that had a record of 82.7 inches, 14 inches more than the second place event of 68.4 inches. Interestingly, most of the months with more than 40 inches of snowfall are either December or January, indicating early winter is perhaps more “snowy” than later winter.

knitr::opts_chunk$set(echo = TRUE)

#Import Libraries

library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(ggthemes)
library(dplyr)
library('RCurl')
## 
## Attaching package: 'RCurl'
## 
## The following object is masked from 'package:tidyr':
## 
##     complete
library(tidyverse)
library(ggplot2)
library(knitr)

#read csv from github 

getdata <- getURL('https://raw.githubusercontent.com/kr0710/Data607/refs/heads/main/buffalo_snow.csv')

df <- read.csv(text = getdata, header = TRUE)


#drop duplicated header throws interspersed throughout the data
#drop months and years that have not occurred yet

df_drop <- df[-c(11,22,33,44,55,66,77,88, 93, 94, 95, 96, 97, 98),]

#Replace "T", which indicates trace amounts of snow, with 0's

df_drop[df_drop == "T"] <- 0

# Pivot the monthly data vertically
df_pivot <-
  pivot_longer(df_drop,
               cols = colnames(df_drop)[2:13],
               names_to = 'Month',
               values_to = 'Snowfall'
  )

#Set and factor the month order to be used in the ggplot.
#Without these steps, the months would appear in alphabetical order on graphs 

month_order <- c('JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP',
                 'OCT', 'NOV', 'DEC')

df_pivot$Month <- factor(df_pivot$Month, levels=month_order)

#convert snowfall to numerics

df_pivot$Snowfall <- as.numeric(df_pivot$Snowfall)
## Warning: NAs introduced by coercion
#Show tidy dataframe
kable(df_pivot)
SEASON ANNUAL Month Snowfall
1940-41 79.3 JUL 0.0
1940-41 79.3 AUG 0.0
1940-41 79.3 SEP 0.0
1940-41 79.3 OCT 0.0
1940-41 79.3 NOV 17.5
1940-41 79.3 DEC 12.1
1940-41 79.3 JAN 17.3
1940-41 79.3 FEB 23.1
1940-41 79.3 MAR 9.3
1940-41 79.3 APR 0.0
1940-41 79.3 MAY 0.0
1940-41 79.3 JUN 0.0
1941-42 89.6 JUL 0.0
1941-42 89.6 AUG 0.0
1941-42 89.6 SEP 0.0
1941-42 89.6 OCT 0.0
1941-42 89.6 NOV 5.0
1941-42 89.6 DEC 7.8
1941-42 89.6 JAN 31.0
1941-42 89.6 FEB 28.0
1941-42 89.6 MAR 13.7
1941-42 89.6 APR 4.1
1941-42 89.6 MAY 0.0
1941-42 89.6 JUN 0.0
1942-43 85.5 JUL 0.0
1942-43 85.5 AUG 0.0
1942-43 85.5 SEP 0.0
1942-43 85.5 OCT 0.0
1942-43 85.5 NOV 8.7
1942-43 85.5 DEC 26.7
1942-43 85.5 JAN 16.9
1942-43 85.5 FEB 17.7
1942-43 85.5 MAR 10.4
1942-43 85.5 APR 5.1
1942-43 85.5 MAY 0.0
1942-43 85.5 JUN 0.0
1943-44 58 JUL 0.0
1943-44 58 AUG 0.0
1943-44 58 SEP 0.0
1943-44 58 OCT 1.5
1943-44 58 NOV 13.6
1943-44 58 DEC 1.7
1943-44 58 JAN 3.4
1943-44 58 FEB 24.6
1943-44 58 MAR 10.5
1943-44 58 APR 2.7
1943-44 58 MAY 0.0
1943-44 58 JUN 0.0
1944-45 120.7 JUL 0.0
1944-45 120.7 AUG 0.0
1944-45 120.7 SEP 0.0
1944-45 120.7 OCT 0.0
1944-45 120.7 NOV 3.9
1944-45 120.7 DEC 35.1
1944-45 120.7 JAN 50.6
1944-45 120.7 FEB 23.3
1944-45 120.7 MAR 5.8
1944-45 120.7 APR 0.0
1944-45 120.7 MAY 2.0
1944-45 120.7 JUN 0.0
1945-46 110.5 JUL 0.0
1945-46 110.5 AUG 0.0
1945-46 110.5 SEP 0.0
1945-46 110.5 OCT 0.0
1945-46 110.5 NOV 25.2
1945-46 110.5 DEC 51.1
1945-46 110.5 JAN 10.7
1945-46 110.5 FEB 23.5
1945-46 110.5 MAR 0.0
1945-46 110.5 APR 0.0
1945-46 110.5 MAY 0.0
1945-46 110.5 JUN 0.0
1946-47 65.4 JUL 0.0
1946-47 65.4 AUG 0.0
1946-47 65.4 SEP 0.0
1946-47 65.4 OCT 0.0
1946-47 65.4 NOV 0.0
1946-47 65.4 DEC 11.9
1946-47 65.4 JAN 13.0
1946-47 65.4 FEB 22.2
1946-47 65.4 MAR 13.5
1946-47 65.4 APR 4.0
1946-47 65.4 MAY 0.8
1946-47 65.4 JUN 0.0
1947-48 42.1 JUL 0.0
1947-48 42.1 AUG 0.0
1947-48 42.1 SEP 0.0
1947-48 42.1 OCT 0.0
1947-48 42.1 NOV 9.9
1947-48 42.1 DEC 4.3
1947-48 42.1 JAN 16.7
1947-48 42.1 FEB 7.0
1947-48 42.1 MAR 4.2
1947-48 42.1 APR 0.0
1947-48 42.1 MAY 0.0
1947-48 42.1 JUN 0.0
1948-49 40.1 JUL 0.0
1948-49 40.1 AUG 0.0
1948-49 40.1 SEP 0.0
1948-49 40.1 OCT 0.0
1948-49 40.1 NOV 1.3
1948-49 40.1 DEC 7.0
1948-49 40.1 JAN 11.8
1948-49 40.1 FEB 5.2
1948-49 40.1 MAR 14.3
1948-49 40.1 APR 0.5
1948-49 40.1 MAY 0.0
1948-49 40.1 JUN 0.0
1949-50 88.7 JUL 0.0
1949-50 88.7 AUG 0.0
1949-50 88.7 SEP 0.0
1949-50 88.7 OCT 0.0
1949-50 88.7 NOV 28.6
1949-50 88.7 DEC 9.5
1949-50 88.7 JAN 14.8
1949-50 88.7 FEB 19.3
1949-50 88.7 MAR 13.7
1949-50 88.7 APR 2.8
1949-50 88.7 MAY 0.0
1949-50 88.7 JUN 0.0
1950-51 71.4 JUL 0.0
1950-51 71.4 AUG 0.0
1950-51 71.4 SEP 0.0
1950-51 71.4 OCT 0.0
1950-51 71.4 NOV 15.2
1950-51 71.4 DEC 22.3
1950-51 71.4 JAN 13.7
1950-51 71.4 FEB 12.3
1950-51 71.4 MAR 7.9
1950-51 71.4 APR 0.0
1950-51 71.4 MAY 0.0
1950-51 71.4 JUN 0.0
1951-52 83 JUL 0.0
1951-52 83 AUG 0.0
1951-52 83 SEP 0.0
1951-52 83 OCT 0.0
1951-52 83 NOV 17.7
1951-52 83 DEC 31.6
1951-52 83 JAN 16.8
1951-52 83 FEB 8.9
1951-52 83 MAR 7.4
1951-52 83 APR 0.6
1951-52 83 MAY 0.0
1951-52 83 JUN 0.0
1952-53 55.9 JUL 0.0
1952-53 55.9 AUG 0.0
1952-53 55.9 SEP 0.0
1952-53 55.9 OCT 0.4
1952-53 55.9 NOV 11.2
1952-53 55.9 DEC 16.1
1952-53 55.9 JAN 8.0
1952-53 55.9 FEB 11.9
1952-53 55.9 MAR 5.5
1952-53 55.9 APR 2.8
1952-53 55.9 MAY 0.0
1952-53 55.9 JUN 0.0
1953-54 89.9 JUL 0.0
1953-54 89.9 AUG 0.0
1953-54 89.9 SEP 0.0
1953-54 89.9 OCT 0.0
1953-54 89.9 NOV 22.7
1953-54 89.9 DEC 10.9
1953-54 89.9 JAN 16.2
1953-54 89.9 FEB 2.6
1953-54 89.9 MAR 26.3
1953-54 89.9 APR 1.2
1953-54 89.9 MAY 0.0
1953-54 89.9 JUN 0.0
1954-55 84.8 JUL 0.0
1954-55 84.8 AUG 0.0
1954-55 84.8 SEP 0.0
1954-55 84.8 OCT 1.0
1954-55 84.8 NOV 0.7
1954-55 84.8 DEC 31.2
1954-55 84.8 JAN 28.5
1954-55 84.8 FEB 12.0
1954-55 84.8 MAR 11.1
1954-55 84.8 APR 0.3
1954-55 84.8 MAY 0.0
1954-55 84.8 JUN 0.0
1955-56 105.2 JUL 0.0
1955-56 105.2 AUG 0.0
1955-56 105.2 SEP 0.0
1955-56 105.2 OCT 0.0
1955-56 105.2 NOV 26.0
1955-56 105.2 DEC 20.3
1955-56 105.2 JAN 17.7
1955-56 105.2 FEB 14.3
1955-56 105.2 MAR 23.1
1955-56 105.2 APR 3.8
1955-56 105.2 MAY 0.0
1955-56 105.2 JUN 0.0
1956-57 113.7 JUL 0.0
1956-57 113.7 AUG 0.0
1956-57 113.7 SEP 0.0
1956-57 113.7 OCT 0.0
1956-57 113.7 NOV 16.2
1956-57 113.7 DEC 35.6
1956-57 113.7 JAN 36.6
1956-57 113.7 FEB 3.1
1956-57 113.7 MAR 10.2
1956-57 113.7 APR 12.0
1956-57 113.7 MAY 0.0
1956-57 113.7 JUN 0.0
1957-58 124.7 JUL 0.0
1957-58 124.7 AUG 0.0
1957-58 124.7 SEP 0.0
1957-58 124.7 OCT 0.0
1957-58 124.7 NOV 19.2
1957-58 124.7 DEC 4.8
1957-58 124.7 JAN 31.1
1957-58 124.7 FEB 54.2
1957-58 124.7 MAR 11.2
1957-58 124.7 APR 4.2
1957-58 124.7 MAY 0.0
1957-58 124.7 JUN 0.0
1958-59 114.5 JUL 0.0
1958-59 114.5 AUG 0.0
1958-59 114.5 SEP 0.0
1958-59 114.5 OCT 0.0
1958-59 114.5 NOV 13.5
1958-59 114.5 DEC 19.0
1958-59 114.5 JAN 38.4
1958-59 114.5 FEB 14.0
1958-59 114.5 MAR 29.2
1958-59 114.5 APR 0.4
1958-59 114.5 MAY 0.0
1958-59 114.5 JUN 0.0
1959-60 115.6 JUL 0.0
1959-60 115.6 AUG 0.0
1959-60 115.6 SEP 0.0
1959-60 115.6 OCT 0.0
1959-60 115.6 NOV 12.2
1959-60 115.6 DEC 14.2
1959-60 115.6 JAN 18.3
1959-60 115.6 FEB 49.5
1959-60 115.6 MAR 19.5
1959-60 115.6 APR 1.9
1959-60 115.6 MAY 0.0
1959-60 115.6 JUN 0.0
1960-61 102.4 JUL 0.0
1960-61 102.4 AUG 0.0
1960-61 102.4 SEP 0.0
1960-61 102.4 OCT 1.0
1960-61 102.4 NOV 15.9
1960-61 102.4 DEC 31.9
1960-61 102.4 JAN 23.5
1960-61 102.4 FEB 11.9
1960-61 102.4 MAR 5.1
1960-61 102.4 APR 13.1
1960-61 102.4 MAY 0.0
1960-61 102.4 JUN 0.0
1961-62 101.4 JUL 0.0
1961-62 101.4 AUG 0.0
1961-62 101.4 SEP 0.0
1961-62 101.4 OCT 0.0
1961-62 101.4 NOV 5.6
1961-62 101.4 DEC 30.2
1961-62 101.4 JAN 26.2
1961-62 101.4 FEB 28.2
1961-62 101.4 MAR 6.7
1961-62 101.4 APR 4.5
1961-62 101.4 MAY 0.0
1961-62 101.4 JUN 0.0
1962-63 89.8 JUL 0.0
1962-63 89.8 AUG 0.0
1962-63 89.8 SEP 0.0
1962-63 89.8 OCT 2.0
1962-63 89.8 NOV 2.5
1962-63 89.8 DEC 30.2
1962-63 89.8 JAN 31.5
1962-63 89.8 FEB 15.5
1962-63 89.8 MAR 7.7
1962-63 89.8 APR 0.3
1962-63 89.8 MAY 0.1
1962-63 89.8 JUN 0.0
1963-64 71.5 JUL 0.0
1963-64 71.5 AUG 0.0
1963-64 71.5 SEP 0.0
1963-64 71.5 OCT 0.0
1963-64 71.5 NOV 3.1
1963-64 71.5 DEC 24.0
1963-64 71.5 JAN 13.7
1963-64 71.5 FEB 14.6
1963-64 71.5 MAR 12.8
1963-64 71.5 APR 3.3
1963-64 71.5 MAY 0.0
1963-64 71.5 JUN 0.0
1964-65 70.9 JUL 0.0
1964-65 70.9 AUG 0.0
1964-65 70.9 SEP 0.0
1964-65 70.9 OCT 0.0
1964-65 70.9 NOV 5.4
1964-65 70.9 DEC 15.2
1964-65 70.9 JAN 19.2
1964-65 70.9 FEB 9.4
1964-65 70.9 MAR 17.5
1964-65 70.9 APR 4.2
1964-65 70.9 MAY 0.0
1964-65 70.9 JUN 0.0
1965-66 98.3 JUL 0.0
1965-66 98.3 AUG 0.0
1965-66 98.3 SEP 0.0
1965-66 98.3 OCT 1.2
1965-66 98.3 NOV 12.2
1965-66 98.3 DEC 7.0
1965-66 98.3 JAN 48.0
1965-66 98.3 FEB 15.2
1965-66 98.3 MAR 11.4
1965-66 98.3 APR 3.2
1965-66 98.3 MAY 0.1
1965-66 98.3 JUN 0.0
1966-67 66.1 JUL 0.0
1966-67 66.1 AUG 0.0
1966-67 66.1 SEP 0.0
1966-67 66.1 OCT 0.0
1966-67 66.1 NOV 10.0
1966-67 66.1 DEC 12.1
1966-67 66.1 JAN 11.6
1966-67 66.1 FEB 19.8
1966-67 66.1 MAR 10.8
1966-67 66.1 APR 0.6
1966-67 66.1 MAY 1.2
1966-67 66.1 JUN 0.0
1967-68 71.6 JUL 0.0
1967-68 71.6 AUG 0.0
1967-68 71.6 SEP 0.0
1967-68 71.6 OCT 0.0
1967-68 71.6 NOV 19.7
1967-68 71.6 DEC 10.4
1967-68 71.6 JAN 19.1
1967-68 71.6 FEB 11.7
1967-68 71.6 MAR 10.6
1967-68 71.6 APR 0.1
1967-68 71.6 MAY 0.0
1967-68 71.6 JUN 0.0
1968-69 78.4 JUL 0.0
1968-69 78.4 AUG 0.0
1968-69 78.4 SEP 0.0
1968-69 78.4 OCT 0.0
1968-69 78.4 NOV 11.6
1968-69 78.4 DEC 11.7
1968-69 78.4 JAN 31.2
1968-69 78.4 FEB 12.8
1968-69 78.4 MAR 8.0
1968-69 78.4 APR 3.1
1968-69 78.4 MAY 0.0
1968-69 78.4 JUN 0.0
1969-70 120.5 JUL 0.0
1969-70 120.5 AUG 0.0
1969-70 120.5 SEP 0.0
1969-70 120.5 OCT 1.0
1969-70 120.5 NOV 22.1
1969-70 120.5 DEC 23.4
1969-70 120.5 JAN 38.0
1969-70 120.5 FEB 21.9
1969-70 120.5 MAR 12.6
1969-70 120.5 APR 1.5
1969-70 120.5 MAY 0.0
1969-70 120.5 JUN 0.0
1970-71 97 JUL 0.0
1970-71 97 AUG 0.0
1970-71 97 SEP 0.0
1970-71 97 OCT 0.0
1970-71 97 NOV 2.6
1970-71 97 DEC 32.3
1970-71 97 JAN 17.2
1970-71 97 FEB 19.4
1970-71 97 MAR 22.6
1970-71 97 APR 2.9
1970-71 97 MAY 0.0
1970-71 97 JUN 0.0
1971-72 109.9 JUL 0.0
1971-72 109.9 AUG 0.0
1971-72 109.9 SEP 0.0
1971-72 109.9 OCT 0.0
1971-72 109.9 NOV 18.7
1971-72 109.9 DEC 12.9
1971-72 109.9 JAN 27.6
1971-72 109.9 FEB 31.4
1971-72 109.9 MAR 14.1
1971-72 109.9 APR 5.2
1971-72 109.9 MAY 0.0
1971-72 109.9 JUN 0.0
1972-73 78.8 JUL 0.0
1972-73 78.8 AUG 0.0
1972-73 78.8 SEP 0.0
1972-73 78.8 OCT 3.1
1972-73 78.8 NOV 18.9
1972-73 78.8 DEC 19.8
1972-73 78.8 JAN 9.9
1972-73 78.8 FEB 16.1
1972-73 78.8 MAR 8.5
1972-73 78.8 APR 2.4
1972-73 78.8 MAY 0.1
1972-73 78.8 JUN 0.0
1973-74 88.7 JUL 0.0
1973-74 88.7 AUG 0.0
1973-74 88.7 SEP 0.0
1973-74 88.7 OCT 0.0
1973-74 88.7 NOV 3.0
1973-74 88.7 DEC 23.1
1973-74 88.7 JAN 19.7
1973-74 88.7 FEB 22.8
1973-74 88.7 MAR 12.9
1973-74 88.7 APR 7.1
1973-74 88.7 MAY 0.1
1973-74 88.7 JUN 0.0
1974-75 95.6 JUL 0.0
1974-75 95.6 AUG 0.0
1974-75 95.6 SEP 0.0
1974-75 95.6 OCT 0.0
1974-75 95.6 NOV 22.1
1974-75 95.6 DEC 23.6
1974-75 95.6 JAN 11.0
1974-75 95.6 FEB 16.3
1974-75 95.6 MAR 7.6
1974-75 95.6 APR 15.0
1974-75 95.6 MAY 0.0
1974-75 95.6 JUN 0.0
1975-76 82.5 JUL 0.0
1975-76 82.5 AUG 0.0
1975-76 82.5 SEP 0.0
1975-76 82.5 OCT 0.0
1975-76 82.5 NOV 5.5
1975-76 82.5 DEC 27.3
1975-76 82.5 JAN 21.6
1975-76 82.5 FEB 8.3
1975-76 82.5 MAR 17.3
1975-76 82.5 APR NA
1975-76 82.5 MAY 0.0
1975-76 82.5 JUN 0.0
1976-77 199.4 JUL 0.0
1976-77 199.4 AUG 0.0
1976-77 199.4 SEP 0.0
1976-77 199.4 OCT 0.2
1976-77 199.4 NOV 31.3
1976-77 199.4 DEC 60.7
1976-77 199.4 JAN 68.3
1976-77 199.4 FEB 22.7
1976-77 199.4 MAR 13.5
1976-77 199.4 APR 2.2
1976-77 199.4 MAY 0.5
1976-77 199.4 JUN 0.0
1977-78 154.3 JUL 0.0
1977-78 154.3 AUG 0.0
1977-78 154.3 SEP 0.0
1977-78 154.3 OCT 0.0
1977-78 154.3 NOV 15.0
1977-78 154.3 DEC 53.4
1977-78 154.3 JAN 56.5
1977-78 154.3 FEB 21.7
1977-78 154.3 MAR 5.8
1977-78 154.3 APR 1.8
1977-78 154.3 MAY 0.1
1977-78 154.3 JUN 0.0
1978-79 97.3 JUL 0.0
1978-79 97.3 AUG 0.0
1978-79 97.3 SEP 0.0
1978-79 97.3 OCT 0.0
1978-79 97.3 NOV 3.0
1978-79 97.3 DEC 10.1
1978-79 97.3 JAN 42.6
1978-79 97.3 FEB 28.3
1978-79 97.3 MAR 4.6
1978-79 97.3 APR 8.7
1978-79 97.3 MAY 0.0
1978-79 97.3 JUN 0.0
1979-80 68.4 JUL 0.0
1979-80 68.4 AUG 0.0
1979-80 68.4 SEP 0.0
1979-80 68.4 OCT 0.0
1979-80 68.4 NOV 12.6
1979-80 68.4 DEC 19.7
1979-80 68.4 JAN 10.2
1979-80 68.4 FEB 11.7
1979-80 68.4 MAR 13.9
1979-80 68.4 APR 0.3
1979-80 68.4 MAY 0.0
1979-80 68.4 JUN 0.0
1980-81 60.9 JUL 0.0
1980-81 60.9 AUG 0.0
1980-81 60.9 SEP 0.0
1980-81 60.9 OCT 0.0
1980-81 60.9 NOV 6.7
1980-81 60.9 DEC 21.6
1980-81 60.9 JAN 14.4
1980-81 60.9 FEB 5.0
1980-81 60.9 MAR 13.2
1980-81 60.9 APR 0.0
1980-81 60.9 MAY 0.0
1980-81 60.9 JUN 0.0
1981-82 112.4 JUL 0.0
1981-82 112.4 AUG 0.0
1981-82 112.4 SEP 0.0
1981-82 112.4 OCT 0.0
1981-82 112.4 NOV 1.8
1981-82 112.4 DEC 24.8
1981-82 112.4 JAN 53.2
1981-82 112.4 FEB 12.7
1981-82 112.4 MAR 9.0
1981-82 112.4 APR 10.9
1981-82 112.4 MAY 0.0
1981-82 112.4 JUN 0.0
1982-83 52.4 JUL 0.0
1982-83 52.4 AUG 0.0
1982-83 52.4 SEP 0.0
1982-83 52.4 OCT 0.0
1982-83 52.4 NOV 15.8
1982-83 52.4 DEC 12.9
1982-83 52.4 JAN 9.0
1982-83 52.4 FEB 5.5
1982-83 52.4 MAR 6.9
1982-83 52.4 APR 2.3
1982-83 52.4 MAY 0.0
1982-83 52.4 JUN 0.0
1983-84 132.5 JUL 0.0
1983-84 132.5 AUG 0.0
1983-84 132.5 SEP 0.0
1983-84 132.5 OCT 0.0
1983-84 132.5 NOV 17.7
1983-84 132.5 DEC 52.0
1983-84 132.5 JAN 13.4
1983-84 132.5 FEB 32.5
1983-84 132.5 MAR 16.0
1983-84 132.5 APR 0.9
1983-84 132.5 MAY 0.0
1983-84 132.5 JUN 0.0
1984-85 107.2 JUL 0.0
1984-85 107.2 AUG 0.0
1984-85 107.2 SEP 0.0
1984-85 107.2 OCT 0.0
1984-85 107.2 NOV 1.4
1984-85 107.2 DEC 11.2
1984-85 107.2 JAN 65.9
1984-85 107.2 FEB 20.9
1984-85 107.2 MAR 6.3
1984-85 107.2 APR 1.5
1984-85 107.2 MAY 0.0
1984-85 107.2 JUN 0.0
1985-86 114.7 JUL 0.0
1985-86 114.7 AUG 0.0
1985-86 114.7 SEP 0.0
1985-86 114.7 OCT 0.0
1985-86 114.7 NOV 5.2
1985-86 114.7 DEC 68.4
1985-86 114.7 JAN 17.3
1985-86 114.7 FEB 17.3
1985-86 114.7 MAR 4.8
1985-86 114.7 APR 1.7
1985-86 114.7 MAY 0.0
1985-86 114.7 JUN 0.0
1986-87 67.5 JUL 0.0
1986-87 67.5 AUG 0.0
1986-87 67.5 SEP 0.0
1986-87 67.5 OCT 0.0
1986-87 67.5 NOV 13.7
1986-87 67.5 DEC 4.8
1986-87 67.5 JAN 28.5
1986-87 67.5 FEB 7.7
1986-87 67.5 MAR 10.8
1986-87 67.5 APR 2.0
1986-87 67.5 MAY 0.0
1986-87 67.5 JUN 0.0
1987-88 56.4 JUL 0.0
1987-88 56.4 AUG 0.0
1987-88 56.4 SEP 0.0
1987-88 56.4 OCT 0.0
1987-88 56.4 NOV 0.9
1987-88 56.4 DEC 9.8
1987-88 56.4 JAN 6.9
1987-88 56.4 FEB 31.9
1987-88 56.4 MAR 6.1
1987-88 56.4 APR 0.8
1987-88 56.4 MAY 0.0
1987-88 56.4 JUN 0.0
1988-89 67.4 JUL 0.0
1988-89 67.4 AUG 0.0
1988-89 67.4 SEP 0.0
1988-89 67.4 OCT 0.5
1988-89 67.4 NOV 0.6
1988-89 67.4 DEC 10.8
1988-89 67.4 JAN 5.4
1988-89 67.4 FEB 29.6
1988-89 67.4 MAR 10.1
1988-89 67.4 APR 2.5
1988-89 67.4 MAY 7.9
1988-89 67.4 JUN 0.0
1989-90 93.7 JUL 0.0
1989-90 93.7 AUG 0.0
1989-90 93.7 SEP 0.0
1989-90 93.7 OCT 0.0
1989-90 93.7 NOV 7.8
1989-90 93.7 DEC 34.8
1989-90 93.7 JAN 11.8
1989-90 93.7 FEB 28.0
1989-90 93.7 MAR 1.4
1989-90 93.7 APR 9.9
1989-90 93.7 MAY 0.0
1989-90 93.7 JUN 0.0
1990-91 57.5 JUL 0.0
1990-91 57.5 AUG 0.0
1990-91 57.5 SEP 0.0
1990-91 57.5 OCT 0.0
1990-91 57.5 NOV 0.7
1990-91 57.5 DEC 15.4
1990-91 57.5 JAN 16.6
1990-91 57.5 FEB 16.1
1990-91 57.5 MAR 8.5
1990-91 57.5 APR 0.2
1990-91 57.5 MAY 0.0
1990-91 57.5 JUN 0.0
1991-92 92.8 JUL 0.0
1991-92 92.8 AUG 0.0
1991-92 92.8 SEP 0.0
1991-92 92.8 OCT 0.2
1991-92 92.8 NOV 18.0
1991-92 92.8 DEC 21.4
1991-92 92.8 JAN 18.4
1991-92 92.8 FEB 7.0
1991-92 92.8 MAR 22.8
1991-92 92.8 APR 5.0
1991-92 92.8 MAY 0.0
1991-92 92.8 JUN 0.0
1992-93 93.2 JUL 0.0
1992-93 93.2 AUG 0.0
1992-93 93.2 SEP 0.0
1992-93 93.2 OCT 0.6
1992-93 93.2 NOV 13.7
1992-93 93.2 DEC 16.5
1992-93 93.2 JAN 13.1
1992-93 93.2 FEB 19.5
1992-93 93.2 MAR 29.3
1992-93 93.2 APR 0.5
1992-93 93.2 MAY 0.0
1992-93 93.2 JUN 0.0
1993-94 112.7 JUL 0.0
1993-94 112.7 AUG 0.0
1993-94 112.7 SEP 0.0
1993-94 112.7 OCT 2.9
1993-94 112.7 NOV 4.8
1993-94 112.7 DEC 27.9
1993-94 112.7 JAN 35.4
1993-94 112.7 FEB 21.6
1993-94 112.7 MAR 13.2
1993-94 112.7 APR 6.9
1993-94 112.7 MAY 0.0
1993-94 112.7 JUN 0.0
1994-95 74.6 JUL 0.0
1994-95 74.6 AUG 0.0
1994-95 74.6 SEP 0.0
1994-95 74.6 OCT 0.0
1994-95 74.6 NOV 0.9
1994-95 74.6 DEC 7.8
1994-95 74.6 JAN 23.1
1994-95 74.6 FEB 34.6
1994-95 74.6 MAR 4.3
1994-95 74.6 APR 3.9
1994-95 74.6 MAY 0.0
1994-95 74.6 JUN 0.0
1995-96 141.4 JUL 0.0
1995-96 141.4 AUG 0.0
1995-96 141.4 SEP 0.0
1995-96 141.4 OCT 0.0
1995-96 141.4 NOV 15.7
1995-96 141.4 DEC 61.2
1995-96 141.4 JAN 25.3
1995-96 141.4 FEB 11.9
1995-96 141.4 MAR 24.1
1995-96 141.4 APR 3.2
1995-96 141.4 MAY 0.0
1995-96 141.4 JUN 0.0
1996-97 97.6 JUL 0.0
1996-97 97.6 AUG 0.0
1996-97 97.6 SEP 0.0
1996-97 97.6 OCT 0.0
1996-97 97.6 NOV 11.5
1996-97 97.6 DEC 18.9
1996-97 97.6 JAN 42.4
1996-97 97.6 FEB 9.3
1996-97 97.6 MAR 13.4
1996-97 97.6 APR 2.1
1996-97 97.6 MAY 0.0
1996-97 97.6 JUN 0.0
1997-98 75.6 JUL 0.0
1997-98 75.6 AUG 0.0
1997-98 75.6 SEP 0.0
1997-98 75.6 OCT 0.2
1997-98 75.6 NOV 16.5
1997-98 75.6 DEC 18.2
1997-98 75.6 JAN 13.6
1997-98 75.6 FEB 1.8
1997-98 75.6 MAR 25.3
1997-98 75.6 APR 0.0
1997-98 75.6 MAY 0.0
1997-98 75.6 JUN 0.0
1998-99 100.5 JUL 0.0
1998-99 100.5 AUG 0.0
1998-99 100.5 SEP 0.0
1998-99 100.5 OCT 0.0
1998-99 100.5 NOV 0.2
1998-99 100.5 DEC 11.6
1998-99 100.5 JAN 65.1
1998-99 100.5 FEB 6.9
1998-99 100.5 MAR 15.8
1998-99 100.5 APR 0.9
1998-99 100.5 MAY 0.0
1998-99 100.5 JUN 0.0
1999-00 63.6 JUL 0.0
1999-00 63.6 AUG 0.0
1999-00 63.6 SEP 0.0
1999-00 63.6 OCT 0.0
1999-00 63.6 NOV 0.9
1999-00 63.6 DEC 12.7
1999-00 63.6 JAN 19.4
1999-00 63.6 FEB 16.2
1999-00 63.6 MAR 10.7
1999-00 63.6 APR 3.7
1999-00 63.6 MAY 0.0
1999-00 63.6 JUN 0.0
2000-01 158.7 JUL 0.0
2000-01 158.7 AUG 0.0
2000-01 158.7 SEP 0.0
2000-01 158.7 OCT 0.0
2000-01 158.7 NOV 45.6
2000-01 158.7 DEC 50.3
2000-01 158.7 JAN 19.6
2000-01 158.7 FEB 9.8
2000-01 158.7 MAR 32.8
2000-01 158.7 APR 0.6
2000-01 158.7 MAY 0.0
2000-01 158.7 JUN 0.0
2001-02 132.4 JUL 0.0
2001-02 132.4 AUG 0.0
2001-02 132.4 SEP 0.0
2001-02 132.4 OCT 0.4
2001-02 132.4 NOV 0.0
2001-02 132.4 DEC 82.7
2001-02 132.4 JAN 13.7
2001-02 132.4 FEB 17.2
2001-02 132.4 MAR 15.9
2001-02 132.4 APR 2.5
2001-02 132.4 MAY 0.0
2001-02 132.4 JUN 0.0
2002-03 111.3 JUL 0.0
2002-03 111.3 AUG 0.0
2002-03 111.3 SEP 0.0
2002-03 111.3 OCT 0.0
2002-03 111.3 NOV 8.9
2002-03 111.3 DEC 35.8
2002-03 111.3 JAN 37.4
2002-03 111.3 FEB 19.5
2002-03 111.3 MAR 6.6
2002-03 111.3 APR 3.1
2002-03 111.3 MAY 0.0
2002-03 111.3 JUN 0.0
2003-04 100.9 JUL 0.0
2003-04 100.9 AUG 0.0
2003-04 100.9 SEP 0.0
2003-04 100.9 OCT 0.0
2003-04 100.9 NOV 4.2
2003-04 100.9 DEC 21.6
2003-04 100.9 JAN 45.2
2003-04 100.9 FEB 5.9
2003-04 100.9 MAR 20.7
2003-04 100.9 APR 3.3
2003-04 100.9 MAY 0.0
2003-04 100.9 JUN 0.0
2004-05 109.1 JUL 0.0
2004-05 109.1 AUG 0.0
2004-05 109.1 SEP 0.0
2004-05 109.1 OCT 0.0
2004-05 109.1 NOV 0.2
2004-05 109.1 DEC 22.8
2004-05 109.1 JAN 37.0
2004-05 109.1 FEB 22.3
2004-05 109.1 MAR 17.5
2004-05 109.1 APR 9.3
2004-05 109.1 MAY 0.0
2004-05 109.1 JUN 0.0
2005-06 78.2 JUL 0.0
2005-06 78.2 AUG 0.0
2005-06 78.2 SEP 0.0
2005-06 78.2 OCT 0.0
2005-06 78.2 NOV 17.9
2005-06 78.2 DEC 20.3
2005-06 78.2 JAN 7.1
2005-06 78.2 FEB 26.3
2005-06 78.2 MAR 6.5
2005-06 78.2 APR 0.1
2005-06 78.2 MAY 0.0
2005-06 78.2 JUN 0.0
2006-07 88.9 JUL 0.0
2006-07 88.9 AUG 0.0
2006-07 88.9 SEP 0.0
2006-07 88.9 OCT 22.6
2006-07 88.9 NOV 2.1
2006-07 88.9 DEC 7.5
2006-07 88.9 JAN 15.5
2006-07 88.9 FEB 33.5
2006-07 88.9 MAR 5.4
2006-07 88.9 APR 2.3
2006-07 88.9 MAY 0.0
2006-07 88.9 JUN 0.0
2007-08 103.8 JUL 0.0
2007-08 103.8 AUG 0.0
2007-08 103.8 SEP 0.0
2007-08 103.8 OCT 0.0
2007-08 103.8 NOV 3.4
2007-08 103.8 DEC 31.3
2007-08 103.8 JAN 17.5
2007-08 103.8 FEB 22.5
2007-08 103.8 MAR 29.1
2007-08 103.8 APR 0.0
2007-08 103.8 MAY 0.0
2007-08 103.8 JUN 0.0
2008-09 100.2 JUL 0.0
2008-09 100.2 AUG 0.0
2008-09 100.2 SEP 0.0
2008-09 100.2 OCT 0.1
2008-09 100.2 NOV 6.2
2008-09 100.2 DEC 49.2
2008-09 100.2 JAN 30.6
2008-09 100.2 FEB 11.6
2008-09 100.2 MAR 0.5
2008-09 100.2 APR 2.0
2008-09 100.2 MAY 0.0
2008-09 100.2 JUN 0.0
2009-10 74.1 JUL 0.0
2009-10 74.1 AUG 0.0
2009-10 74.1 SEP 0.0
2009-10 74.1 OCT 0.0
2009-10 74.1 NOV 0.0
2009-10 74.1 DEC 25.1
2009-10 74.1 JAN 35.6
2009-10 74.1 FEB 13.4
2009-10 74.1 MAR 0.0
2009-10 74.1 APR 0.0
2009-10 74.1 MAY 0.0
2009-10 74.1 JUN 0.0
2010-11 111.8 JUL 0.0
2010-11 111.8 AUG 0.0
2010-11 111.8 SEP 0.0
2010-11 111.8 OCT 0.0
2010-11 111.8 NOV 1.6
2010-11 111.8 DEC 32.0
2010-11 111.8 JAN 29.8
2010-11 111.8 FEB 34.1
2010-11 111.8 MAR 13.3
2010-11 111.8 APR 1.0
2010-11 111.8 MAY 0.0
2010-11 111.8 JUN 0.0
2011-12 36.7 JUL 0.0
2011-12 36.7 AUG 0.0
2011-12 36.7 SEP 0.0
2011-12 36.7 OCT 0.0
2011-12 36.7 NOV 0.0
2011-12 36.7 DEC 3.8
2011-12 36.7 JAN 20.8
2011-12 36.7 FEB 9.6
2011-12 36.7 MAR 1.5
2011-12 36.7 APR 1.0
2011-12 36.7 MAY 0.0
2011-12 36.7 JUN 0.0
2012-13 58.8 JUL 0.0
2012-13 58.8 AUG 0.0
2012-13 58.8 SEP 0.0
2012-13 58.8 OCT 0.0
2012-13 58.8 NOV 2.4
2012-13 58.8 DEC 19.6
2012-13 58.8 JAN 6.2
2012-13 58.8 FEB 20.5
2012-13 58.8 MAR 9.8
2012-13 58.8 APR 0.3
2012-13 58.8 MAY 0.0
2012-13 58.8 JUN 0.0
2013-14 129.9 JUL 0.0
2013-14 129.9 AUG 0.0
2013-14 129.9 SEP 0.0
2013-14 129.9 OCT 0.0
2013-14 129.9 NOV 10.0
2013-14 129.9 DEC 28.5
2013-14 129.9 JAN 42.4
2013-14 129.9 FEB 23.3
2013-14 129.9 MAR 24.5
2013-14 129.9 APR 1.2
2013-14 129.9 MAY 0.0
2013-14 129.9 JUN 0.0
2014-15 112.9 JUL 0.0
2014-15 112.9 AUG 0.0
2014-15 112.9 SEP 0.0
2014-15 112.9 OCT 0.0
2014-15 112.9 NOV 20.5
2014-15 112.9 DEC 11.3
2014-15 112.9 JAN 25.0
2014-15 112.9 FEB 46.2
2014-15 112.9 MAR 9.6
2014-15 112.9 APR 0.3
2014-15 112.9 MAY 0.0
2014-15 112.9 JUN 0.0
2015-16 55.1 JUL 0.0
2015-16 55.1 AUG 0.0
2015-16 55.1 SEP 0.0
2015-16 55.1 OCT 0.0
2015-16 55.1 NOV 0.0
2015-16 55.1 DEC 1.0
2015-16 55.1 JAN 25.6
2015-16 55.1 FEB 20.5
2015-16 55.1 MAR 0.9
2015-16 55.1 APR 7.1
2015-16 55.1 MAY 0.0
2015-16 55.1 JUN 0.0
2016-17 76.1 JUL 0.0
2016-17 76.1 AUG 0.0
2016-17 76.1 SEP 0.0
2016-17 76.1 OCT 0.0
2016-17 76.1 NOV 0.9
2016-17 76.1 DEC 30.1
2016-17 76.1 JAN 11.0
2016-17 76.1 FEB 5.0
2016-17 76.1 MAR 26.8
2016-17 76.1 APR 2.3
2016-17 76.1 MAY 0.0
2016-17 76.1 JUN 0.0
2017-18 112.3 JUL 0.0
2017-18 112.3 AUG 0.0
2017-18 112.3 SEP 0.0
2017-18 112.3 OCT 0.1
2017-18 112.3 NOV 0.1
2017-18 112.3 DEC 33.7
2017-18 112.3 JAN 31.2
2017-18 112.3 FEB 18.1
2017-18 112.3 MAR 22.2
2017-18 112.3 APR 6.9
2017-18 112.3 MAY 0.0
2017-18 112.3 JUN 0.0
2018-19 118.8 JUL 0.0
2018-19 118.8 AUG 0.0
2018-19 118.8 SEP 0.0
2018-19 118.8 OCT 0.1
2018-19 118.8 NOV 13.4
2018-19 118.8 DEC 14.1
2018-19 118.8 JAN 63.4
2018-19 118.8 FEB 16.8
2018-19 118.8 MAR 10.5
2018-19 118.8 APR 0.5
2018-19 118.8 MAY 0.0
2018-19 118.8 JUN 0.0
2019-20 69.2 JUL 0.0
2019-20 69.2 AUG 0.0
2019-20 69.2 SEP 0.0
2019-20 69.2 OCT 0.0
2019-20 69.2 NOV 12.6
2019-20 69.2 DEC 16.1
2019-20 69.2 JAN 13.2
2019-20 69.2 FEB 20.6
2019-20 69.2 MAR 2.1
2019-20 69.2 APR 4.3
2019-20 69.2 MAY 0.3
2019-20 69.2 JUN 0.0
2020-21 77.2 JUL 0.0
2020-21 77.2 AUG 0.0
2020-21 77.2 SEP 0.0
2020-21 77.2 OCT 0.0
2020-21 77.2 NOV 0.8
2020-21 77.2 DEC 33.0
2020-21 77.2 JAN 10.2
2020-21 77.2 FEB 27.5
2020-21 77.2 MAR 0.6
2020-21 77.2 APR 5.1
2020-21 77.2 MAY 0.0
2020-21 77.2 JUN 0.0
2021-22 97.4 JUL 0.0
2021-22 97.4 AUG 0.0
2021-22 97.4 SEP 0.0
2021-22 97.4 OCT 0.0
2021-22 97.4 NOV 5.0
2021-22 97.4 DEC 5.7
2021-22 97.4 JAN 52.1
2021-22 97.4 FEB 23.1
2021-22 97.4 MAR 9.3
2021-22 97.4 APR 2.2
2021-22 97.4 MAY 0.0
2021-22 97.4 JUN 0.0
2022-23 133.6 JUL 0.0
2022-23 133.6 AUG 0.0
2022-23 133.6 SEP 0.0
2022-23 133.6 OCT 0.0
2022-23 133.6 NOV 36.9
2022-23 133.6 DEC 64.7
2022-23 133.6 JAN 14.7
2022-23 133.6 FEB 7.3
2022-23 133.6 MAR 10.0
2022-23 133.6 APR 0.0
2022-23 133.6 MAY 0.0
2022-23 133.6 JUN 0.0
2023-24 71.3 JUL 0.0
2023-24 71.3 AUG 0.0
2023-24 71.3 SEP 0.0
2023-24 71.3 OCT 0.4
2023-24 71.3 NOV 1.9
2023-24 71.3 DEC 5.7
2023-24 71.3 JAN 45.6
2023-24 71.3 FEB 6.0
2023-24 71.3 MAR 11.2
2023-24 71.3 APR 0.5
2023-24 71.3 MAY 0.0
2023-24 71.3 JUN NA
#Graph all data

ggplot(df_pivot, aes(x = Month, y = Snowfall, group = SEASON, colour = SEASON)) +
  geom_line()+
  scale_y_continuous(breaks = seq(0, 100, by=10), limits=c(0,100)) +
  theme(legend.key.size = unit(.5, 'cm'), #change legend key size
        legend.key.height = unit(.5, 'cm'), #change legend key height
        legend.key.width = unit(.5, 'cm'), #change legend key width
        legend.text = element_text(size=5)) #change legend text font size

#Create a table of the months with the greatest snowfall (more than 40 inches)

df_max_snow <- arrange(filter(df_pivot, Snowfall > 40), desc(Snowfall))

kable(df_max_snow)
SEASON ANNUAL Month Snowfall
2001-02 132.4 DEC 82.7
1985-86 114.7 DEC 68.4
1976-77 199.4 JAN 68.3
1984-85 107.2 JAN 65.9
1998-99 100.5 JAN 65.1
2022-23 133.6 DEC 64.7
2018-19 118.8 JAN 63.4
1995-96 141.4 DEC 61.2
1976-77 199.4 DEC 60.7
1977-78 154.3 JAN 56.5
1957-58 124.7 FEB 54.2
1977-78 154.3 DEC 53.4
1981-82 112.4 JAN 53.2
2021-22 97.4 JAN 52.1
1983-84 132.5 DEC 52.0
1945-46 110.5 DEC 51.1
1944-45 120.7 JAN 50.6
2000-01 158.7 DEC 50.3
1959-60 115.6 FEB 49.5
2008-09 100.2 DEC 49.2
1965-66 98.3 JAN 48.0
2014-15 112.9 FEB 46.2
2000-01 158.7 NOV 45.6
2023-24 71.3 JAN 45.6
2003-04 100.9 JAN 45.2
1978-79 97.3 JAN 42.6
1996-97 97.6 JAN 42.4
2013-14 129.9 JAN 42.4