library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.4.2
Cars_april16th <- read.csv("Cars_april6th.csv")
p<-ggplot(data=Cars_april16th, aes(x=Car))+
  geom_bar(stat="count")
p