git.txt

```{r echo=TRUE, message=FALSE, warning=TRUE}
students<- read.csv("data/studentinfo.csv",header=TRUE,sep=",",stringsAsFactors = TRUE)
```
# the 
```{r echo=TRUE}
ggplot(studentinfo) + geom_bar(aes(x=students$highest_education, fill=students$highest_education)) + labs(title = "Students in each education lever per semester", fill = "Education", x="Modules", y="Amount of students") + facet_wrap(~ students$code_presentation)+
theme(axis.text.x = element_text(angle = 45, hjust = 1))



```{r echo=TRUE}
ggplot(students) + geom_bar(aes(x=students$code_presentation, fill=students$code_presentation)) + labs(title = "the number of student in different presentation", fill = "presentation", x="presentation", y="Amount of students")
```