cars93 <-
structure(list(type = structure(c(3L, 2L, 2L, 2L, 2L, 1L, 1L, 
2L, 1L, 2L, 2L, 1L, 1L, 1L, 3L, 3L, 2L, 3L, 1L, 3L, 3L, 2L, 1L, 
3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 3L, 2L, 
3L, 2L, 2L, 1L, 3L, 2L, 1L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 2L), .Label = c("large", 
"midsize", "small"), class = "factor"), price = c(15.9, 33.899999999999999, 
37.700000000000003, 30, 15.699999999999999, 20.800000000000001, 
23.699999999999999, 26.300000000000001, 34.700000000000003, 40.100000000000001, 
15.9, 18.800000000000001, 18.399999999999999, 29.5, 9.1999999999999993, 
11.300000000000001, 15.6, 12.199999999999999, 19.300000000000001, 
7.4000000000000004, 10.1, 20.199999999999999, 20.899999999999999, 
8.4000000000000004, 12.1, 8, 10, 13.9, 47.899999999999999, 28, 
35.200000000000003, 34.299999999999997, 36.100000000000001, 8.3000000000000007, 
11.6, 61.899999999999999, 14.9, 10.300000000000001, 26.100000000000001, 
11.800000000000001, 21.5, 16.300000000000001, 20.699999999999999, 
9, 18.5, 24.399999999999999, 11.1, 8.4000000000000004, 10.9, 
8.5999999999999996, 9.8000000000000007, 18.199999999999999, 9.0999999999999996, 
26.699999999999999), mpg_city = c(25L, 18L, 19L, 22L, 22L, 19L, 
16L, 19L, 16L, 16L, 21L, 17L, 20L, 20L, 29L, 23L, 21L, 29L, 20L, 
31L, 23L, 21L, 18L, 46L, 42L, 29L, 22L, 20L, 17L, 18L, 18L, 17L, 
18L, 29L, 28L, 19L, 19L, 29L, 18L, 29L, 21L, 23L, 19L, 31L, 19L, 
19L, 28L, 33L, 25L, 39L, 32L, 22L, 25L, 20L), drive_train = structure(c(2L, 
2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 
2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L), .Label = c("4WD", "front", "rear"), class = "factor"), 
    passengers = c(5L, 5L, 6L, 4L, 6L, 6L, 6L, 5L, 6L, 5L, 6L, 
    6L, 6L, 6L, 5L, 5L, 6L, 5L, 6L, 4L, 5L, 5L, 6L, 4L, 4L, 5L, 
    5L, 5L, 5L, 5L, 4L, 6L, 6L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
    5L, 6L, 4L, 5L, 6L, 5L, 4L, 5L, 4L, 5L, 5L, 4L, 5L), weight = c(2705L, 
    3560L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 
    3195L, 3910L, 3515L, 3570L, 2270L, 2670L, 3080L, 2295L, 3490L, 
    1845L, 2530L, 3325L, 3950L, 1695L, 2350L, 2345L, 2620L, 2885L, 
    4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 3525L, 3610L, 
    2295L, 3730L, 2545L, 3200L, 2890L, 3470L, 2350L, 3450L, 3495L, 
    2495L, 2045L, 2490L, 1965L, 2055L, 3030L, 2240L, 3245L)), row.names = c(NA, 
-54L), class = c("tbl_df", "tbl", "data.frame"))