NOAA_ANALYSIS

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

## 
## Attaching package: 'reshape2'

## The following object is masked from 'package:tidyr':
## 
##     smiths

ggplot(y, aes(Year, mean, col="green")) + geom_col() + ggtitle("Test")

ggplot(df2[df2$variable == "Jan",], aes(Year, value)) + geom_line() + geom_smooth()

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'