diff --git a/R/facet-.R b/R/facet-.R index 8faafc1428..def19f221a 100644 --- a/R/facet-.R +++ b/R/facet-.R @@ -237,8 +237,8 @@ Facet <- ggproto("Facet", NULL, # Set panel names table$layout$name <- paste( "panel", - rep(seq_len(dim[2]), dim[1]), - rep(seq_len(dim[1]), each = dim[2]), + rep(seq_len(dim[2]), each = dim[1]), + rep(seq_len(dim[1]), dim[2]), sep = "-" )