diff --git a/R/plot_box.R b/R/plot_box.R
index 5a830d1..d0165dd 100644
--- a/R/plot_box.R
+++ b/R/plot_box.R
@@ -46,7 +46,7 @@ plot_box_single <- function(data, pri, sec=NULL, seed = 2103) {
 
   if (is.null(sec)) {
     sec <- "All"
-    data[[y]] <- sec
+    data[[sec]] <- sec
   }
 
   discrete <- !data_type(data[[sec]]) %in% "continuous"