R 中的颜色编码时间轴图

Question

我正在移动应用程序中可视化用户触摸交互。我想将它们绘制在按动作类型进行颜色编码的一维时间轴中。

也就是说，我的两个变量是时间（以毫秒为单位，在 x 轴上）和触摸类型（用于对线条进行颜色编码）。颜色应该能够重复。

理想情况下，情节看起来像这样，我发现之前的问题提供了类似的东西，但我想知道是否没有更好的东西。

是否有其他使用 R 的方法可以让我这样做？

Answer 1

我有一个基本R方法的工作原理。它有点笨拙，但经过一些调整，它应该可以很好地工作。我已经消除了对data.table、timeline和ggplot包的依赖，选择使用polygon函数。

df <- data.frame(Set=c("x","y","z","x","y","z","x","y","z","x","y","z","x"),
       StartDate=c(1380708900,1402963200,1420070400,1421280000,1410912000,1396310400,1397520000,1418860800,1404172800,1405382400,1395100800,1412121600,1413331200),
       EndDate=  c(1395099900,1404171900,1421279100,1430985600,1412120700,1397519100,1402962300,1420069500,1405381500,1410911100,1396309500,1413330300,1418859900))
df$StartLabel <- as.POSIXct(df$StartDate,tz="UTC",origin="1970-01-01")
df$Set <- as.factor(df$Set)

上面设置了data.frame对象。

这将设置绘图画布

plot(c(df$StartDate[1], tail(df$EndDate,1)), c(0.4,0.65), 
     type='n', xlab='Time', ylab='', axes=FALSE)

这将笨拙地循环遍历您的值，并为每个观测值的每个时间段绘制一个彩色多边形

for(i in 1:nrow(df)){
  polygon(x=c(rep(df$StartDate[i],2), rep(df$EndDate[i],2)), 
          y=c(0.6,0.4,0.4,0.6), col=rainbow(3, alpha=0.75)[df$Set[i]],
          border=rainbow(3)[df$Set[i]])
}

然后我添加轴（这可能需要一些调整，具体取决于您要显示多少日期信息。

axis(1, labels=df$StartLabel, at=df$StartDate)

然后，这将图例设置在情节的顶部。

legend('top', horiz=TRUE, 
       c('Test set', 'Training set', 'Validation set'), 
       pch=16, col=rainbow(3), bty='n', x.intersp=1.5, title='Group')

希望这有所帮助。

Answer 2

如果没有工作示例，我建议您使用ggplot2包（以及ggfortify），它允许您将变量（此处：操作类型）映射到颜色。一种常见的替代方法是大小（点/点）或粗细（线）。

此外，您可能会发现对象ts时间序列（请参阅此处的示例/参考）很有帮助。但是，对于您有兴趣绘制的数据类型，这不是必需的。祝你好运！