From 574eec970844a1a1675a049983b1c5737a174ff3 Mon Sep 17 00:00:00 2001
From: "Juan F. Fung" <juan.fung@nist.gov>
Date: Fri, 2 Aug 2024 14:57:18 -0400
Subject: [PATCH] Small edit to make num_stories a factor for plot_eal #23

---
 R/frbca.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/frbca.R b/R/frbca.R
index cf32099..9a0601e 100644
--- a/R/frbca.R
+++ b/R/frbca.R
@@ -547,7 +547,8 @@ plot_eal_by_loss <- function(output, systems="RCMF", designs="nonstructural", st
 plot_eal <- function(output, systems="RCMF", designs="nonstructural", stories=4) {
   plot.eal <- postprocess_eal(output, systems, designs, stories) |>
     dplyr::filter(loss_category %in% "loss_total") |>
-    dplyr::mutate(design=factor(design, levels=designs)) |>
+    dplyr::mutate(design=factor(design, levels=designs),
+                  num_stories=factor(num_stories)) |>
     ggplot(aes(x = num_stories, y = loss, fill = design)) +
     geom_bar(
       stat='identity',