counties<-c("nairobi","nakuru","kisumu","mandera","kitui")
accident<-c(140,65,76,17,51)
barplot(accident,names.arg = counties)

main="accident by counties"
xlab="county" 
col="red"