@@ -31,11 +31,17 @@ The data will be illustrated using a histogram, with 11 bins corresponding to th

```{r, echo=FALSE}

library(ggplot2)

ggplot(data=data_used, aes(x=feetSize, y=mistakes)) + stat_summary_bin(fun = "mean",geom="bar",origin=17.00001,binwidth=1,fill="blue",colour="black") + labs(title = "Average number of mistakes in a dictation by foot size\n", x = "foot size (in cm)", y = "Average number of mistakes") +

plot.title = element_text(size = 16, face = "bold"))

# library(ggplot2)

# ggplot(data=data_used, aes(x=feetSize, y=mistakes)) + stat_summary_bin(fun = "mean",geom="bar",origin=17.00001,binwidth=1,fill="blue",colour="black") + labs(title = "Average number of mistakes in a dictation by foot size\n", x = "foot size (in cm)", y = "Average number of mistakes") +

# plot.title = element_text(size = 16, face = "bold"))

# It seems that it wasn't such a good idea after all.

# We will do a simple plot instead

plot(data_used, main="Number of mistakes in a dictation by foot size\n", xlab = "foot size (in cm)", ylab = "Average number of mistakes")

```

This graph clearly shows a correlation between the students' feet size and their results during the dictation. It looks like students with larger feet make less mistakes.