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")