Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://turtletopia.github.io/gglgbtq/
Provides multiple palettes based on pride flags with tailored themes.
https://turtletopia.github.io/gglgbtq/
ggplot2 ggplot2-themes lgbt palettes pride pride-flags r
Last synced: about 2 months ago
JSON representation
Provides multiple palettes based on pride flags with tailored themes.
- Host: GitHub
- URL: https://turtletopia.github.io/gglgbtq/
- Owner: turtletopia
- License: gpl-3.0
- Created: 2022-08-06T11:02:28.000Z (about 2 years ago)
- Default Branch: master
- Last Pushed: 2024-07-05T21:12:42.000Z (3 months ago)
- Last Synced: 2024-07-06T01:55:18.089Z (3 months ago)
- Topics: ggplot2, ggplot2-themes, lgbt, palettes, pride, pride-flags, r
- Language: R
- Homepage: https://turtletopia.github.io/gglgbtq/
- Size: 1020 KB
- Stars: 15
- Watchers: 1
- Forks: 0
- Open Issues: 12
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
- License: LICENSE.md
Awesome Lists containing this project
README
---
output: github_document
---
```{r opts, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
fig.height = 1.6
)
library(gglgbtq)
options(gglgbtq_font_size = 1.7)
set.seed(7)
```
# gglgbtq 
[](https://lifecycle.r-lib.org/articles/stages.html#experimental)
[](https://CRAN.R-project.org/package=gglgbtq)
[](https://github.com/turtletopia/gglgbtq/actions)
[](https://app.codecov.io/gh/turtletopia/gglgbtq?branch=master)
gglgbtq provides multiple palettes based on flags in LGBTQ community. These palettes are accompanied by ggplot2 themes that maximize readability of each palette (especially of the white strip that is present in most flags).
## Installation
```{r install, eval = FALSE}
# Install the development version from GitHub:
# install.packages("devtools")
devtools::install_github("turtletopia/gglgbtq")
```
## User guide
To list all available palettes, call:
```{r pride_head}
show_pride()
```
The most common use case is to use palettes with ggplot2:
```{r ggplot2, fig.height=3}
library(ggplot2)
data <- data.frame(
group = rep(c("yes", "no", "maybe"), each = 3) |>
as.factor(),
x = rep(seq_len(3), times = 3),
y = runif(3 * 3) + .5
)
ggplot(data, aes(x = x, y = y, fill = group)) +
geom_bar(stat = "identity", position = "dodge") +
scale_fill_lgbtq("pansexual")
```
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_lgbtq("pansexual") +
theme_lgbtq("pansexual")
```
`theme_lgbtq()` passes additional parameters to `ggplot2::theme()`, so it's fully customizable:
```{r ggplot2_theme_custom, fig.height=3}
ggplot(data, aes(x = x, y = y, fill = group)) +
geom_bar(stat = "identity", position = "dodge") +
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; 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_manual(values = palette_lgbtq("pansexual")) +
theme_lgbtq("pansexual", legend.position = "left")
```
## Gallery
Only a few most common palettes are included below. For the complete list, see [palette gallery vignette](https://turtletopia.github.io/gglgbtq/articles/gallery.html).
```{r palettes}
palette_lgbtq("rainbow")
palette_lgbtq("philadelphia")
palette_lgbtq("progress")
palette_lgbtq("lesbian")
# In its original meaning of "gay men"
palette_lgbtq("gay")
palette_lgbtq("bisexual")
# Background added to avoid the "disappearance" of the white stripe
print(palette_lgbtq("transgender"), background = "gray92")
palette_lgbtq("asexual")
palette_lgbtq("nonbinary")
palette_lgbtq("intersex")
```
## End notes
I believe in equal rights and treatment for everybody, regardless of their sexuality, gender identity, skin tone, nationality, and other features beyond human control. Thus, I do not allow gglgbtq to be used in any project that promotes hate based on the aforementioned factors.