使用累积和获取自定义数字序列的R代码是什么？

我的输入列在数据框的左侧。我需要我的输出列看起来像第二列。左侧的任何连续序列都必须以右列序列开始的输出为结果。谢谢

您可以通过diffInput是否大于1来定义组

资料

这是一个带有data.table的解决方案

---

到目前为止你尝试了什么？你尝试了什么？你打算用什么语言？请考虑阅读。

Input   Output
1001    1001
1067    1067
1068    1067
1080    1080
1081    1080
1082    1080
1255    1255
1256    1255
1257    1255
1258    1255
1259    1255
1386    1386
1822    1822

library(dplyr)
df %>%
  group_by(G = cumsum(c(0, diff(Input)) > 1)) %>%
  mutate(Output = min(Input)) %>%
  ungroup() %>%
  select(-G)

# A tibble: 13 x 2
   # Input Output
   # <int>  <dbl>
 # 1  1001   1001
 # 2  1067   1067
 # 3  1068   1067
 # 4  1080   1080
 # 5  1081   1080
 # 6  1082   1080
 # 7  1255   1255
 # 8  1256   1255
 # 9  1257   1255
# 10  1258   1255
# 11  1259   1255
# 12  1386   1386
# 13  1822   1822

df <- read.table(text="Input   Output
1001    1001
1067    1067
1068    1067
1080    1080
1081    1080
1082    1080
1255    1255
1256    1255
1257    1255
1258    1255
1259    1255
1386    1386
1822    1822", header=TRUE)

library("data.table")
DT <- fread(
"Input  
1001    
1067    
1068    
1080    
1081    
1082    
1255    
1256    
1257    
1258    
1259    
1386    
1822")
DT[, Output:=min(Input), cumsum((c(0, diff(Input))>1))]
DT