diff --git a/R/plot.n_factors.R b/R/plot.n_factors.R
index dd04bcfa9..a58af6888 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("Optimal number of", lab),
+      ylab = paste("Number of", lab),
       xlab = axis_lab
     )
   } else {
     attr(dataplot, "info") <- list(
-      xlab = paste("Optimal number of", lab),
+      xlab = paste("Number of", lab),
       ylab = axis_lab
     )
   }