diff --git a/.gitignore b/.gitignore
index 5b6a065..79a894b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+.DS_Store
\ No newline at end of file
diff --git a/R/distributions_plot_ui.R b/R/distributions_plot_ui.R
index 8017b02..89d551a 100644
--- a/R/distributions_plot_ui.R
+++ b/R/distributions_plot_ui.R
@@ -43,7 +43,7 @@ distributions_plot_ui <- function(
           shiny::selectInput(
             ns("plot_type_choice"),
             "Select or Search for Plot Type",
-            choices = c("Violin", "Box")
+            choices = c("Box", "Violin")
           )
         ),
         shiny::column(
diff --git a/R/drilldown_histogram_server.R b/R/drilldown_histogram_server.R
index 10c0391..e0e2250 100644
--- a/R/drilldown_histogram_server.R
+++ b/R/drilldown_histogram_server.R
@@ -62,7 +62,7 @@ drilldown_histogram_server <- function(
 
       plotly_server(
         "histogram",
-        plot_data = histogram_data()
+        plot_data = histogram_data
       )
 
       return(histogram_data)
diff --git a/R/plotly_bar.R b/R/plotly_bar.R
index f9785a3..3ae3210 100644
--- a/R/plotly_bar.R
+++ b/R/plotly_bar.R
@@ -76,7 +76,7 @@ plotly_bar <- function(
     hoverinfo = "text"
   ) %>%
     plotly::layout(
-      legend = list(orientation = "h", x = 0, y = 1),
+      legend = list(orientation = "h", x = 0, yref = "paper", y = 1.5),
       title = title,
       xaxis = list(title = xlab),
       yaxis = list(title = ylab)