Skip to content

Commit

Permalink
Replace viridis with scales
Browse files Browse the repository at this point in the history
  • Loading branch information
@sean-rohan-NOAA
sean-rohan-NOAA committed Oct 1, 2024
1 parent bba91c7 commit 6570eb1
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions R/plot_cpue_maps.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -291,7 +291,7 @@ plot_cpue_maps <- function(gapindex_cpue, crs = "EPSG:3338", breaks = NULL, fig_
shape = POSITIVE_CATCH),
show.legend = TRUE) +
scale_color_manual(name = expression(CPUE~(kg%.%km^-2)),
values = c("grey30", viridis::viridis_pal(option = "turbo",
values = c("grey30", scales::viridis_pal(option = "turbo",
direction = 1)(n_levels)[1:(n_levels-1)]),
drop = FALSE) +
scale_shape_manual(guide = "none",
Expand Down Expand Up @@ -418,7 +418,7 @@ plot_cpue_maps <- function(gapindex_cpue, crs = "EPSG:3338", breaks = NULL, fig_
shape = POSITIVE_CATCH),
show.legend = TRUE) +
scale_color_manual(name = expression(CPUE~(kg%.%km^-2)),
values = c("grey30", viridis::viridis_pal(option = "turbo",
values = c("grey30", scales::viridis_pal(option = "turbo",
direction = 1)(n_levels)[1:(n_levels-1)]),
drop = FALSE) +
scale_shape_manual(guide = "none",
Expand Down Expand Up @@ -508,7 +508,7 @@ plot_cpue_maps <- function(gapindex_cpue, crs = "EPSG:3338", breaks = NULL, fig_
geom_sf(data = cpue_stack$map_layers$survey.strata, fill = NA, color = "black") +
geom_sf(data = cpue_stack$map_layers$graticule, alpha = 0.3, linewidth = 0.2) +
scale_fill_manual(name = expression(CPUE~(kg%.%km^-2)),
values = c("white", viridis::viridis_pal(option = "mako",
values = c("white", scales::viridis_pal(option = "mako",
direction = -1)(n_levels)[2:n_levels]),
drop = FALSE) +
scale_x_continuous(breaks = cpue_stack$map_layers$lon.breaks,
Expand Down Expand Up @@ -563,7 +563,7 @@ plot_cpue_maps <- function(gapindex_cpue, crs = "EPSG:3338", breaks = NULL, fig_
shape = POSITIVE_CATCH),
show.legend = TRUE) +
scale_color_manual(name = expression(CPUE~(kg%.%km^-2)),
values = c("grey30", viridis::viridis_pal(option = "turbo",
values = c("grey30", scales::viridis_pal(option = "turbo",
direction = 1)(n_levels)[1:(n_levels-1)]),
drop = FALSE) +
scale_shape_manual(guide = "none",
Expand Down Expand Up @@ -653,7 +653,7 @@ plot_cpue_maps <- function(gapindex_cpue, crs = "EPSG:3338", breaks = NULL, fig_
shape = POSITIVE_CATCH),
show.legend = TRUE) +
scale_color_manual(name = expression(CPUE~(kg%.%km^-2)),
values = c("grey30", viridis::viridis_pal(option = "turbo",
values = c("grey30", scales::viridis_pal(option = "turbo",
direction = 1)(n_levels)[1:(n_levels-1)]),
drop = FALSE) +
scale_shape_manual(guide = "none",
Expand Down

0 comments on commit 6570eb1

Please sign in to comment.