Assignemnt 2

library(ggplot2)

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

data(mtcars)

ggplot(mtcars, aes(x = as.factor(cyl))) +
  geom_bar(fill = "skyblue") +  # Bar plot with skyblue color
  labs(
    title = "Count of Cars by Number of Cylinders",
    subtitle = "Dataset from mtcars",
    x = "Number of Cylinders",                        
    y = "Count of Cars",                              
    caption = "Data from mtcars dataset"             
  )