barplot(tail((sort(table(Data$IncidentLocation))/dim(Data)[1]),5)
, main ="Data")
par(mfrow = c(2,2))
barplot(tail((sort(table(TF1$IncidentLocation))/dim(TF1)[1]),5), main ="TF1")
barplot(tail((sort(table(TF2$IncidentLocation))/dim(TF2)[1]),5), main ="TF2")
barplot(tail((sort(table(TF3$IncidentLocation))/dim(TF3)[1]),5),main ="TF3")
barplot(tail((sort(table(TF4$IncidentLocation))/dim(TF4)[1]),5), main ="TF4")