diff --git a/notes/gefs_forecasts.qmd b/notes/gefs_forecasts.qmd index 033c1d3e..088316c8 100644 --- a/notes/gefs_forecasts.qmd +++ b/notes/gefs_forecasts.qmd @@ -148,15 +148,16 @@ ggplot(data = ens_forecast) + facet_wrap(~meta_station_name, ncol = 6) + theme_bw() -ggplot(data = ens_forecast) + - geom_line(aes(x = time, y = TMP, color = meta_station_name)) + - facet_wrap(~ens, ncol = 6) - - #geom_sf(aes(fill = TMP)) + - facet_wrap(~meta_station_name, ncol = 6) + - scale_fill_viridis_c(option = "plasma", na.value = "white") + - theme_void() + - theme(legend.position = "none") +ens_long <- ens_forecast |> + tidyr::pivot_longer(cols = -c(ens, FID, meta_station_name, meta_station_id, time, geometry), + names_to = "var", + values_to = "value") |> + mutate(time = lubridate::ymd_hms(time)) +a <- ggplot(data = ens_long) + + geom_smooth(aes(x = time, y = value, color = meta_station_name)) + + facet_wrap(~var, ncol = 4, scales = 'free_y') + +ggsave(a, width = 20, height = 10, filename = 'fig.pdf') ``` ```{r}