#### Code for making ketupat
#### By Kevin Soo

library(tidyverse)
data <- tibble(
    x = c(2, 3, 3, 4, 4, 4, 5, 5, 6) + 1,
    y = c(3, 4, 2, 5, 3, 1, 4, 2, 3) + 2,
    z = as.factor(c(1, 2, 2, 1, 1, 1, 2, 2, 1))
)

data %>%
    ggplot(aes(x = x, y = y)) +
    geom_point(shape = 23, size = 18, aes(fill = z)) +
    scale_x_continuous(limits = c(0, 10)) +
    scale_y_continuous(limits = c(0, 10)) +
    scale_fill_manual(values = c("darkolivegreen2", "khaki1")) +
    guides(fill = FALSE) +
    theme_minimal() +
    labs(title = "Selamat Hari Raya from DataTarik",
         subtitle = "Maaf zahir dan batin",
         x = "X",
         y = "Y")