From a1c71ee6c810339ae542f839d1d5104bd5257c66 Mon Sep 17 00:00:00 2001
From: teng-gao <tgaoteng@gmail.com>
Date: Wed, 18 Sep 2024 10:59:36 -0400
Subject: [PATCH] fix ggplot legend #182

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

diff --git a/R/vis.R b/R/vis.R
index 2411dbc..8376c50 100644
--- a/R/vis.R
+++ b/R/vis.R
@@ -162,7 +162,8 @@ plot_psbulk = function(
     p = p + geom_point(
             aes(shape = str_detect(state_post, '_2'), alpha = str_detect(state_post, '_2')),
             size = dot_size,
-            na.rm = TRUE
+            na.rm = TRUE,
+            show.legend = TRUE
         ) +
         geom_hline(
             data = data.frame(y = c(0,1), variable = 'pHF'),