library(grid)
library(ggplot2)
library(dplyr)
library(likert)
library(here)
library(tidyr)

orderedFeatures <- c("2-finger Navigation", 
                     "Move columns/rows",
                     "Sort",
                     "Copy/Paste",
                     "Split/Merge columns",
                     "Mini Boxplot",
                     "Mini Barplot",
                     "Mini Table",
                     "Contiguous Selection",
                     "Non-contiguous Selection",
                     "Value-level Selection",
                     "Selecting Value Occurrences",
                     "Value-level Manipulations",
                     "Generalize Value-level Selection",
                     "Delete with Pen Eraser",
                     "Compute Mean",
                     "Annotate",
                     "Post-it")


usefulSQSS_wide = read.csv("logs/useful_sqss.csv", sep=";")
usefulSQSS_long <- gather(usefulSQSS_wide, feature, score, Navigation:Post.its, factor_key=TRUE)

likertOptionsUseful <- c("not useful at all", "not useful", "neutral", "useful", "very useful")

usefulSQSS_long$score <- factor(usefulSQSS_long$score,
                              levels = c("1", "2", "3", "4", "5"), ordered = TRUE)
levels(usefulSQSS_long$score) <- likertOptionsUseful

usefulSQSS_long$feature <- factor(usefulSQSS_long$feature)
levels(usefulSQSS_long$feature) <- orderedFeatures

lkt <- likert(usefulSQSS_long[3], grouping = usefulSQSS_long$feature)

likert.bar.plot(lkt, plot.percents=TRUE, plot.percent.low = FALSE, plot.percent.high = FALSE,
                plot.percent.neutral = FALSE) +
  scale_x_discrete(name ="Feature") +
  theme(
    panel.background = element_rect(fill = "white"),
    panel.grid.major = element_line(size = 0.05, linetype = 'solid',
                                    colour = "gray"),
    panel.grid.minor = element_line(size = 0.05, linetype = 'solid',
                                    colour = "gray"),
    text = element_text(size = 15),
    strip.text.x = element_blank()
  ) +
  theme(legend.title=element_blank(), axis.text = element_text(size = 10)) +
  ggtitle("How useful was this feature?")

ggsave("useful_score_per_feature.pdf")


easySQSS_wide = read.csv("logs/easy_sqss.csv", sep=";")
easySQSS_long <- gather(easySQSS_wide, feature, score, Navigation:Post.its, factor_key=TRUE)

likertOptionsEasy <- c("not easy at all", "not easy", "neutral", "easy", "very easy")

easySQSS_long$score <- factor(easySQSS_long$score, 
                              levels = c("1", "2", "3", "4", "5"), ordered = TRUE) 
levels(easySQSS_long$score) <- likertOptionsEasy

easySQSS_long$feature <- factor(easySQSS_long$feature)
levels(easySQSS_long$feature) <- orderedFeatures

lkt <- likert(easySQSS_long[3], grouping = easySQSS_long$feature)

likert.bar.plot(lkt, plot.percents=TRUE, plot.percent.low = FALSE, plot.percent.high = FALSE,
                plot.percent.neutral = FALSE) +
  scale_x_discrete(name ="Feature") +
  theme(
    panel.background = element_rect(fill = "white"),
    panel.grid.major = element_line(size = 0.05, linetype = 'solid',
                                    colour = "gray"),
    panel.grid.minor = element_line(size = 0.05, linetype = 'solid',
                                    colour = "gray"),
    text = element_text(size = 15),
    strip.text.x = element_blank()
  ) +
  theme(legend.title=element_blank(), axis.text = element_text(size = 10)) +
  ggtitle("How easy to use was this feature?")

ggsave("easy_score_per_feature_to_fix.pdf")