Assignment 2

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.4.3

data_set_1<-read.csv("workshop 2.csv")

View(data_set_1)

ggplot(data=data_set_1)+
  geom_bar(aes(x=marital, fill=education))

m <- ggplot(data=data_set_1)+
  geom_bar(aes(x=marital, fill=education))

m + 
  labs(title="Distrubution of Marital Status and Education", 
       subtitle="From workshop 2 dataset", 
       y="Population", 
       x="Marital Status", 
       caption="A bar chart showing the educational level of the population,  categorised by marital status")