R：定位列的唯一值的最后一次观察的索引的最佳方法

Question

我有以下数据。它总是按升序排列。我希望能够找到所有唯一值的最后一个值，即 0, 1, 2, 3, 4 ..... 的最后一个值在下面的示例中，1 不存在，因此可以跳过并继续查找最后一个值 2 和 return index.

我想要一个包含不同唯一值的所有最后观察值的索引向量。

我该怎么做？谢谢

    structure(c(0, 0, 0, 0, 2, 2, 3, 3, 13, 14, 14, 14, 14, 24, 34, 
35, 37, 38, 38, 40, 42, 42, 43, 43, 44, 54, 54, 54, 64), index = structure(c(1167667200, 
1167753600, 1167840000, 1167926400, 1168012800, 1168099200, 1168185600, 
1168272000, 1168358400, 1168444800, 1168531200, 1168617600, 1168704000, 
1168790400, 1168876800, 1168963200, 1169049600, 1169136000, 1169222400, 
1169308800, 1169395200, 1169481600, 1169568000, 1169654400, 1169740800, 
1169827200, 1169913600, 1.17e+09, 1170086400), tzone = "", tclass = c("POSIXct", 
"POSIXt")), class = c("xts", "zoo"), .Dim = c(29L, 1L), .Dimnames = list(
    NULL, "testing"))

Answer 1

library(zoo)
df <- as.data.frame(df)
cumsum(rle(df$testing)$lengths)
# [1]  4  6  8  9 13 14 15 16 17 19 20 22 24 25 28 29

Answer 2

您可以使用 rle 函数来确定每个值的运行长度，然后通过 cumsum:

索引到适当的行

indices <- cumsum(rle(as.vector(a))$lengths)
a[indices]
                    testing
2007-01-04 16:00:00       0
2007-01-06 16:00:00       2
2007-01-08 16:00:00       3
2007-01-09 16:00:00      13
2007-01-13 16:00:00      14
2007-01-14 16:00:00      24
2007-01-15 16:00:00      34
2007-01-16 16:00:00      35
2007-01-17 16:00:00      37
2007-01-19 16:00:00      38
2007-01-20 16:00:00      40
2007-01-22 16:00:00      42
2007-01-24 16:00:00      43
2007-01-25 16:00:00      44
2007-01-28 16:00:00      54
2007-01-29 16:00:00      64

Answer 3

你可以试试：

which(rev(!duplicated(rev(df$testing))))
#> [1]  4  6  8  9 13 14 15 16 17 19 20 22 24 25 28 29

Answer 4

1) 如果 x 是输入 xts 对象，则给出每个元素最后一次出现的索引。

findInterval(unique(x), x)
## [1]  4  6  8  9 13 14 15 16 17 19 20 22 24 25 28 29

2) 这个替代方案给出了一个命名向量作为结果：

cumsum(table(x))
##  0  2  3 13 14 24 34 35 37 38 40 42 43 44 54 64 
##  4  6  8  9 13 14 15 16 17 19 20 22 24 25 28 29

R：定位列的唯一值的最后一次观察的索引的最佳方法

R: the best way to locate the index of last observation of unique values of a column

r

zoo