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

reach_theme() with reversed legend guide

Browse source
This commit is contained in:
gnoblet 2022-11-20 18:55:03 -04:00
parent efc9e0ffef
commit 8dbabe7303
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
R/theme_reach.R
View file

@ -31,6 +31,7 @@ theme_reach <- function(
void = FALSE, void = FALSE,
legend_position = "right", legend_position = "right",
legend_direction = "vertical", legend_direction = "vertical",
legend_reverse = TRUE,
... ...
) { ) {
@ -47,17 +48,18 @@ theme_reach <- function(
# Default legend to right position # Default legend to right position
theme_reach <- theme_reach + theme_reach <- theme_reach +
ggplot2::theme(legend.position = legend_position) ggplot2::theme(legend.position = legend_position)
# Defaut legend to vertical direction # Defaut legend to vertical direction
theme_reach <- theme_reach + theme_reach <- theme_reach +
ggplot2::theme(legend.direction = legend_direction) ggplot2::theme(legend.direction = legend_direction)
# Add reach color palettes by default # Add reach color palettes by default
# (reversed guide is defaulted to TRUE for natural reading)
theme_reach <- list( theme_reach <- list(
theme_reach, theme_reach,
scale_color(palette = palette, discrete = discrete, reverse = reverse), scale_color(palette = palette, discrete = discrete, reverse = reverse, reverse_guide = legend_reverse),
scale_fill(palette = palette, discrete = discrete, reverse = reverse) scale_fill(palette = palette, discrete = discrete, reverse = reverse, reverse_guide = legend_reverse)
) )