yrbss_samp <-
structure(list(age = c(16L, 17L, 17L, 15L, 18L, 15L, 16L, 16L, 
14L, 17L, 15L, 16L, 15L, 17L, 17L, 15L, 17L, 16L, 17L, 15L, 18L, 
16L, 15L, 15L, 16L, 17L, 16L, 17L, 17L, 17L, 15L, 18L, 18L, 17L, 
15L, 15L, 15L, 14L, 16L, 18L, 16L, 15L, 17L, 18L, 15L, 16L, 16L, 
15L, 17L, 15L, 18L, 18L, 16L, 16L, 16L, 16L, NA, 17L, 14L, 18L, 
17L, 14L, 16L, 16L, 17L, 16L, 17L, 17L, 14L, 16L, 17L, 15L, 18L, 
17L, 17L, 17L, 17L, 16L, 17L, 15L, 18L, 15L, 18L, 15L, 14L, 17L, 
17L, 15L, 17L, 14L, 16L, 15L, 16L, 17L, 18L, 17L, 16L, 15L, 15L, 
14L), gender = c("female", "male", "male", "male", "male", "female", 
"male", "male", "male", "male", "male", "female", "female", "male", 
"female", "female", "female", "male", "female", "female", "female", 
"female", "male", "female", "female", "female", "male", "male", 
"female", "female", "female", "male", "male", "male", "female", 
"male", "female", "female", "male", "female", "male", "female", 
"male", "female", "male", "male", "male", "male", "male", "female", 
"male", "female", "female", "female", "female", "male", NA, "female", 
"male", "female", "female", "female", "male", "female", "male", 
"female", "female", "female", "female", "male", "female", "female", 
"male", "male", "female", "female", "female", "female", "female", 
"male", "female", "female", "male", "female", "male", "male", 
"male", "male", "male", "female", "female", "male", "male", "male", 
"female", "male", "female", "male", "male", "male"), grade = c("11", 
"11", "11", "10", "12", "9", "10", "10", "9", "11", "9", "10", 
"9", "10", "12", "9", "11", "10", "12", "9", "12", "11", "10", 
"9", "10", "11", "10", "11", "12", "11", "10", "11", "12", "12", 
"10", "9", "9", "9", "11", "12", "10", "9", "12", "12", "10", 
"10", "10", "9", "12", "9", "12", "12", "11", "11", "10", "10", 
NA, "11", "9", "12", "12", "9", "9", "11", "10", "11", "12", 
"11", "9", "10", "12", "9", "12", "12", "11", "10", "10", "11", 
"11", "10", "12", "10", "12", "9", "9", "11", "11", "9", "11", 
"9", "10", "9", "11", "11", "12", "11", "10", "10", "9", "9"), 
    hispanic = c("not", "not", "not", "hispanic", "not", "not", 
    "not", "not", "hispanic", "not", "not", "hispanic", "hispanic", 
    "not", "hispanic", "hispanic", "not", "not", "not", "not", 
    "hispanic", "not", "not", "not", "not", "not", "hispanic", 
    "not", "hispanic", "not", "not", "not", "not", "hispanic", 
    "not", "not", "not", "not", "not", "not", "not", "not", "not", 
    "hispanic", "not", "not", "not", "not", "hispanic", "not", 
    "not", "not", "not", "not", "not", "not", NA, "not", "not", 
    "not", "hispanic", "not", "not", "hispanic", "not", "hispanic", 
    "not", "not", "hispanic", "not", "not", "not", "hispanic", 
    "not", "not", "not", "not", "hispanic", "not", "hispanic", 
    "not", "not", "not", "hispanic", "not", "hispanic", "not", 
    "not", "hispanic", "not", "not", "not", "not", "not", "not", 
    "not", "not", "not", "not", "not"), race = c("Black or African American", 
    "White", "White", NA, "Black or African American", "Black or African American", 
    "White", "Black or African American", "White", "Black or African American", 
    "Black or African American", NA, "White", "White", NA, NA, 
    "White", "White", NA, "White", NA, "Black or African American", 
    "White", "White", "White", "White", NA, "White", NA, "White", 
    NA, "Black or African American", "White", NA, "Black or African American", 
    "White", "White", "White", "White", "Black or African American", 
    "White", "White", "Black or African American", "White", "Black or African American", 
    "White", "White", "White", NA, "White", "White", "White", 
    "White", "White", "White", "White", NA, "White", "White", 
    "Black or African American", "White", "White", "Black or African American", 
    NA, "Black or African American", NA, "White", "Black or African American", 
    NA, "White", "White", "White", NA, "Black or African American", 
    "White", "Black or African American", NA, NA, "White", "White", 
    "American Indian or Alaska Native", NA, "White", NA, "Native Hawaiian or Other Pacific Islander", 
    NA, "Black or African American", "White", NA, "White", "Black or African American", 
    "White", "Black or African American", "White", "Black or African American", 
    "White", "White", "Black or African American", "White", "White"
    ), height = c(1.5, 1.78, 1.75, 1.6799999999999999, 1.7, 1.5700000000000001, 
    1.78, 1.6299999999999999, 1.6299999999999999, 1.8300000000000001, 
    1.6899999999999999, 1.6799999999999999, 1.6699999999999999, 
    1.78, 1.6000000000000001, 1.6000000000000001, 1.6799999999999999, 
    1.75, 1.73, 1.6299999999999999, 1.6299999999999999, 1.73, 
    1.75, 1.52, 1.7, 1.6000000000000001, 1.8, 1.8500000000000001, 
    1.52, 1.7, 1.7, 1.9299999999999999, 1.71, 1.6899999999999999, 
    1.5700000000000001, 1.78, 1.7, 1.6499999999999999, 1.8799999999999999, 
    1.55, 1.78, 1.6499999999999999, 1.8799999999999999, 1.6799999999999999, 
    1.7, 1.73, 1.6899999999999999, 1.7, 1.73, 1.6000000000000001, 
    1.75, 1.75, 1.6000000000000001, 1.6299999999999999, 1.6000000000000001, 
    1.7, 1.72, 1.73, 1.78, 1.6299999999999999, 1.78, 1.8, 1.6499999999999999, 
    1.72, 1.8500000000000001, 1.6000000000000001, 1.7, 1.6299999999999999, 
    1.6499999999999999, 1.8, 1.55, 1.6599999999999999, 1.6299999999999999, 
    1.73, 1.6799999999999999, 1.8, 1.6299999999999999, 1.5700000000000001, 
    1.6299999999999999, 1.8500000000000001, 1.6899999999999999, 
    1.5700000000000001, 1.8500000000000001, 1.7, 1.78, 1.75, 
    1.71, 1.8300000000000001, 1.75, 1.6000000000000001, 1.6799999999999999, 
    1.75, 1.55, 1.6299999999999999, 1.7, 1.8, 1.6299999999999999, 
    1.78, 1.6799999999999999, 1.7), weight = c(52.619999999999997, 
    74.840000000000003, 106.59999999999999, 66.680000000000007, 
    80.290000000000006, 46.270000000000003, 81.650000000000006, 
    56.700000000000003, 54.43, 92.530000000000001, 67.849999999999994, 
    72.579999999999998, 64.939999999999998, 66.680000000000007, 
    77.109999999999999, 63.5, 56.700000000000003, 79.379999999999995, 
    79.379999999999995, 61.240000000000002, 54.43, 72.579999999999998, 
    95.260000000000005, 56.700000000000003, 61.240000000000002, 
    51.259999999999998, 86.180000000000007, 56.700000000000003, 
    59.420000000000002, 62.600000000000001, 47.630000000000003, 
    71.670000000000002, 72, 68.599999999999994, 88.450000000000003, 
    72.579999999999998, 68.040000000000006, 58.969999999999999, 
    54.43, 58.969999999999999, 58.969999999999999, 48.079999999999998, 
    98.430000000000007, 88, 57.609999999999999, 68.040000000000006, 
    67.349999999999994, 95.260000000000005, 70.310000000000002, 
    64.409999999999997, 88.450000000000003, 72.579999999999998, 
    77.109999999999999, 57.609999999999999, 66.230000000000004, 
    63.5, 68.400000000000006, 59.880000000000003, 74.840000000000003, 
    54.43, 91.170000000000002, 71.670000000000002, 64.340000000000003, 
    68.780000000000001, 61.240000000000002, 66.680000000000007, 
    52.159999999999997, 56.25, 64.859999999999999, 102.06, 49.899999999999999, 
    64.159999999999997, 63.5, 90.269999999999996, 61.240000000000002, 
    77.109999999999999, 58.969999999999999, 51.710000000000001, 
    53.07, 90.719999999999999, 71.370000000000005, 60.329999999999998, 
    77.109999999999999, 76.200000000000003, 53.979999999999997, 
    99.790000000000006, 70.390000000000001, 77.109999999999999, 
    72.579999999999998, 58.969999999999999, 58.969999999999999, 
    81.650000000000006, 124.73999999999999, 52.159999999999997, 
    67.129999999999995, 63.5, 49.899999999999999, 79.379999999999995, 
    58.969999999999999, 55.789999999999999), helmet_12m = c("never", 
    "rarely", "never", "never", "never", NA, "always", "never", 
    "never", "never", "did not ride", "never", "never", "never", 
    "sometimes", "never", "never", "never", "did not ride", "never", 
    "never", "did not ride", "rarely", "never", "never", "never", 
    "did not ride", "never", "did not ride", "never", "most of time", 
    "never", "did not ride", "never", "never", "did not ride", 
    "most of time", "did not ride", "never", "did not ride", 
    "did not ride", "sometimes", "did not ride", "never", "never", 
    "never", "never", "never", "did not ride", "never", "never", 
    "rarely", "did not ride", "most of time", "did not ride", 
    "never", "did not ride", "never", "always", "never", "never", 
    "never", "did not ride", "did not ride", "never", "did not ride", 
    "did not ride", "did not ride", "never", "never", "never", 
    "never", "never", "sometimes", "never", "did not ride", "rarely", 
    "never", "never", "never", "did not ride", "never", "did not ride", 
    "never", "never", "did not ride", "never", "never", "never", 
    "did not ride", "never", "did not ride", "did not ride", 
    "never", "never", "always", "did not ride", "never", "never", 
    "never"), text_while_driving_30d = c("1-2", "0", "0", "did not drive", 
    "did not drive", "did not drive", "0", "0", "0", "did not drive", 
    "0", "did not drive", "did not drive", "0", NA, NA, NA, "1-2", 
    "did not drive", "did not drive", "0", "0", "did not drive", 
    "0", "0", "did not drive", "0", "1-2", "1-2", "1-2", "did not drive", 
    "1-2", NA, "0", "did not drive", "0", "did not drive", "did not drive", 
    "3-5", "3-5", "30", "did not drive", "0", "did not drive", 
    "0", NA, "0", "did not drive", "did not drive", "20-29", 
    "0", "3-5", "0", "0", NA, "10-19", "0", "30", "0", "6-9", 
    "1-2", "did not drive", "0", "0", "1-2", "did not drive", 
    "did not drive", NA, "did not drive", "did not drive", "0", 
    "did not drive", "0", "did not drive", "6-9", "3-5", "did not drive", 
    "did not drive", "20-29", "0", "did not drive", "did not drive", 
    NA, "0", "0", "0", "did not drive", "did not drive", "0", 
    "did not drive", "did not drive", "did not drive", "did not drive", 
    "0", "1-2", "0", "0", "0", "1-2", "did not drive"), physically_active_7d = c(0, 
    7, 7, 3, 0, 4, 7, 5, 7, 6, 7, 2, 4, 7, 5, 1, 0, 7, 1, 7, 
    0, 2, 7, 7, 7, 0, 5, 7, 5, 4, 0, 4, 4, 3, 0, 5, 5, 4, 3, 
    4, 0, 7, 2, 5, 4, 4, 3, 2, 3, 5, 1, 3, 1, 6, 7, 7, 7, 7, 
    4, 0, 1, 2, 0, 7, 7, 4, 0, 4, 6, 0, 2, 2, 5, 4, 0, 2, 0, 
    1, 3, 4, 2, 5, 4, 7, 3, 0, 4, 7, 7, 3, 1, 7, 0, 7, 7, 2, 
    0, 6, 7, 1), hours_tv_per_school_day = c("4", "1", "2", "2", 
    "2", NA, "1", "3", "5+", "2", "5+", "<1", "2", "2", "1", 
    "4", "1", "2", "5+", "<1", "do not watch", "5+", "do not watch", 
    "2", "1", "2", "1", "1", "<1", "do not watch", "3", "5+", 
    NA, "3", "5+", "2", "2", "do not watch", "2", NA, "do not watch", 
    "do not watch", "4", "<1", NA, "1", "4", "3", "3", "2", "5+", 
    "2", "3", "4", "2", "3", "<1", "<1", "do not watch", "5+", 
    "2", "3", "do not watch", "1", "5+", "4", "2", "5+", "1", 
    "1", "2", "2", "2", "3", "1", "do not watch", "4", "2", "1", 
    "2", "2", "2", "do not watch", "1", "1", "do not watch", 
    NA, "<1", "4", "<1", "5+", "3", "5+", "5+", "3", "do not watch", 
    "1", "3", "5+", "3"), strength_training_7d = c(0, 5, 0, 1, 
    2, 3, 6, 4, 7, 4, 4, 0, 3, 7, 3, 1, 0, 5, 0, 0, 0, 2, 5, 
    5, 5, 0, 6, 7, 5, 5, 5, 2, 1, 0, 0, 5, 4, 3, 0, 3, 0, 6, 
    0, 0, 3, 4, 2, 0, 0, 6, 0, 1, 0, 6, 7, 5, 7, 7, 0, 0, 3, 
    1, 0, 0, 7, 7, 2, 1, 2, 0, 0, 1, 3, 4, 0, 2, 2, 0, 2, 3, 
    0, 5, 3, 7, 3, 0, 3, 7, 7, 4, 0, 7, 0, 7, 7, 0, 0, 5, 1, 
    0), school_night_hours_sleep = c("8", "7", "7", "5", "6", 
    "5", "7", "7", "7", "8", "10+", "<5", NA, "5", NA, "6", "5", 
    "8", "<5", "8", "6", "8", "8", "6", "6", "<5", "7", "7", 
    "7", "8", "9", "5", NA, "7", "8", "9", NA, "9", "7", NA, 
    NA, "6", "8", "8", NA, "5", NA, "<5", "7", "9", "<5", "7", 
    "8", "7", "7", "7", "8", "<5", "7", "7", "8", "7", "9", "8", 
    "9", "7", "<5", "10+", "7", "7", "8", "6", "6", "7", "7", 
    "9", "8", "7", "6", "8", "6", "7", "6", "8", "7", "<5", NA, 
    "9", "8", "5", "6", "8", "6", "8", "5", "7", "6", "7", "6", 
    "9")), row.names = c(5653L, 9437L, 2021L, 12187L, 1690L, 
13376L, 8501L, 4583L, 907L, 3830L, 4452L, 4934L, 13009L, 7992L, 
13582L, 2002L, 7322L, 9879L, 6470L, 9894L, 552L, 6116L, 1256L, 
2091L, 3958L, 4072L, 985L, 8038L, 7225L, 3227L, 11157L, 4733L, 
3209L, 1378L, 11274L, 5472L, 12720L, 5066L, 2118L, 1676L, 9635L, 
3413L, 7678L, 10077L, 7605L, 3870L, 13416L, 9584L, 764L, 9704L, 
1826L, 9810L, 11051L, 6670L, 7133L, 1628L, 1694L, 7393L, 2485L, 
1797L, 1561L, 3196L, 4124L, 9166L, 8386L, 11355L, 6393L, 12099L, 
8719L, 3335L, 11808L, 1861L, 1014L, 10515L, 3081L, 6269L, 1880L, 
11453L, 2444L, 2483L, 8108L, 4660L, 7045L, 790L, 10903L, 10316L, 
4185L, 5353L, 10593L, 7537L, 6487L, 2964L, 8257L, 8407L, 129L, 
5313L, 8600L, 12185L, 3111L, 2325L), class = c("tbl_df", "tbl", 
"data.frame"))