library(ggplot2)
ggplot(snowfall, aes(x = total_snow)) +
geom_histogram(binwidth = 50) +
labs(
title = "Annual Snowfall",
subtitle = "Paradise, Mt. Rainier National Park",
x = "Snowfall (in.)",
y = "Number of Years",
caption = "Source: National Parks Services"
)
ggplot(snowfall, aes(x = year_start, y = total_snow, group = 1)) +
geom_line() +
labs(
title = "Annual Snowfall",
subtitle = "Paradise, Mt. Rainier National Park",
y = "Snowfall (in.)",
x = "Year",
caption = "Source: National Parks Services"
)
Run the code above in your browser using DataLab