library(ggplot2)

datafile <- "Esp1_TestData.csv"
rawdata1_TestData <- read.csv(datafile)
datafile <- "Esp2_TestData.csv"
rawdata2_TestData <- read.csv(datafile)

Exp1_BOXPLOT <- ggplot(data = rawdata1_TestData, aes(x = test, y = data)) +theme_classic()+
  stat_boxplot(geom = "errorbar", width = 0.3)+
  geom_boxplot(outlier.size=1.5, outlier.shape=21) + ggtitle("A")+
  scale_x_discrete(name="Test")+
  scale_y_continuous(name="Left Choices_LC (%)")+
  geom_hline(yintercept=50, size=1,linetype="dashed", color = "dimgray")

Exp1_BOXPLOT

Exp2_BOXPLOT <- ggplot(data = rawdata2_TestData, aes(x = test, y = data)) +theme_classic()+
  stat_boxplot(geom = "errorbar", width = 0.3)+
  geom_boxplot(outlier.size=1.5, outlier.shape=21) + ggtitle("B")+
  scale_x_discrete(name="Test")+
  scale_y_continuous(name="Left Choices_LC (%)")+
  geom_hline(yintercept=50, size=1,linetype="dashed", color = "dimgray")
Exp2_BOXPLOT