r - 应用滞后或领先于数据框的递增顺序

Question

df1 <- read.csv("C:/Users/uni/DS-project/df1.csv")
df1

    year value
1  2000     1
2  2001     2
3  2002     3
4  2003     4
5  2004     5
6  2000     1
7  2001     2
8  2002     3
9  2003     4
10 2004     5
11 2000     1
12 2001     2
13 2002     3
14 2003     4
15 2004     5
16 2000     1
17 2001     2
18 2002     3
19 2003     4
20 2004     5

我想应用 lead，这样我就可以以下面的方式获得输出。

我们有一组每年重复 n 次的 5 个观察值，在第一年的输出中我们需要删除 2000 及其各自的值，第二年类似我们忽略 2000 和 2001 及其各自的值，并且对于第 3 年删除 - 2000、2001、2002 及其各自的值。等等。

以便我们可以通过以下方式获得以下输出。

output: 
year    value
2000    1
2001    2
2002    3
2003    4
2004    5
2001    2
2002    3
2003    4
2004    5
2002    3
2003    4
2004    5
2003    4
2004    5

请帮忙。

Answer 1

只是为了好玩，使用矩阵子设置添加矢量化解决方案

m <- matrix(rep(TRUE, nrow(df)), 5)
m[upper.tri(m)] <- FALSE
df[m,]
#    year value
# 1  2000     1
# 2  2001     2
# 3  2002     3
# 4  2003     4
# 5  2004     5
# 7  2001     2
# 8  2002     3
# 9  2003     4
# 10 2004     5
# 13 2002     3
# 14 2003     4
# 15 2004     5
# 19 2003     4
# 20 2004     5