速度加速热图

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

我想创建一个v-a热图，如下所示：

我尝试构建和运行的代码如下：

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

结果非常糟糕：

请你帮我吗？
谢谢大家。

答案中的代码结果：