Image credit: Pexels and Darshak Pandya

Celebrating India's Decriminalization of Homosexuality

I woke up to great news today! Five judges of the Supreme Court of India have unanimously decrimialized homosexuality.

A few months back, I made a simple t-shirt design using R. That time, it was an R exercise for me and I didn’t share it with many people. This is my small gift to LGBTQ Indians. Although I have made this using “Om”, many religious symbol are possible if you know the correct character in Wingdings font.

library(showtext)
## Loading required package: sysfonts
## Loading required package: showtextdb
font_add("Wingdings", "/Library/Fonts/Microsoft/Wingdings.ttf")
showtext_auto()
library(ggplot2)
library(ggforce)
library(RColorBrewer)

dcir = data.frame(x0 = rep(1,9),
                  y0 = rep(1,9),
                  r = seq(0.21,0.05,by = -0.02))

lgbt = c("#000000","#8b4513","#ff0000","#ff8e00",
         "#ffff00","#008e00","#00c0c0","#400098","#8e008e")

p = ggplot() +
  ylim(0.75, 1.25) + xlim(0.75,1.25) +
  geom_circle(aes(x0 = x0, y0 = y0, r = r,
                  fill = as.character(r),
                  color = as.character(r)), 
                  data = dcir) +
  coord_fixed() +
  theme(axis.title = element_blank(),
        axis.ticks = element_blank(),
        axis.text = element_blank(),
        panel.grid = element_blank(),
        panel.background = element_rect(fill = 'black'),
        legend.position = "none") +
  scale_fill_manual(values = lgbt) +
  scale_color_manual(values = lgbt)

p +  annotate("text", 1, 1,
              family = "Wingdings",
              size = 30,
              label = "\\",
              color = "#ff9933")

Related

comments powered by Disqus