p = ggplot() + 
  geom_line(data = Month_time,aes(x = Month,y = CarrierDelay),color = "red") +
  geom_line(data = Month_time,y = WeatherDelay),color = "purple") +
  geom_line(data = Month_time,y = NASDelay),color = "yellow") +
  geom_line(data = Month_time,y = SecurityDelay),color = "green") +
  geom_line(data = Month_time,y = LateAircraftDelay),color = "blue") +
  xlab('Month') +
  ylab('Delay Types [min]')
print(p)