Print the results of calculating a frequency table
# S3 method for tab
print(x, ...)An object of class tab
Parameters passed to the print function
No return value, called for side effects
frequency <- tab(cardata, make, sort = TRUE, na.rm = FALSE)
print(frequency)
#> level n percent
#> Chevrolet 1123 9.43%
#> Ford 881 7.39%
#> Volkswagen 809 6.79%
#> Toyota 746 6.26%
#> Dodge 626 5.25%
#> Nissan 558 4.68%
#> GMC 515 4.32%
#> Honda 449 3.77%
#> Mazda 423 3.55%
#> Cadillac 397 3.33%
#> Mercedes-Benz 353 2.96%
#> Suzuki 351 2.95%
#> BMW 334 2.8%
#> Infiniti 330 2.77%
#> Audi 328 2.75%
#> Hyundai 303 2.54%
#> Volvo 281 2.36%
#> Subaru 256 2.15%
#> Acura 252 2.12%
#> Kia 231 1.94%
#> Mitsubishi 213 1.79%
#> Lexus 202 1.7%
#> Buick 196 1.65%
#> Chrysler 187 1.57%
#> Pontiac 186 1.56%
#> Lincoln 164 1.38%
#> Oldsmobile 150 1.26%
#> Land Rover 143 1.2%
#> Porsche 136 1.14%
#> Saab 111 0.93%
#> Aston Martin 93 0.78%
#> Plymouth 82 0.69%
#> Bentley 74 0.62%
#> Ferrari 69 0.58%
#> FIAT 62 0.52%
#> Scion 60 0.5%
#> Maserati 58 0.49%
#> Lamborghini 52 0.44%
#> Rolls-Royce 31 0.26%
#> Lotus 29 0.24%
#> Tesla 18 0.15%
#> HUMMER 17 0.14%
#> Maybach 16 0.13%
#> Alfa Romeo 5 0.04%
#> McLaren 5 0.04%
#> Bugatti 3 0.03%
#> Genesis 3 0.03%
#> Spyker 3 0.03%