From 4c12bbf81bc5e4b179f9904723674d53a9403941 Mon Sep 17 00:00:00 2001
From: Dominique Makowski <dom.mak19@gmail.com>
Date: Fri, 1 Dec 2023 09:34:06 +0000
Subject: [PATCH] minor x-axis

---
 R/plot.n_factors.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/plot.n_factors.R b/R/plot.n_factors.R
index a58af6888..dd04bcfa9 100644
--- a/R/plot.n_factors.R
+++ b/R/plot.n_factors.R
@@ -58,12 +58,12 @@ data_plot.n_factors <- function(x, data = NULL, type = "bar", ...) {
   # Inverse xlab and ylab for line plot
   if (type == "line") {
     attr(dataplot, "info") <- list(
-      ylab = paste("Number of", lab),
+      ylab = paste("Optimal number of", lab),
       xlab = axis_lab
     )
   } else {
     attr(dataplot, "info") <- list(
-      xlab = paste("Number of", lab),
+      xlab = paste("Optimal number of", lab),
       ylab = axis_lab
     )
   }