{r warning=FALSE, message=FALSE, echo=FALSE, eval = TRUE} library(tidyverse) coursedata <- readcsv("https://raw.githubusercontent.com/MarcoKuehne/marcokuehne.github.io/main/data/Course/GF2022_57.csv")

Including Plots

{r warning=FALSE, message=FALSE, echo=TRUE, eval = TRUE} ggplot(coursedata, aes(x = Age, y = Total.Semesters)) + geomcount() + thememinimal() + geom_smooth(method = "lm", se = FALSE) + labs(title = "Relationship between Age and Semester of course participants.", x = "Age", y = "Semesters")

{r, echo=FALSE, eval = FALSE}

shape, i am working on a version which works with just shapes

ggplot(coursedata, aes(x = Age, y = Total.Semesters)) + geompoint(aes(shape=Total.Semesters)) + scaleshapeidentity() thememinimal()

coursedata %>% group_by(Age, Total.Semesters) %>% count() %>% arrange(desc(n))