I have the following data:
dat <- structure(list(description = list("MedianTime_SpeederTemp", "MedianTime_SpeederTemp"),