创建所有增加值的序列

Question

假设我有这个年份向量：

allyears <- c("2008", "2009", "2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018", "2019", "2020")

我想创建 所有长度 的所有连续 增加序列 年：

"2008" "2009"
"2008" "2009" "2010"
"2008" ... "2020"

"2009" "2010"
"2009" "2010" "2011"
"2009" ... "2020"

.
.
.

"2019" "2020"

我试过 expand.grid 但它不起作用，因为我想要的输出长度不同。

有什么想法吗？

Answer 1

这个有用吗：

sapply(allyears, function(x) seq(as.integer(x), max(as.integer(allyears))))
$`2008`
 [1] 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020

$`2009`
 [1] 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020

$`2010`
 [1] 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020

$`2011`
 [1] 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020

$`2012`
[1] 2012 2013 2014 2015 2016 2017 2018 2019 2020

$`2013`
[1] 2013 2014 2015 2016 2017 2018 2019 2020

$`2014`
[1] 2014 2015 2016 2017 2018 2019 2020

$`2015`
[1] 2015 2016 2017 2018 2019 2020

$`2016`
[1] 2016 2017 2018 2019 2020

$`2017`
[1] 2017 2018 2019 2020

$`2018`
[1] 2018 2019 2020

$`2019`
[1] 2019 2020

$`2020`
[1] 2020

Answer 2

您可以使用嵌套 lapply :

allyears <- sort(as.numeric(allyears))
n <- length(allyears)
lapply(seq_along(allyears)[-n], function(x) 
       lapply(seq(x+1, n), function(y) allyears[x:y]))

#[[1]]
#[[1]][[1]]
#[1] 2008 2009

#[[1]][[2]]
#[1] 2008 2009 2010

#[[1]][[3]]
#[1] 2008 2009 2010 2011

#...
#...

#[[1]][[11]]
# [1] 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019

#[[1]][[12]]
# [1] 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020

#...
#...

#[[11]]
#[[11]][[1]]
#[1] 2018 2019

#[[11]][[2]]
#[1] 2018 2019 2020


#[[12]]
#[[12]][[1]]
#[1] 2019 2020

创建所有增加值的序列

Create all sequences of increasing values

r

sequence