Update commonMachineLearningRegression.R

Author: koenderks

R/commonMachineLearningRegression.R

@@ -651,7 +651,7 @@
       nTest <- result[["ntest"]]
       plotData <- data.frame(y = c(nTrainAndValid, nTest), x = c("Train and validation", "Test"), group = c(1, 1))
       p <- ggplot2::ggplot(data = plotData, mapping = ggplot2::aes(x = group, y = y, fill = factor(x, levels = c("Test", "Train and validation")))) +
-        ggplot2::geom_bar(stat = "identity", col = "black", size = 0.5) +
+        ggplot2::geom_bar(stat = "identity", col = "black", linewidth = 0.5) +
         ggplot2::scale_y_continuous(name = NULL, limits = c(0, nTrainAndValid + nTest + ((nTrainAndValid + nTest) / 5))) + # adjust limits to include "Total" text
         ggplot2::coord_flip() +
         ggplot2::xlab(NULL) +