#Text S1. R Script used to generate categorical scatterplots. 

#Reset the Console
rm(list=ls())

#Call the Library 'ggplot2'
library('ggplot2')

#Import the dataset from an excel file (.csv)
a<-read.table(file.choose(), sep=",", header=T, dec=".", fill=TRUE)

#Attach the dataset 'a'
attach(a)

#Display the first top lines of the dataset
head(a)

#Generate the graph and store it in the object named 'pp'
pp <- ggplot(a, aes(factor(Construct),Lesion_Size))

#Call the graph and display it in a separate window 
pp + geom_boxplot(notch=TRUE, outlier.colour='black', colour='red') + geom_jitter(aes(colour=Bio_Rep)) + theme_bw()