diff --git a/R/create_model_plots.R b/R/create_model_plots.R
index d71cc5d..71ddb47 100644
--- a/R/create_model_plots.R
+++ b/R/create_model_plots.R
@@ -1,3 +1,4 @@
+#C:\Users\wseis\Documents\github-repos\fhpredict>git push origin review-wolfgang
 # create_model_plots -----------------------------------------------------------
 create_model_plots <- function(tests, model)
 {
diff --git a/R/plot_model_calibration.R b/R/plot_model_calibration.R
index 3a7a848..4b35984 100644
--- a/R/plot_model_calibration.R
+++ b/R/plot_model_calibration.R
@@ -49,7 +49,7 @@ plot_model_calibration <- function(tests, ref_model = "model_01")
     - .data$used
   )
 
-  colour_values <- c("falsch" = "red3", "richtig" = "steelblue")
+  colour_values <- c("falsch" = "red2", "richtig" = "steelblue")
 
   aesthetics <- ggplot2::aes(
     x = .data$model,
@@ -68,8 +68,14 @@ plot_model_calibration <- function(tests, ref_model = "model_01")
     ggplot2::coord_flip() +
     ggplot2::facet_grid(. ~ test, labeller = labeller) +
     ggplot2::xlab("")+
+    #ggplot2::scale_shape(name = "Benutzt")+
     ggplot2::scale_color_manual(values = colour_values) +
     #ggplot2::ggtitle("Auswertung Teststatistiken und Bestimmtheitsma\u00df") +
+    labs(x = "",
+         y = expression("Bestimmtheitsma\u00df R"^2),
+         shape = "benutzt",
+         col = "Ergebnis")
     ggplot2::theme_bw(base_size = 16) +
-    ggplot2::ylab("Bestimmtheitsma\u00df R2")
+    ggplot2::ylab(expression("Bestimmtheitsma\u00df R"^2))
 }
+