#stackplot_functions

Seascape_stackplot = function(data, group, daterange){ 
  
  data$seascape_variable <- factor(data$seascape_variable, levels = c("33","1", "2","3","4","5","6","7","8"," 9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32"))
  maxDate = daterange[2]
  startDate = daterange[1]
  
  data = data %>% 
    filter(mpa_id %in% group,
           date.time>=startDate & date.time<=maxDate) 
  
    ggplot(data, aes(x=date.time, y=percentage, fill=seascape_variable)) +
      geom_bar(position="fill", stat="identity") +
      #geom_col(width=1) +
      theme_dark() +
      #theme(legend.title = element_blank()) + # removes legend
      #theme(legend.position = "none") + # removes legend
      scale_fill_manual(values=c("white","dodgerblue2", "#E31A1C",
                                 "green4",
                                 "#6A3D9A",
                                 "#FF7F00",
                                 "black", "gold1",
                                 "skyblue2", "#FB9A99",
                                 "palegreen2",
                                 "#CAB2D6",
                                 "#FDBF6F",
                                 "gray70", "khaki2",
                                 "maroon", "orchid1", "deeppink1", "blue1", "steelblue4",
                                 "darkturquoise", "green1", "yellow4", "yellow3",
                                 "darkorange4", "brown", "green", "pink", "violet","gold",
                                 "darkslategray1","deeppink","lightsalmon")) +
      xlab("Date") + ylab("Proportion of the area within the MPA") +
      theme(axis.text.x =
              element_text(size  = 9,
                           angle = 45,
                           hjust = 1,
                           vjust = 1))
}





# mpa_stackplot$seascape_variable <- factor(mpa_stackplot$seascape_variable, levels = c("33","1", "2","3","4","5","6","7","8"," 9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32"))
#
# mpa_subset = mpa_stackplot %>% 
#   filter(mpa_id %in% mpa_stackplot$mpa_id[1],
#          date.time>=startDate & date.time<=endDate) 
# 
# ggplot(mpa_subset, aes(x=date.time, y=percentage, fill=seascape_variable)) +
#   geom_bar(position="fill",stat="identity") +
#   theme_bw() +
#   #theme(legend.title = element_blank()) + # removes legend
#   #theme(legend.position = "none") + # removes legend
#   scale_fill_manual(values=c("white","dodgerblue2", "#E31A1C",
#                              "green4",
#                              "#6A3D9A",
#                              "#FF7F00",
#                              "black", "gold1",
#                              "skyblue2", "#FB9A99",
#                              "palegreen2",
#                              "#CAB2D6",
#                              "#FDBF6F",
#                              "gray70", "khaki2",
#                              "maroon", "orchid1", "deeppink1", "blue1", "steelblue4",
#                              "darkturquoise", "green1", "yellow4", "yellow3",
#                              "darkorange4", "brown", "green", "pink", "violet","gold",
#                              "darkslategray1","deeppink","lightsalmon")) +
#   xlab("Date") + ylab("Proportion of the area within the MPA") +
#   theme(axis.text.x =
#           element_text(size  = 9,
#                        angle = 45,
#                        hjust = 1,
#                        vjust = 1))