Temp Plots

subplot(
  plot_ly(Newhaven, x = ~Year, y = ~Max, name = "Max")%>%add_lines(alpha=0.5),
  plot_ly(Newhaven, x = ~Year, y = ~Min,name="Min")%>%add_lines(alpha=0.5),
  plot_ly(Newhaven, x = ~Year, y = ~Avg,name="Avg")%>% 
    add_lines(alpha=0.5), nrows = 3
)

subplot(
  plot_ly(Warwick, x = ~Year, y = ~Max, name = "Max")%>%add_lines(alpha=0.5),
  plot_ly(Warwick, x = ~Year, y = ~Min,name="Min")%>%add_lines(alpha=0.5),
  plot_ly(Warwick, x = ~Year, y = ~Avg,name="Avg")%>% 
    add_lines(alpha=0.5), nrows = 3
)

subplot(
  plot_ly(Worchester, x = ~Year, y = ~Max, name = "Max")%>%add_lines(alpha=0.5),
  plot_ly(Worchester, x = ~Year, y = ~Min,name="Min")%>%add_lines(alpha=0.5),
  plot_ly(Worchester, x = ~Year, y = ~Avg,name="Avg")%>% 
    add_lines(alpha=0.5), nrows = 3
)