R 如何在不正确缩放的情况下绘制平行图？

我尝试绘制一个平行图表，显示用户在播放音频文件时的交互。 一个y轴显示音频播放，另一个y轴显示用户处理音频播放的时间

问题：左TranscrTime轴的最大值应约为6000，而不是600。音频轴的最大值应为334。 我觉得出了点问题（见截图和代码）

我现在没有主意了。。。我做错了什么

---

#创建数据表的代码。在本文末尾，一个例子被上传到pastebin。
创建pc表格我修复了它。问题是音频和TransrTime列没有被识别为数字。我在将列的所有值转换为数字时修复了它：

...
  data[,1] <- as.numeric(data[,1])
  data[,2] <- as.numeric(data[,2])
  data <- data[order(data$TranscrTime),]
  return(data)
}

。。。
数据[，1]
...
  data[,1] <- as.numeric(data[,1])
  data[,2] <- as.numeric(data[,2])
  data <- data[order(data$TranscrTime),]
  return(data)
}