主页 / 问题 / 860595
Accepted
Alexshev92
Asked:2020-07-26 19:33:19 +0000 UTC2020-07-26 19:33:19 +0000 UTC

将向量拆分为向量列表

  • 772

我有一个这样的向量：

foo <- c(0, 1, 2, 3, 0, 0, 4, 5, 6, 7, 0, 0, 0, 5, 4, 0, 0, 1)

我想从中获取以下向量列表：

(1, 2, 3)
(4, 5, 6, 7)
(5, 4)
(1)

即选择值大于某个阈值（在本例中为 0）的点组。现在我做了这样一个拐杖算法：

thres <- 0 # порог

foo <- c(0, 1, 2, 3, 0, 0, 4, 5, 6, 7, 0, 0, 0, 5, 4, 0, 0, 1)
bar <- list()
temp <- c()

for(i in 1:length(foo))
{
  if(foo[i] > thres)
  {
    temp <- append(temp, foo[i])
  }
  else
  {
    if(length(temp) > 0)
    {
      bar[length(bar)+1] <- list(temp)
      temp <- c()     
    }
  }
}

问题是如果向量不以零结尾，那么最后一组点不包含在列表中。事实证明，您仍然需要输入一个附加标志。也许有一些使用内置函数或一些额外库的更简单的解决方案？

r

2 个回答

  1. Best Answer

    我们使用逻辑向量、累积和和split。

    x <- c(0, 1, 2, 3, 0, 0, 4, 5, 6, 7, 0, 0, 0, 5, 4, 0, 0, 1)
value <- 0
idx <- x == value
split(x[!idx], cumsum(idx)[!idx])
#> $`1`
#> [1] 1 2 3
#> 
#> $`3`
#> [1] 4 5 6 7
#> 
#> $`6`
#> [1] 5 4
#> 
#> $`8`
#> [1] 1
    • 2

  2. 我想出了这个（也是一个拐杖）选项：

    foo <- c(0, 1, 2, 3, 0, 0, 4, 5, 6, 7, 0, 0, 0, 5, 4, 0, 0, 1)
foo <- paste(foo, collapse = "")
strsplit(foo, "0")[[1]]

    事实证明

    [1] ""     "123"  ""     "4567" ""     ""     "54"   ""     "1"

    然后只剩下选择长度大于 0 的字符串并重新划分为数字。如果数字多于一位，则必须指定类似的内容collapse = "_"并除以"_"。

    • 0

相关问题