根据 R 中的单独列标记列中值的第一次连续出现

zumbay 发表于 Dev

赞拜

无法弄清楚这个......我在R中有一个像这样的数据集：

x <- c("A", "B", "C", "A", "A", "A", "C", "B", "A", "A", "B", "B", "A", "A", "C", "B","A")
z <- c(1, 1, 1, 1,2, 2, 2, 2, 2, 2, 2,3, 3, 3, 3, 3,3)
y <- c(43, 32, 12, 32, 22, 42, 45, 13, 15, 61, 71, 13, 32, 24, 11, 15,33)
df <- data.frame(x,z,y)

像这样：

现在我想标记 A 的第一次出现，如果它们在 z 的每个值中是连续的。
理想情况下，最终结果应如下所示：

我也很高兴就如何重新表述这个问题的标题以使其更直接的建议。谢谢！

原始的

基础解决方案

x <- c("A", "B", "C", "A", "A", "A", "C", "B", "A", "A", "B", "B", "A", "A", "C", "B","A")
z <- c(1, 1, 1, 1,2, 2, 2, 2, 2, 2, 2,3, 3, 3, 3, 3,3)
y <- c(43, 32, 12, 32, 22, 42, 45, 13, 15, 61, 71, 13, 32, 24, 11, 15,33)
df <- data.frame(x,z,y)

within(df, {
  tag <- +(ave(as.character(df$x), df$z, FUN = function(xx) {
    r <- rle(xx %in% 'A')
    r$values[cumsum(r$values) > 1] <- FALSE
    inverse.rle(r)
  }) %in% 'TRUE')
})

#    x z  y tag
# 1  A 1 43   1
# 2  B 1 32   0
# 3  C 1 12   0
# 4  A 1 32   0
# 5  A 2 22   1
# 6  A 2 42   1
# 7  C 2 45   0
# 8  B 2 13   0
# 9  A 2 15   0
# 10 A 2 61   0
# 11 B 2 71   0
# 12 B 3 13   0
# 13 A 3 32   1
# 14 A 3 24   1
# 15 C 3 11   0
# 16 B 3 15   0
# 17 A 3 33   0

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。