如何解决创建所有递增值的序列
假设我有这个年份向量:
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
但它不起作用,因为我想要的输出长度不同。
有什么想法吗?
解决方法
您可以使用嵌套的 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
,
这行得通吗:
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。