每隔半小时绘制数据

Question

我有如下数据：

> operation_time      nb_reaction
> 13.02                  14
> 13.08                  4
> 13.58                  17
> 14.02                  36
> 14.09                  44
> 14.52                  64
> 15.03                  78

我想要绘制这些数据的x=时间和y=nb_reaction，例如，每30分钟分组一次，例如13.02和13.08将包含在同一条中，之后的半小时只包含13.58个小时，之后是14.02和14.09等等。

如何做到这一点？

非常感谢

Answer 1

假设您的两个列都是数字的，您可以这样做：

#this function returns the decimal of a number
decimal <- function(x) {

  decs <- as.numeric(substr(format(x,2), 4,5))
  decs

}

然后，您可以使用上面的函数来绕过时间，如下所示：

#Just an ifelse function to round the time to either .00 or .30
df$round_time <- ifelse(decimal(df$operation_time) < 30, 
                        df$operation_time - decimal(df$operation_time) / 100, 
                        df$operation_time - decimal(df$operation_time) / 100 + 0.30)

然后，使用以下内容进行聚合：

toplot <- aggregate(nb_reaction ~ round_time, data=df, FUN=sum)

最后是阴谋：

barplot(toplot$nb_reaction, names.arg=as.character(toplot$round_time) )

​

​

如果你愿意的话，你可以为上面的names.arg提供你自己的标签。