when sharing data, its best to do so in a way that is directly useable by other forum members.
The dput() function is commonly used for this. for example
structure(list(dummy = c(3, 4, 7, 8, 11, 12, 15, 16, 19, 20,
23, 24, 27, 28, 31, 32, 35, 36, 39, 40, 43, 44, 47, 48, 51, 52,
55, 56, 59, 60, 63, 64, 67, 68, 71, 72, 75, 76, 79, 80, 83, 84,
87, 88, 91, 92, 95, 96, 99, 100, 103, 104, 107, 108, 111, 112,
115, 116, 119, 120, 123, 124, 127, 128, 131, 132, 135, 136, 139,
140, 143, 144, 147, 148, 151, 152, 155, 156, 175, 176, 191, 192,
195, 196, 207, 208, 223, 224, 227, 228, 231, 232, 235, 236, 247,
248, 267, 268, 271, 272, 275, 276, 279, 280, 283, 284, 287, 288,
291, 292, 295, 296, 299, 300, 315, 316, 319, 320, 323, 324, 327,
328, 331, 332, 335, 336, 339, 340, 343, 344, 351, 352, 355, 356,
359, 360), carcommute = c(35.9, 84, 28.3, 82.6, 23.3, 63, 34.2,
80.7, 31.1, 76.1, 29.9, 78.4, 32.2, 79.8, 31.7, 82.9, 34.1, 79.7,
28.5, 76.3, 32.2, 81.9, 36.6, 85.5, 34.4, 83.3, 36.7, 91, 33.8,
82.5, 47, 89.9, 41.1, 87.8, 33.6, 90.4, 38.9, 86.7, 32.1, 84.4,
32.2, 88.7, 32.9, 87.5, 41.2, 89.1, 42.6, 87.6, 42.2, 84.2, 40.2,
88.5, 59.9, 76.9, 59.4, 75.8, 57, 67.1, 56.9, 76.2, 67.9, 78.7,
60.7, 75.2, 50.6, 81.5, 61, 76.5, 67.2, 83.5, 60.7, 49.7, 70.4,
87.4, 61.6, 80.1, 62.7, 79.6, 50.4, 67, 50.1, 83.1, 51, 75.1,
52.1, 78.3, 46, 77.7, 74, 80.7, 62.4, 88.1, 66.4, 81.6, 59.8,
81.5, 52.4, 83.6, 55, 80.5, 61.5, 82.3, 73.5, 89.5, 74, 81.8,
50.6, 79, 60.5, 82.8, 55.3, 77.8, 68.7, 82.1, 69.9, 86.6, 78.9,
73.9, 76.8, 76.3, 72, 86.4, 74.1, 86.3, 74.6, 78.6, 65, 90.5,
73.2, 79, 73.6, 63, 74.7, 72.7, 77.4, 79.2), commutetime = c(41.6,
34.9, 37.1, 31.4, 35.1, 30.3, 36.4, 29.3, 36.8, 33.1, 37.8, 33.2,
39.5, 35.2, 42.7, 38.6, 43.1, 37.6, 45.1, 39.3, 47.1, 38.5, 47.6,
41.3, 43.3, 38.6, 40.3, 35.4, 39.2, 31.4, 43.3, 36.8, 43.5, 39.1,
43.8, 35.7, 42.7, 36.4, 39.3, 31.9, 42.2, 35.3, 44, 36.4, 38.2,
31.5, 39.5, 30.3, 39.4, 33.5, 42.1, 31, 41.1, 35.9, 32.7, 32.5,
38.1, 35.8, 39.7, 33, 37.5, 36, 41.1, 38.6, 43.7, 37.9, 45.5,
38.8, 42, 36.8, 22.4, 17.5, 44.3, 22.7, 39.4, 41.4, 39.9, 42.1,
41.9, 44.7, 45.3, 43.8, 43.1, 43.4, 40.3, 47.3, 42.7, 45.9, 29,
29.7, 34.4, 45.9, 38.3, 44, 42.7, 49.2, 41.9, 46.6, 40.9, 42.8,
44.1, 40.7, 33.7, 35.8, 36, 42, 41.9, 50.1, 41.8, 46.2, 41.3,
43, 43.7, 44.2, 36.9, 40.1, 25.9, 30.1, 25.5, 29.1, 39.2, 45.7,
35.9, 33.8, 33.9, 40.4, 39.4, 39.6, 31.2, 30.7, 29.9, 27.3, 20.1,
31.9, 26.1, 29.4), Fabric = c("Walking", "Walking", "Transit",
"Transit", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Walking", "Walking", "Walking", "Walking", "Transit",
"Transit", "Walking", "Walking", "Walking", "Walking", "Walking",
"Walking", "Automobile", "Automobile", "Automobile", "Automobile",
"Walking", "Transit", "Walking", "Walking", "Transit", "Transit",
"Transit", "Transit", "Walking", "Walking", "Transit", "Transit",
"Transit", "Transit", "Automobile", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Transit", "Transit",
"Transit", "Transit", "Transit", "Transit", "Walking", "Walking",
"Walking", "Walking", "Transit", "Transit", "Automobile", "Automobile",
"Automobile", "Automobile", "Transit", "Transit", "Transit",
"Transit", "Automobile", "Automobile", "Transit", "Transit",
"Automobile", "Automobile", "Transit", "Transit", "Automobile",
"Automobile", "Transit", "Transit", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Automobile", "Automobile",
"Automobile", "Automobile", "Automobile", "Automobile", "Automobile",
"Automobile")), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"
), row.names = c(NA, -136L), spec = structure(list(cols = list(
dummy = structure(list(), class = c("collector_double", "collector"
)), carcommute = structure(list(), class = c("collector_double",
"collector")), commutetime = structure(list(), class = c("collector_double",
"collector")), Fabric = structure(list(), class = c("collector_character",
"collector"))), default = structure(list(), class = c("collector_guess",
"collector")), skip = 1), class = "col_spec"))
you will see that this is runnable code that recreates the data.