diff --git a/DESCRIPTION b/DESCRIPTION index 4ecfcea185913799d15b8f1d50e43638d5e04dd0..90b5e63dfa08b122ea259ab99f03e4b8c469effa 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: SWATdoctR Type: Package Title: Finding the right diagnoses and treatments for SWAT+ models -Version: 0.1.19 +Version: 0.1.20 Author: c(person("Christoph", "Schürz", email = "christoph.schuerz@ufz.de", role = c("aut", "cre")), diff --git a/R/plot_hru_pw.R b/R/plot_hru_pw.R index 6666988656a88807dec8e12a5673aca39a75c1dc..404815891964653364b4399e8edd33416ec99e7a 100644 --- a/R/plot_hru_pw.R +++ b/R/plot_hru_pw.R @@ -131,6 +131,7 @@ plot_hru_pw_day <- function(sim_verify, hru_id, var, years = 1900:2100, add_crop gg_crop <- ggplot(crop_dates) + geom_rect(aes(xmin = start, xmax = end, ymin = id- 0.35, ymax = id + 0.35, fill = hru)) + geom_text(aes(x = mid, y = id, label = op_typ)) + + scale_x_date(limits = c(min(plot_data$date), max(plot_data$date))) + scale_y_continuous(breaks = y_labels$id, labels = y_labels$hru) + scale_fill_manual(values = crop_col_assign$col) + labs(y = 'hru') +