Merge pull request #43 from KWB-R/dev

Release 0.7.0

NEWS.md

@@ -1,4 +1,4 @@
-# [kwb.geosalz 0.7.0](https://github.com/KWB-R/kwb.geosalz/releases/tag/v0.7.0) <small>2024-03-13</small>
+# [kwb.geosalz 0.7.0](https://github.com/KWB-R/kwb.geosalz/releases/tag/v0.7.0) <small>2024-03-19</small>
 
 * 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 

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,