diff --git a/NEWS.md b/NEWS.md index f4b0181..3f08920 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,7 +1,7 @@ # gglgbtq (development version) * Added `scale_color_lgbtq()` and `scale_fill_lgbtq()` for convenience. -* Implemented the following palettes: `acesthetic`, `analterous`, `asensual`, `ace_spectrum`, `aro_spectrum`, `aroace`, `androsexual`, `gynesexual`, `helian`, `lunarian`, `solarian`, `stellarian`, `amatopunk`, `bear`, `butch`, `femme`, `otter`. +* Implemented the following palettes: `acesthetic`, `analterous`, `asensual`, `ace_spectrum`, `aro_spectrum`, `aroace`, `androsexual`, `gynesexual`, `abrosexual`, `helian`, `lunarian`, `solarian`, `stellarian`, `amatopunk`, `bear`, `butch`, `femme`, `otter`, `queerhet`. # gglgbtq 0.1.1 diff --git a/R/data.R b/R/data.R index fba12cf..9071a17 100644 --- a/R/data.R +++ b/R/data.R @@ -70,6 +70,9 @@ pride_data <- list( gynesexual = list( colors = c("#F3A9B6", "#903F2A", "#5A953B") ), + abrosexual = list( + colors = c("#37CBBD", "#95E9B1", "#FFFFFF", "#FEA396", "#F35777") + ), lesbian_7 = list( colors = c("#A60061", "#B95594", "#D162A8", "#FFFFFF", "#E5ADD1", "#C64D53", "#8C1801") ), @@ -124,5 +127,9 @@ pride_data <- list( ), otter = list( colors = c("#23A8FA", "#9AD7FC", "#FFFFFF", "#B4B4B4", "#2A2A2A") + ), + # Uncategorized + queerhet = list( + colors = c("#4E8492", "#6CCB99", "#727D6E", "#DAC686", "#B86962") ) ) diff --git a/R/themes-extract.R b/R/themes-extract.R index 1111c80..64b09c5 100644 --- a/R/themes-extract.R +++ b/R/themes-extract.R @@ -6,6 +6,7 @@ extract_theme <- function(palette) { "intersex" = , "pansexual" = , "philadelphia" = , + "queerhet" = , "rainbow" = theme_lgbtq_white, "agender" = theme_agender, "demiboy" = theme_demiboy, diff --git a/README.Rmd b/README.Rmd index c562284..5f3374f 100644 --- a/README.Rmd +++ b/README.Rmd @@ -54,7 +54,7 @@ data <- data.frame( ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + scale_fill_lgbtq("pansexual") ``` Use matching `theme_lgbtq()` to make colors stand out the most: @@ -62,7 +62,7 @@ Use matching `theme_lgbtq()` to make colors stand out the most: ```{r ggplot2_theme, fig.height=3} ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + + scale_fill_lgbtq("pansexual") + theme_lgbtq("pansexual") ``` @@ -71,16 +71,17 @@ ggplot(data, aes(x = x, y = y, fill = group)) + ```{r ggplot2_theme_custom, fig.height=3} ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + + scale_fill_lgbtq("pansexual") + theme_lgbtq("pansexual", legend.position = "left") ``` -Almost all ggplot2 uses of `palette_lgbtq()` will be with `color` and `fill` scales, so the `scale_color_lgbtq()` and `scale_fill_lgbtq()` functions provide a shorthand and more descriptive notation: +Almost all ggplot2 uses of `palette_lgbtq()` will be with `color` and `fill` scales, so the `scale_color_lgbtq()` and `scale_fill_lgbtq()` functions provide a shorthand and more descriptive notation; there's nothing stopping you, however, from passing them manually or using in any other package, though the ggplot2 dependency might be a pretty large one. ```{r ggplot2_scale, fig.height=3} ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_lgbtq("pansexual") + scale_fill_manual(values = palette_lgbtq("pansexual")) + + theme_lgbtq("pansexual", legend.position = "left") ``` ## Gallery diff --git a/README.md b/README.md index 64037d9..75393dd 100644 --- a/README.md +++ b/README.md @@ -31,7 +31,7 @@ To list all available palettes, call: ``` r show_pride() -## # A tibble: 37 × 2 +## # A tibble: 41 × 2 ## palettes lengths ## ## 1 rainbow 6 @@ -44,7 +44,7 @@ show_pride() ## 8 nonbinary 4 ## 9 philadelphia 8 ## 10 progress 11 -## # ℹ 27 more rows +## # ℹ 31 more rows ``` The most common use case is to use palettes with ggplot2: @@ -61,7 +61,7 @@ data <- data.frame( ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + scale_fill_lgbtq("pansexual") ``` ![](README_files/figure-gfm/ggplot2-1.png) @@ -71,7 +71,7 @@ Use matching `theme_lgbtq()` to make colors stand out the most: ``` r ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + + scale_fill_lgbtq("pansexual") + theme_lgbtq("pansexual") ``` @@ -83,7 +83,7 @@ it’s fully customizable: ``` r ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_manual(values = palette_lgbtq("pansexual")) + + scale_fill_lgbtq("pansexual") + theme_lgbtq("pansexual", legend.position = "left") ``` @@ -91,12 +91,16 @@ ggplot(data, aes(x = x, y = y, fill = group)) + Almost all ggplot2 uses of `palette_lgbtq()` will be with `color` and `fill` scales, so the `scale_color_lgbtq()` and `scale_fill_lgbtq()` -functions provide a shorthand and more descriptive notation: +functions provide a shorthand and more descriptive notation; there’s +nothing stopping you, however, from passing them manually or using in +any other package, though the ggplot2 dependency might be a pretty large +one. ``` r ggplot(data, aes(x = x, y = y, fill = group)) + geom_bar(stat = "identity", position = "dodge") + - scale_fill_lgbtq("pansexual") + scale_fill_manual(values = palette_lgbtq("pansexual")) + + theme_lgbtq("pansexual", legend.position = "left") ``` ![](README_files/figure-gfm/ggplot2_scale-1.png) diff --git a/README_files/figure-gfm/ggplot2_scale-1.png b/README_files/figure-gfm/ggplot2_scale-1.png index 75a268f..302eae5 100644 Binary files a/README_files/figure-gfm/ggplot2_scale-1.png and b/README_files/figure-gfm/ggplot2_scale-1.png differ diff --git a/man/palette_lgbtq.Rd b/man/palette_lgbtq.Rd index fd3ce5f..5ee4e54 100644 --- a/man/palette_lgbtq.Rd +++ b/man/palette_lgbtq.Rd @@ -43,6 +43,7 @@ Currently available palettes are: \item \code{pansexual} (3 colors) \item \code{androsexual} (3 colors) \item \code{gynesexual} (3 colors) +\item \code{abrosexual} (5 colors) \item \code{lesbian_7} (7 colors) \item \code{gay_7} (7 colors) \item \code{demiboy} (4 colors) @@ -60,6 +61,7 @@ Currently available palettes are: \item \code{butch} (7 colors) \item \code{femme} (5 colors) \item \code{otter} (5 colors) +\item \code{queerhet} (5 colors) } } diff --git a/man/theme_lgbtq.Rd b/man/theme_lgbtq.Rd index be21022..6503242 100644 --- a/man/theme_lgbtq.Rd +++ b/man/theme_lgbtq.Rd @@ -48,6 +48,7 @@ Currently available palettes are: \item \code{pansexual} (3 colors) \item \code{androsexual} (3 colors) \item \code{gynesexual} (3 colors) +\item \code{abrosexual} (5 colors) \item \code{lesbian_7} (7 colors) \item \code{gay_7} (7 colors) \item \code{demiboy} (4 colors) @@ -65,6 +66,7 @@ Currently available palettes are: \item \code{butch} (7 colors) \item \code{femme} (5 colors) \item \code{otter} (5 colors) +\item \code{queerhet} (5 colors) } } diff --git a/vignettes/gallery.Rmd b/vignettes/gallery.Rmd index dacf6ae..b9317d8 100644 --- a/vignettes/gallery.Rmd +++ b/vignettes/gallery.Rmd @@ -166,6 +166,12 @@ palette_lgbtq("gynesexual") A "gynesexual" person is attracted to women or feminine-presenting people. This term is superior to "straight [man]" and "lesbian", since it does not imply anything about person's gender and is usable by non-binary people as well. +```{r abrosexual} +palette_lgbtq("abrosexual") +``` + +Abrosexuality is defined by the fluctuations of one's sexual orientation, whether constant or occasional. It doesn't specify where on the sexuality spectrum these fluctuations occur. + ```{r lesbian_7} palette_lgbtq("lesbian_7") ``` @@ -252,6 +258,8 @@ palette_lgbtq("bigender") ## Subcultures +While somebody's sexual orientation isn't that person's lifestyle (even though there are people suggesting otherwise), the terms here describe the way certain people express and identify themselves in strong connection with their sexuality. In a way, this is the closest to "lifestyle" you can get here. + ```{r amatopunk} palette_lgbtq("amatopunk") ``` @@ -280,6 +288,14 @@ palette_lgbtq("femme") palette_lgbtq("otter") ``` +Since "bear" triggers a natural association with a high-volume person, as explained before, the "otter" is its low-volume counterpart; retaining the other characteristics referring to maleness, gayness, and hairiness. + ## Uncategorized -All the terms that do not fit elsewhere. Currently empty. +All the terms that do not fit elsewhere. + +```{r queerhet} +palette_lgbtq("queerhet") +``` + +Queerhets use this term to signalize that allocishets are not the only heterosexual people in the existence. There exist people who are both straight and queer -- by being either transgender or A-spec.