Skip to content
Snippets Groups Projects

Convert to new add_ticks

Merged Laura A DeCicco requested to merge more_style_updates into main
9 files
+ 182
97
Compare changes
  • Side-by-side
  • Inline
Files
9
@@ -14,7 +14,7 @@ bp_flow_plot <- reactive({
bp_flow_plot <- ggplot(data = box_data) +
geom_boxplot(aes(x = all, y = Q)) +
add_ticks(log_y = TRUE, include_x = FALSE) +
add_ticks(y_scale = "log", x_scale = "remove") +
theme_wqGraph() +
labs(y = eList$INFO$daily_label_small,
x = "Comparison of\nSampled Days to All Days",
@@ -43,7 +43,7 @@ title <- paste0(eList$INFO$site_no, " ", eList$INFO$shortName)
bp_flow_plot <- ggplot(data = box_data) +
geom_boxplot(aes(x = all, y = Q)) +
add_ticks(log_y = TRUE, include_x = FALSE) +
add_ticks(y_scale = "log", x_scale = "remove") +
theme_wqGraph() +
labs(y = eList$INFO$flow_label_small,
x = "Comparison of\nSampled Days to All Days",
Loading