Histogram

#Importing data set

freqdata <- read_csv("C:/Users/user/Pictures/New folder/frequency stats.csv")
freqdata <- data.frame(freqdata)


#Plotting the histogram for UK students
ggplot(data=freqdata, aes(x= Year, y= Total, fill= category)) + 
  geom_bar(stat="identity", position="dodge")+
   ggtitle("UK students Histogram")+
  theme(legend.position='bottom')

#Overseas students

overseas <- read_csv("C:/Users/user/Pictures/New folder/overseas.csv")
overseas <- data.frame(overseas)


#Plotting the histogram for overseas students

ggplot(data=overseas, aes(x= Year, y= Total, fill= category)) + 
  geom_bar(stat="identity", position="dodge")+
  ggtitle("Overseas students Histogram")+
  theme(legend.position='bottom')

#Total students

total <- read_csv("C:/Users/user/Pictures/New folder/total.csv")
total<- data.frame(total)


#Plotting the histogram for overseas students

ggplot(data=  total, aes(x= Year, y= Total, fill= category)) + 
  geom_bar(stat="identity", position="dodge")+
  ggtitle("Total students histogram")+
  theme(legend.position='bottom')