library(ggplot2)
library(tidyverse)
library(viridis)
library(ggsci)

here()
data <- read.csv("logs/modalities.csv", sep=";", stringsAsFactors=F)

data <- data %>% gather("Participant", "Modality" , 2:17)

rightorder = c("VS1","VS2","VS3","VS4","VS5","VS6","VS7","VM1","VM2","VM3","GS1","GS2","GS3","GS4","GS5","GS6","GS7","GS8","GS9","GS10","GM1","GM2","GM3","GM4","GM5","GM6","GM7","GM8")

data$Modality <- factor(data$Modality)
levels(data$Modality) <- list("Pen tip"=c("Pen tip"), "Pen eraser"=c("Pen eraser"), "Pen tip + eraser"=c("Pen tip + eraser"), "Pen+Touch"=c("Pen + Touch"), "Single Touch"=c("Single Touch"), "Multi-touch"=c("Multi-touch"), "No proposal"=c("No proposal"))

# modalitycolors <- c(, , "#fdbe85", "#bcbddc", , , "#eeeeee")
modalitycolors <- c("#3182bd", "#6baed6", "#bdd7e7", "#9e9ac8", "#fdbe85", "#fd8d3c", "#eeeeee")

ggplot(data, aes(X)) +
  geom_bar(aes(fill = Modality)) +
  scale_x_discrete(name ="Referent", limits = rightorder) +
  theme(axis.title.x = element_blank(),
        axis.text.x = element_text(angle=48, vjust=1, hjust=1, size=15),
        axis.text.y = element_text(size = 15),
        panel.background = element_rect(fill = "white", colour = "white", size = 0.5, linetype = "solid"),
        text = element_text(size = 20),
  ) +
  scale_fill_manual(values=modalitycolors)