lizard_run <-
structure(list(top_speed = c(1.52, 1.74, 1.79, 2.0099999999999998, 
3.1299999999999999, 2.8900000000000001, 2.5600000000000001, 2.6499999999999999, 
3.3799999999999999, 2.3599999999999999, 2.21, 1.6499999999999999, 
2.0499999999999998, 2.8399999999999999, 3.3599999999999999, 2.02, 
1.6299999999999999, 2.5099999999999998, 2.1800000000000002, 2.0899999999999999, 
1.8200000000000001, 2.5299999999999998, 1.74, 1.4099999999999999, 
1.3, 1.4199999999999999, 2.23, 1.6699999999999999, 1.1499999999999999, 
1.3799999999999999, 1.75, 1.47, 1.5900000000000001, 1.99, 2.21, 
1.4099999999999999, 1.7, 1.8899999999999999, 1.8, 2.02, 1.8700000000000001, 
1.75, 1.1499999999999999, 1.6299999999999999, 1.8400000000000001, 
1.2, 1.28, 1.0800000000000001), common_name = c("Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Western fence lizard", "Western fence lizard", "Western fence lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", "Sagebrush lizard", 
"Sagebrush lizard", "Sagebrush lizard"), scientific_name = c("Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus occidentalis", "Sceloporus occidentalis", "Sceloporus occidentalis", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus", "Sceloporus graciosus", 
"Sceloporus graciosus", "Sceloporus graciosus")), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -48L), spec = structure(list(
    cols = list(top_speed = structure(list(), class = c("collector_double", 
    "collector")), common_name = structure(list(), class = c("collector_character", 
    "collector")), scientific_name = structure(list(), class = c("collector_character", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1L), class = "col_spec"))