Folders and files
| Name | Name | Last commit date | ||
|---|---|---|---|---|
The goal of lgbthue is to provide palette data for pride flags for use by gglgbtq and future projects.
You can install the development version of lgbthue from GitHub with:
# install.packages("pak")
pak::pak("turtletopia/lgbthue")To list all available palettes, call show_pride(). The output would be very long, however, so I’m not including the result. Instead, know it is possible to filter by tags and palette sizes:
library(lgbthue)
show_pride(tags = "rainbow", sizes = c(6, 8))
#> rainbow [6]
#> █ #E40303
#> █ #FF8C00
#> █ #FFED00
#> █ #008026
#> █ #24408E
#> █ #732982
#> [rainbow]
#>
#> philadelphia [8]
#> █ #000000
#> █ #784F17
#> █ #D12229
#> █ #F68A1E
#> █ #FDE01A
#> █ #007940
#> █ #24408E
#> █ #732982
#> [rainbow]Accessing one of these is best done by palette_lgbtq():
palette_lgbtq("lesbian")
#> lesbian [5]
#> █ #D62900
#> █ #FF9B55
#> █ #FFFFFF
#> █ #D461A6
#> █ #A50062
#> [sexuality]Such palettes can be used anywhere a palette is needed, plots in particular. For example:
group <- rep(1:6, each = 10)
x <- group + .5 * rnorm(60)
y <- runif(60, 1, 1.5) * sqrt(group)
plot(x, y, pch = 19, col = palette_lgbtq("rainbow")[group], cex = 2)
If you wish to use these palettes with ggplot2, gglgbtq adapts these palettes to that particular use case.
Moreover, as a palette draws from the colors of a flag, a seq() method is provided that transforms a palette into a sequence so that e.g. a vertical bar with correct flag colors can be shown:
seq(palette_lgbtq("trans"))
#> transgender [seq 5]
#> █ #55CDFC
#> █ #F7A8B8
#> █ #FFFFFF
#> █ #F7A8B8
#> █ #55CDFCOnly a few most common palettes are included below. For the complete list, see palette gallery vignette.
plot(palette_lgbtq("rainbow"))
plot(palette_lgbtq("philadelphia"))
plot(palette_lgbtq("progress"))
plot(palette_lgbtq("lesbian"))
# In its original meaning of "gay men"
plot(palette_lgbtq("gay"))
plot(palette_lgbtq("bisexual"))
# Background added to avoid the "disappearance" of the white stripe
plot(palette_lgbtq("transgender"), background = "gray92")
plot(palette_lgbtq("asexual"))
plot(palette_lgbtq("nonbinary"))
plot(palette_lgbtq("intersex"))