##############################################################
#                         PE count
##############################################################
rects <- data.frame(x = 1:6,
                    colors = c("#ffd700" #gold
                               , "#f0e68c" #khaki
                               , "#da70d6"# orchid
                               , "#ff1493"# deeppink
                               , "#00BFC4" #, "#007d85" #blue
                               , "#F8766D" )# red,
)
rects

rects$text =  c("-ve Lig"
                , "+ve Lig"
                , "+ve PPI2"
                , "-ve PPI2"
                , "+ve stability"
                , "-ve stability")

# FOR EMBB ONLY
rects$numbers = c(38, 0, 22, 9, 108, 681)
rects$num_labels = paste0("n=", rects$numbers)

rects

#https://stackoverflow.com/questions/47986055/create-a-rectangle-filled-with-text

peP = ggplot(rects, aes(x, y = 0, fill = colors, label = paste0(text,"\n", num_labels))) +
  geom_tile(width = 1, height = 1) + # make square tiles
  geom_text(color = "black", size = 1.7) + # add white text in the middle
  scale_fill_identity(guide = "none") + # color the tiles with the colors in the data frame
  coord_fixed() + # make sure tiles are square
  coord_flip()+ scale_x_reverse() +
  # theme_void() # remove any axis markings
  theme_nothing() # remove any axis markings
peP

peP2 = ggplot(rects, aes(x, y = 0, fill = colors, label = paste0(text,"\n", num_labels))) +
  geom_tile() + # make square tiles
  geom_text(color = "black", size = 1.6) + # add white text in the middle
  scale_fill_identity(guide = "none") + # color the tiles with the colors in the data frame
  coord_fixed() + # make sure tiles are square
  theme_nothing() # remove any axis markings
peP2


########################################################
# MANUAL process
#===============================
# Sensitivity count: Site
#==============================
table(df3$sensitivity)
#--------
# embb
#--------
#rsc = 54
#ccc = 46
#ssc = 470

rect_rs_siteC =data.frame(mutation_class=c("A_Resistant sites"
                                           , "B_Common sites"
                                           , "C_Sensitive sites"), 
                          tile_colour =c("red",
                                         "purple",
                                         "blue"),
                          numbers = c(rsc, ccc, ssc), 
                          order  = c(1, 2, 3))

rect_rs_siteC$labels = paste0(rect_rs_siteC$mutation_class, "\nn=", rect_rs_siteC$ numbers)

sens_siteP = ggplot(rect_rs_siteC, aes(mutation_class, y = 0,
                                       fill = tile_colour,
                                       label = paste0("n=", numbers))) +
  geom_tile(width = 1, height = 1) + 
  geom_label(color = "black", size = 1.7,fill = "white", alpha=0.7) + 
  theme_nothing() 
sens_siteP