Untitled

library(ggplot2)

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

data(algae, package="DMwR2")
freq0cc <- table(algae$season)
barplot(freq0cc, main='Frequency of the Seasons')

ggplot(algae, aes(x=season))+geom_bar()+ggtitle("Frequency of the Seasons")