Commit 09801a00 authored by Jolahn Vaudey's avatar Jolahn Vaudey
Browse files

Replace data_visualization.Rmd

parent 58c045c0
......@@ -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") +
theme(axis.text.x = element_text(size = 14), axis.title.x = element_text(size = 16),
axis.text.y = element_text(size = 14), axis.title.y = element_text(size = 16),
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") +
# theme(axis.text.x = element_text(size = 14), axis.title.x = element_text(size = 16),
# axis.text.y = element_text(size = 14), axis.title.y = element_text(size = 16),
# 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment