new plot

Author: dil-shana

example/predict/AR/comp_norm/Rplots.pdf

@@ -5,6 +5,7 @@ library(ggplot2)
 # Load the data
 data <- read.csv("predict_data_AR.csv")
 
+max_value <- max(c(data$AR, data$predicted))
 # Create the plot
 ggplot(data, aes(x = AR, y = predicted)) +
   geom_point(color = 'blue', alpha = 0.6) +  # Adds points with some transparency
@@ -13,8 +14,9 @@ ggplot(data, aes(x = AR, y = predicted)) +
        x = "Actual Values",
        y = "Predicted values") +
   theme_minimal() +
-  theme(plot.title = element_text(hjust = 0.5))
-
+  theme(plot.title = element_text(hjust = 0.5)) +
+  xlim(NA, 250) +  # Set x-axis limit
+  ylim(NA, 250)  # Set y-axis limit
 # Save the plot as a PNG file
 ggsave("ar_comp.png")
 

example/predict/AR/comp_norm/ar_comp.png

@@ -13,7 +13,9 @@ ggplot(data, aes(x = AR, y = predicted)) +
        x = "Actual Values",
        y = "Predicted values") +
   theme_minimal() +
-  theme(plot.title = element_text(hjust = 0.5))
+  theme(plot.title = element_text(hjust = 0.5))+
+  xlim(NA, 250) +  # Set x-axis limit
+  ylim(NA, 250)  # Set y-axis limit
 
 # Save the plot as a PNG file
 ggsave("ar_uncomp.png")

example/predict/AR/comp_norm/plot_ar_vs_predicted.R

@@ -13,7 +13,10 @@ ggplot(data, aes(x = AR, y = predicted)) +
        x = "Actual Values",
        y = "Predicted values") +
   theme_minimal() +
-  theme(plot.title = element_text(hjust = 0.5))
+  theme(plot.title = element_text(hjust = 0.5)) +
+  xlim(NA, 175) +  # Set x-axis limit
+  ylim(NA, 175)  # Set y-axis limit
+
 
 # Save the plot as a PNG file
 ggsave("reg_comp.png")