gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct fill error

Browse source
This commit is contained in:
gnoblet 2023-05-28 15:35:50 +02:00
parent 079b3f8fe4
commit 870107b2bc
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
R/scale.R
View file

@ -138,6 +138,7 @@ scale_color <- function(initiative = "reach", palette = "main", discrete = TRUE,
#' @export #' @export
scale_fill <- function(initiative = "reach", palette = "main", discrete = TRUE, reverse = FALSE, reverse_guide = TRUE, ...) { scale_fill <- function(initiative = "reach", palette = "main", discrete = TRUE, reverse = FALSE, reverse_guide = TRUE, ...) {
if (initiative == "reach") { if (initiative == "reach") {
pal <- pal_reach(palette) pal <- pal_reach(palette)
@ -219,7 +220,7 @@ scale_fill <- function(initiative = "reach", palette = "main", discrete = TRUE,
if (discrete) { if (discrete) {
ggplot2::discrete_scale( ggplot2::discrete_scale(
"colour", "fill",
paste0(initiative, "_", palette), paste0(initiative, "_", palette),
palette = pal, palette = pal,
guide = ggplot2::guide_legend( guide = ggplot2::guide_legend(