additional plot cusomization options

R/plot_combined.R

@@ -3,12 +3,14 @@
 #' @param bear1d_list Bear1D list as retrieved by \code{\link{calculate_bear1d}}
 #' @param text_size size of plot title and axis labels, default: 20
 #' @param line_width line width, default: 1.25
+#' @param xbreaks breaks on x axis, default:  200
 #' @return combined plot
 #' @export
 #' @importFrom rlang .data
 #' @importFrom  ggplot2 ggplot theme_bw geom_line scale_color_gradient2
 #' scale_y_continuous scale_x_continuous theme element_text xlab ylab labs
-plot_combined <- function(bear1d_list, text_size = 20, line_width = 1.25)
+
+plot_combined <- function(bear1d_list, text_size = 20, line_width = 1.25, xbreaks = 200)
 {
   inputs <- attr(bear1d_list, "inputs")
 
@@ -60,7 +62,7 @@ plot_combined <- function(bear1d_list, text_size = 20, line_width = 1.25)
     ) + # Adjust the tick spacing as needed
     ggplot2::scale_x_continuous(
       limits = c(0, tmax),
-      breaks = seq(0, tmax, by = 400)
+      breaks = seq(0, tmax, by = xbreaks)
     )
 
    list(plot = combined_plot,

vignettes/Generic_Model.Rmd

@@ -42,7 +42,7 @@ bear1d_Generic_combined <- kwb.1dbear::calculate_bear1d(
 )
 
 # Combine the plots
-Generic_combined <- kwb.1dbear::plot_combined(bear1d_Generic_combined)
+Generic_combined <- kwb.1dbear::plot_combined(bear1d_Generic_combined, xbreaks = 500)
 
 print(Generic_combined$plot)
 

vignettes/case-studies.Rmd

@@ -107,7 +107,7 @@ bear1d_vienna_combined <- kwb.1dbear::calculate_bear1d(
   hl_values = c(500, 2000),
   D_values = 10,
   v_values = 21.3,
-  t_values = seq(0, 350, by = 1),
+  t_values = seq(0, 400, by = 1),
   x_values = 141
 )