orings <-
structure(list(mission = 1:23, temperature = c(53L, 57L, 58L, 
63L, 66L, 67L, 67L, 67L, 68L, 69L, 70L, 70L, 70L, 70L, 72L, 73L, 
75L, 75L, 76L, 76L, 78L, 79L, 81L), damaged = c(5L, 1L, 1L, 1L, 
0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 
0L, 0L, 0L), undamaged = c(1, 5, 5, 5, 6, 6, 6, 6, 6, 6, 5, 6, 
5, 6, 6, 6, 6, 5, 6, 6, 6, 6, 6)), row.names = c(NA, -23L), class = c("tbl_df", 
"tbl", "data.frame"))