# TIC II · S22
coches <- read.csv("93cars_DATOS.csv", fileEncoding = "UTF-8-BOM")
tipos <- table(coches$Type)
print(tipos)
barplot(tipos, main = "Coches por tipo", ylab = "Número de coches")