# C. Wybierz jeden konkretny dzień i lotnisko, a następnie dla tego konkretnego dnia i
# lotniska zrób wykres zmiany ciśnienia w ciągu kolejnych godzin.
#D. to samo co w C. plus rozkład prędkości wiatru
require("dplyr")

dane <- weather %>% filter(origin =="JFK",month==7,day==16) %>%
  group_by(origin,month,day,hour,pressure,wind_speed) %>%
  select(origin,month,day,hour,pressure,wind_speed)

#Odpowiedź na C.
  ggplot(dane,aes(x=hour,y=pressure,fill=wind_speed))+coord_cartesian(ylim=c(1015,1025))+
  geom_bar(stat = 'identity',fill="#56B4E9",colour="black",position = 'dodge')+
  ggtitle("Rozkład godzinowy ciśnienia na lotnisku JFK w dniu 16.07.2013")

#Odpowiedź na D.

 ggplot()+
    geom_bar(mapping = aes(x = dane$hour, y = dane$pressure*17/1022.6), stat = "identity") +
    geom_point(mapping = aes(x = dane$hour, y = dane$wind_speed)) +
    geom_line(mapping = aes(x = dane$hour, y = dane$wind_speed)) +
    scale_y_continuous(name = expression("Prędkość wiatru [m/s]"),sec.axis = sec_axis(~ . * 1022.6 / 17 , name = "Ciśnienie w hPa"), limits = c(0, 17))