line graph of Number of students by Domicile, Academic years 2018 to 2021.

Setup

Loading all of the packages needed.

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(readr)

1. Load the dataset

Chart_6 <- read_csv("C:/Users/user/Pictures/New folder/Chart--6.csv")

## Rows: 44 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (2): Domicile, AcademicYear
## dbl (1): Number
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

3. Plotting the multiple line graphs.

ggplot(data = Chart_6, aes(x = AcademicYear, y = Number,group=Domicile, color = Domicile)) +
  geom_point()+
  geom_line()+
  ggtitle("Number of students enrolled by Domicile,
Academic years 2017/18 to 2020/21")+
  labs(y= "Number of Students")+
  theme(legend.position='bottom')