I need to scale this, I need the left y-axis to be the min and max of basis and the right y-axis to be min-max of fut.

> library(ggplot2)
> library(gridExtra)
> 
> summary(Weekly_avg)
  Period_WEEK    occurrences      Value_mean    DEC_BASIS_mean      PEO_BASIS_mean    
 Min.   :37.0   Min.   : 1.00   Min.   :11.40   Min.   :-0.150000   Min.   :-0.29000  
 1st Qu.:40.5   1st Qu.: 5.00   1st Qu.:50.70   1st Qu.:-0.045000   1st Qu.:-0.10500  
 Median :44.0   Median :17.00   Median :82.50   Median : 0.000000   Median :-0.06000  
 Mean   :44.0   Mean   :12.47   Mean   :68.42   Mean   :-0.002667   Mean   :-0.08933  
 3rd Qu.:47.5   3rd Qu.:18.00   3rd Qu.:90.25   3rd Qu.: 0.060000   3rd Qu.:-0.03500  
 Max.   :51.0   Max.   :19.00   Max.   :95.00   Max.   : 0.110000   Max.   : 0.00000  
 ESL_BASIS_mean       FUT_1_mean      FUT_2_mean     FUT_1_scaled       FUT_2_scaled      
 Min.   :-0.33000   Min.   :3.720   Min.   :3.870   Min.   :-0.33000   Min.   :-0.259688  
 1st Qu.:-0.16500   1st Qu.:3.905   1st Qu.:4.040   1st Qu.:-0.24328   1st Qu.:-0.180000  
 Median :-0.06000   Median :4.270   Median :4.380   Median :-0.07219   Median :-0.020625  
 Mean   :-0.08133   Mean   :4.159   Mean   :4.278   Mean   :-0.12437   Mean   :-0.068437  
 3rd Qu.: 0.03500   3rd Qu.:4.335   3rd Qu.:4.445   3rd Qu.:-0.04172   3rd Qu.: 0.009844  
 Max.   : 0.12000   Max.   :4.570   Max.   :4.680   Max.   : 0.06844   Max.   : 0.120000  
> 
> # Update the plot with manual y-axis limits
> combined_plot <- ggplot(Weekly_avg, aes(x = Period_WEEK)) +
+   # Plot basis variables on the primary y-axis (left)
+   geom_line(aes(y = DEC_BASIS_mean, color = "DEC_BASIS_mean")) +
+   geom_line(aes(y = PEO_BASIS_mean, color = "PEO_BASIS_mean")) +
+   geom_line(aes(y = ESL_BASIS_mean, color = "ESL_BASIS_mean")) +
+   geom_point(aes(y = DEC_BASIS_mean, color = "DEC_BASIS_mean")) +
+   geom_point(aes(y = PEO_BASIS_mean, color = "PEO_BASIS_mean")) +
+   geom_point(aes(y = ESL_BASIS_mean, color = "ESL_BASIS_mean")) +
+   
+   # Plot futures variables on the secondary y-axis (right) with scaled y-values
+   geom_line(aes(y = FUT_1_mean, color = "FUT_1_mean"), linetype = "dashed") +
+   geom_line(aes(y = FUT_2_mean, color = "FUT_2_mean"), linetype = "dashed") +
+   geom_point(aes(y = FUT_1_mean, color = "FUT_1_mean"), shape = 17) +
+   geom_point(aes(y = FUT_2_mean, color = "FUT_2_mean"), shape = 17) +
+   
+   # Labels and themes
+   labs(title = "Basis and Futures Variables Over Weeks", x = "Period Week", y = "Basis Mean Value") +
+   theme_minimal(base_size = 14) +
+   theme(legend.title = element_blank(),
+         legend.position = "bottom",
+         legend.key.size = unit(1.5, "lines"),
+         axis.title = element_text(face = "bold"),
+         axis.text = element_text(size = 12)) +
+   
+   # Define the secondary y-axis for futures with the transformation and limits
+   scale_y_continuous(
+     name = "Basis Mean Value",
+     sec.axis = sec_axis(trans = ~ ., name = "Futures Mean Value")
+   ) +
+   
+   # Customize x-axis to show all weeks
+   scale_x_continuous(breaks = seq(min(Weekly_avg$Period_WEEK), max(Weekly_avg$Period_WEEK), by = 1))
> 
> # Display the updated plot
> # Display the updated plot
> print(combined_plot)