I want a dataframe with a list of the next values:

```
a <- Data[1,2]
b <- Data[2,3]
c <- Data[3,4]
d <- Data[4,5]
df <- data.frame(c(a,b,c,d))

```

I need to repeat this many times so I thought maybe there is a simple way to write this code.

First I thought something like this, but it doesn't work:

```
for(i in 1:4){
  df <- data.frame(Data[i,1+i])
}

```

Wanted result:

![Wanted result](https://i.stack.imgur.com/I8hVb.png)

Can somebody help me with this problem?