diff --git a/NEWS.md b/NEWS.md index 44f486d..5305ae6 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# [kwb.geosalz 0.7.0](https://github.com/KWB-R/kwb.geosalz/releases/tag/v0.7.0) 2024-03-13 +# [kwb.geosalz 0.7.0](https://github.com/KWB-R/kwb.geosalz/releases/tag/v0.7.0) 2024-03-19 * Add combined plot for wells with measurement chains (i.e. 9,10,13) showing EC (top plot and daily abstraction rates of this well (middle plot) and total diff --git a/R/plot_measurementchain_and_welloperation.R b/R/plot_measurementchain_and_welloperation.R index 65be78e..0c621b1 100644 --- a/R/plot_measurementchain_and_welloperation.R +++ b/R/plot_measurementchain_and_welloperation.R @@ -66,7 +66,8 @@ sum_well <- dat_well %>% sum_well$ma7 <- zoo::rollmean(sum_well$total_q, k = 7, fill = NA, align = "right") sum_well$ma10 <- zoo::rollmean(sum_well$total_q, k = 10, fill = NA, align = "right") -plot_q_well <- ggplot2::ggplot(sum_well, ggplot2::aes(x = as.Date(bwb_datum), y = total_q)) + +plot_q_well <- ggplot2::ggplot(sum_well, ggplot2::aes(x = as.Date(bwb_datum), + y = total_q)) + ggplot2::geom_bar(stat = "identity", width=1, color = "blue") + ggplot2::labs(x="", y = sprintf("Q, Brunnen %2d (m3/d)", brunnen_nr)) + ggplot2::theme_bw() + @@ -90,13 +91,12 @@ plot_q_wellfield <- ggplot2::ggplot(sum_wellfield, ggplot2::aes(x = as.Date(bwb_ ggplot2::geom_bar(stat = "identity", width=1, color = "blue") + ggplot2::labs(x="Zeit", y = "Q, Brunnenfeld K-Galerie (m3/d)") + ggplot2::theme_bw() + - ggplot2::xlim(date_min, date_max) + - ggplot2::scale_x_date(date_breaks = "1 month", date_labels = "%b %Y") + + ggplot2::scale_x_date(date_breaks = "1 month", date_labels = "%b %Y", + limits = c(date_min, date_max)) + ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 0, vjust = 0.5, hjust = 1)) - combined_plot <- cowplot::plot_grid(p_well, plot_q_well, plot_q_wellfield,