R 读取我的第一个xts时间序列并获得重复的行

我按照我在这篇文章中读到的内容来创建我的第一个xts时间序列。我在输出中得到了重复的行，但仅在某些情况下。（数据以5分钟为增量，但存在不在常规5分钟计划中的间隙。因此，我使用xts处理这些不规则数据，以便以后使用acf）。前10行的示例适用于：

> waterlevels
                 dates water.level.ft
1  2014-12-18 15:43:16             NA
2  2014-12-18 15:48:16          2.608
3  2014-12-18 15:53:16          2.610
4  2014-12-18 15:58:16          2.605
5  2014-12-18 16:03:16          2.600
6  2014-12-18 16:08:16          2.553
7  2014-12-18 16:13:16          2.565
8  2014-12-18 16:18:16          2.352
9  2014-12-18 16:23:16          2.350
10 2014-12-18 16:28:16          2.357

dtw2 <- data.frame(waterlevels$dates, waterlevels$Water.Level.ft)
colnames(dtw2) <- c("dates","waterlevels")
dtw2.ts <- xts(dtw2$waterlevels, order.by = dtw2$dates)

>水位
日期水位
1 2014-12-18 15:43:16北美
2  2014-12-18 15:48:16          2.608
3  2014-12-18 15:53:16          2.610
4  2014-12-18 15:58:16          2.605
5  2014-12-18 16:03:16          2.600
6  2014-12-18 16:08:16          2.553
7  2014-12-18 16:13:16          2.565
8  2014-12-18 16:18:16          2.352
9  2014-12-18 16:23:16          2.350
10 2014-12-18 16:28:16          2.357
dtw2很简单，xts对象有重复的行，因为
waterlevels.cw2
data.frame有重复的行。前21666行与后21666行匹配

> wl <- waterlevels.cw2
> all.equal(wl[1:21666,], wl[21667:43332,], check.attributes=FALSE)
[1] TRUE

>wl all.equal（wl[1:21666]，wl[21667:43332]，check.attributes=FALSE）
[1] 真的

从data.frame中删除重复项，它们将不会出现在xts对象中：

> dtw <- data.frame(dates=waterlevels.cw2$dates,
+                   waterlevels=waterlevels.cw2$Water.Level.ft)
> head(dtw.ts <- with(dtw[-(1:21666),], xts(waterlevels, dates)))
                     [,1]
2014-12-18 15:43:16    NA
2014-12-18 15:48:16 2.608
2014-12-18 15:53:16 2.610
2014-12-18 15:58:16 2.605
2014-12-18 16:03:16 2.600
2014-12-18 16:08:16 2.553

>dtw head（dtw.ts很简单，xts对象有重复的行，因为您的
waterlevels.cw2
data.frame有重复的行。前21666行与后21666行匹配

> wl <- waterlevels.cw2
> all.equal(wl[1:21666,], wl[21667:43332,], check.attributes=FALSE)
[1] TRUE

>wl all.equal（wl[1:21666]，wl[21667:43332]，check.attributes=FALSE）
[1] 真的

从data.frame中删除重复项，它们将不会出现在xts对象中：

> dtw <- data.frame(dates=waterlevels.cw2$dates,
+                   waterlevels=waterlevels.cw2$Water.Level.ft)
> head(dtw.ts <- with(dtw[-(1:21666),], xts(waterlevels, dates)))
                     [,1]
2014-12-18 15:43:16    NA
2014-12-18 15:48:16 2.608
2014-12-18 15:53:16 2.610
2014-12-18 15:58:16 2.605
2014-12-18 16:03:16 2.600
2014-12-18 16:08:16 2.553

>dtw头（dtw.ts如果没有实际的数据文件，将很难帮助您调试此文件。您可以将其上载到dropbox、pastebin等吗？这里是waterlevels.cw2：这在生成重复项的第二段代码中使用。如果没有实际的数据文件，将很难帮助您调试此文件。您可以将其上载到dropbox、pastebin等吗？这里is waterlevels.cw2：这在生成重复项的第二段代码中使用