我有一个向量,例如c(1, 3, 4, 5, 9, 10, 17, 29, 30)
我想将形成规则、连续序列的“相邻”元素分组在一起,即在参差不齐的向量中增加 1,结果是:
L1: 1
L2:3,4,5
L3:9,10
L4: 17
L5:29,30
天真的代码(前 C 程序员的):
partition.neighbors <- function(v)
{
result <<- list() #jagged array
currentList <<- v[1] #current series
for(i in 2:length(v))
{
if(v[i] - v [i-1] == 1)
{
currentList <<- c(currentList, v[i])
}
else
{
result <<- c(result, list(currentList))
currentList <<- v[i] #next series
}
}
return(result)
}
现在我明白了
a) R 不是 C(尽管有大括号)
b) 全局变量是纯粹的邪恶
c) 这是实现结果的极其低效的方式
,所以欢迎任何更好的解决方案。