Теплокарта ускорения скорости

Question

У меня есть телематический набор данных страхования с выборкой в ​​1 секунду для водителя, который согласился установить в своем автомобиле регистратор данных о событиях. Вот как выглядят данные:

    head(y,15)
        ACCELERATION    GPS_SPEED
2071513        0.012            1
2071514        0.012            2
2071515        0.012            3
2071516        0.012            4
2071517        0.012            5
2071518        0.012            6
2071519        0.012            7
2071520        0.012            8
2071521        0.012            9
2071522        0.000           10
2071523       -0.012           16
2071524       -0.012           17
2071525        0.000           24
2071526        0.084           25
2071527        0.096           26

Я хотел бы создать тепловую карту следующим образом:

Код, который я пытался собрать и запустить, выглядит следующим образом:

y <- as.data.frame(head(dplyr::select(data1, RT_AVG_ACC_X, RT_GPS_SPEED),5000))
y <- as.matrix(y)
heatmap(y)

Результат довольно ужасный:

Ребята, не могли бы вы мне помочь?
Спасибо всем.

Результат кода в ответе: