I downloaded weather data for San Diego and applied the transforms that we did in class. The first plot of the data we will look at is the Minimum temperature (TMIN) Graph

sd_airport %>%
   ggplot(aes(x = TMIN)) +
   geom_density() +
   geom_rug() +
   ggtitle("TMIN")







We also created other graphs in class such as these to analyze the data.

 rain_5_8 %>% 
   ggplot(aes(x = yr, y = z_score)) +
   geom_point() +
   geom_line(size = .1) 







 rain_5_8 %>% 
   ggplot(aes(x = rain)) +
   geom_histogram( )
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.







 cal24 %>% 
   ggplot(aes(x = DATE, y = TMAX)) +
   geom_point(size = .2, alpha = .2) +
   geom_smooth(color="red")
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'







cal24 %>% 
  group_by(DATE) %>% 
  summarize(MTMAX = mean(TMAX)) %>% 
  ggplot(aes(x = DATE,y = MTMAX)) +
  geom_point(size = .5)