Here is the code I have used:
g <- ggplot(df, aes(x=TYPE.OF.CRIME))
g + geom_histogram(bins=30,color="gray",stat="count")
Warning message:
Ignoring unknown parameters: binwidth, bins, pad
from the code above not all type of crime are vissible, so I want all to be seen.