cherry <-
structure(list(diam = c(8.3000000000000007, 8.5999999999999996, 
8.8000000000000007, 10.5, 10.699999999999999, 10.800000000000001, 
11, 11, 11.1, 11.199999999999999, 11.300000000000001, 11.4, 11.4, 
11.699999999999999, 12, 12.9, 12.9, 13.300000000000001, 13.699999999999999, 
13.800000000000001, 14, 14.199999999999999, 14.5, 16, 16.300000000000001, 
17.300000000000001, 17.5, 17.899999999999999, 18, 18, 20.600000000000001
), height = c(70L, 65L, 63L, 72L, 81L, 83L, 66L, 75L, 80L, 75L, 
79L, 76L, 76L, 69L, 75L, 74L, 85L, 86L, 71L, 64L, 78L, 80L, 74L, 
72L, 77L, 81L, 82L, 80L, 80L, 80L, 87L), volume = c(10.300000000000001, 
10.300000000000001, 10.199999999999999, 16.399999999999999, 18.800000000000001, 
19.699999999999999, 15.6, 18.199999999999999, 22.600000000000001, 
19.899999999999999, 24.199999999999999, 21, 21.399999999999999, 
21.300000000000001, 19.100000000000001, 22.199999999999999, 33.799999999999997, 
27.399999999999999, 25.699999999999999, 24.899999999999999, 34.5, 
31.699999999999999, 36.299999999999997, 38.299999999999997, 42.600000000000001, 
55.399999999999999, 55.700000000000003, 58.299999999999997, 51.5, 
51, 77)), row.names = c(NA, -31L), class = c("tbl_df", "tbl", 
"data.frame"))