setwd("~/Desktop/Upload/Validation")
design <- read.csv("Data/1-OntologyInterviews.csv")
str(design)
design <- read.csv("Data/1-OntologyInterviews.csv")
design$Interviewee <- as.factor(design$Interviewee)
designPlot <-
ggplot(design, aes(x = Interviewee, y = Number, group = Change,
colour = Change, shape = Change)) +
geom_line() +
geom_point() +
geom_text(aes(label = Percentage), family = "CMU Serif Roman", size = 2.5,
vjust = -1, show.legend = FALSE) +
facet_grid(. ~ Company, scales = "free_x") +
scale_shape_manual(values = c(15,16,17,18)) +
scale_colour_manual(values=c06Palette) +
labs(x = "Interviewee", y = "Number of changes per tester") +
theme(legend.position = "bottom") +
plotTheme
knitr::opts_chunk$set(echo = TRUE)
# Functions to manage and analyse data
library(dplyr)
library(tidyr)
library(car)
# Functions to work with plots
library(ggplot2)
library(grid)
library(ggpubr)
# Functions to theme graph colours
library(knitr)
library(kableExtra)
# Functions to work with fonts
library(extrafont)
# Import system fonts
font_import()
# Declare colour palettes
c03Palette = c("#1A406A","#7F7F7F","#0D1930")
c06Palette = c("#3F97C0","#1A406A","#9EBF43","#C2446F","#F2BC41","#5D4184")
c09Palette = c("#3F97C0","#1A406A","#9EBF43","#C2446F","#F2BC41","#5D4184",
"#D32D40","#7F7F7F","#0D1930")
c12Palette = c("#D32D40","#F2BC41","#9EBF43","#3F97C0","#5D4184","#C2446F",
"#791C24","#C77F3A","#617628","#2A386B","#402D55","#782A43")
# Declare plot theme
plotTheme <-
theme(panel.background = element_rect(colour= "gray90", fill = "white"),
strip.background = element_rect(colour = "gray90", fill = "white"),
panel.grid.major = element_line(colour = "gray90", size = 0.35),
panel.grid.minor = element_line(colour = "gray90", size = 0.175),
axis.ticks = element_blank(),
text = element_text(size = 10, family = "CMU Serif Roman"))
designPlot <-
ggplot(design, aes(x = Interviewee, y = Number, group = Change,
colour = Change, shape = Change)) +
geom_line() +
geom_point() +
geom_text(aes(label = Percentage), family = "CMU Serif Roman", size = 2.5,
vjust = -1, show.legend = FALSE) +
facet_grid(. ~ Company, scales = "free_x") +
scale_shape_manual(values = c(15,16,17,18)) +
scale_colour_manual(values=c06Palette) +
labs(x = "Interviewee", y = "Number of changes per tester") +
theme(legend.position = "bottom") +
plotTheme
designPlot
knitr::opts_chunk$set(echo = TRUE)
# Functions to manage and analyse data
library(dplyr)
library(tidyr)
library(car)
# Functions to work with plots
library(ggplot2)
library(grid)
library(ggpubr)
# Functions to theme graph colours
library(knitr)
library(kableExtra)
# Declare colour palettes
c03Palette = c("#1A406A","#7F7F7F","#0D1930")
c06Palette = c("#3F97C0","#1A406A","#9EBF43","#C2446F","#F2BC41","#5D4184")
c09Palette = c("#3F97C0","#1A406A","#9EBF43","#C2446F","#F2BC41","#5D4184",
"#D32D40","#7F7F7F","#0D1930")
c12Palette = c("#D32D40","#F2BC41","#9EBF43","#3F97C0","#5D4184","#C2446F",
"#791C24","#C77F3A","#617628","#2A386B","#402D55","#782A43")
# Declare plot theme
plotTheme <-
theme(panel.background = element_rect(colour= "gray90", fill = "white"),
strip.background = element_rect(colour = "gray90", fill = "white"),
panel.grid.major = element_line(colour = "gray90", size = 0.35),
panel.grid.minor = element_line(colour = "gray90", size = 0.175),
axis.ticks = element_blank(),
text = element_text(size = 10))
# Format data as data frame
surveys <- read.csv("Data/5-MonitoringSurveys.csv")
surveys$Tester <- as.factor(surveys$Tester)
surveys$Solution <- ordered(surveys$Solution, levels = c("None","KRD","KRE"))
# Visualise data frame
str(surveys)
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Expertise, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(. ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10)) +
plotTheme
surveysPlotStats
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Expertise, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Solution ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10)) +
plotTheme
surveysPlotStats
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Solution, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Expertise ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10)) +
plotTheme
surveysPlotStats
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Solution, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Expertise ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure", tag = "Expertise") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10),) +
plotTheme
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Solution, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Expertise ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure", tag = "Expertise") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10), plot.tag = element_text(angle = -90), plot.tag.position = c(0.85,0.5)) +
plotTheme
surveysPlotStats
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Solution, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Expertise ~ Failure) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure", tag = "Expertise") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10), plot.tag = element_text(angle = -90)) +
plotTheme
surveysPlotStats
surveysPlotStats <-
ggplot(surveys, aes(x = Criterion, y = Response, colour = Solution, label = Tester)) +
geom_hline(yintercept = 3, linetype = "dashed", colour = "gray60") +
geom_boxplot(fill = "gray95", lwd = 0.5) +
facet_grid(Expertise ~ Failure, labeller = label_both) +
scale_colour_manual(values = c06Palette) +
scale_y_continuous(breaks = c(1,2,3,4,5)) +
labs(y = "Likert Scale", title = "Failure") +
theme(legend.position = "bottom",
plot.title = element_text(hjust = 0.5, size = 10)) +
plotTheme
surveysPlotStats
