每15分钟绘制一次积分

Question

我有一个文本文件，其中包含数字（浮点类型），表示以秒为单位的时间。我希望每15分钟代表一次出现次数。我的文件样本是：

0.128766
2.888977
25.087900
102.787657
400.654768
879.090874
903.786754
1367.098789
1456.678567
1786.564569
1909.567567

前900秒（15分钟），有6次出现。我想首先在y轴上绘制该点。然后从900-1800（接下来的15分钟），有4次出现。所以，我想在我的y轴上绘制4。这应该继续......

我知道基本的plot（）函数，但我不知道如何每15分钟绘制一次。如果存在链接，请引导我访问该链接。

Answer 1

使用findInterval()：

counts <- table(findInterval(x, seq(0, max(x), 900)))
counts

1 2 3 
6 4 1 

很容易绘制：

plot(counts)

Answer 2

以Andrie的答案为基础。您可以将plot(counts, type = 'p')添加到绘图点或plot(counts, type = 'l')以绘制连接线。如果您想为计数绘制曲线，则需要使用?lm或?nls对其进行建模。