R-программирование: как я могу вычислить разницу между двумя ячейками в кадре данных и сохранить их в новом столбце

Question

Попытка узнать R и застрять на примере автокорреляции. Я хочу регрессировать разницу в x от разницы в y. Я имею x и y в кадре данных и хотел бы, чтобы разница x2-x1 сохранялась в новом столбце, например, dx. Я понятия не имею, как это сделать.

то, что у меня есть:

data1

x y 
5 3 
8 9 
3 1 
1 5 
. . 
. . 
. . 

, что я хотел бы получить:

data1.dif 

x y dx dy 
5 3 NA NA 
8 9 3 6 
3 1 -5 -8 
1 5 -2 4 
. . . . 
. . . . 

Answer 1

diff использования, и придерживаться ЧА к началу результирующих векторов.

например.

data1 <- read.table(text=' x y 
1 5 3 
2 8 9 
3 3 1 
4 1 5') 

# diff calculates the difference between consecutive pairs of 
# vector elements 
diff(data1$x) 
[1] 3 -5 -2 

# apply diff to each column of data1, bind an NA row to the beginning, 
# and bind the resulting columns to the original df 
data1.dif <- cbind(data1, rbind(NA, apply(data1, 2, diff))) 
names(data1.dif) <- c('x', 'y', 'dx', 'dy') 

data1.dif 
    x y dx dy 
1 5 3 NA NA 
2 8 9 3 6 
3 3 1 -5 -8 
4 1 5 -2 4 

Answer 2

diff Использование с transform:

dat <- read.table(text="x y 
5 3 
8 9 
3 1 
1 5", header=T) 


transform(dat, dx=c(NA, diff(x)), dy=c(NA, diff(y))) 

Уступая:

x y dx dy 
1 5 3 NA NA 
2 8 9 3 6 
3 3 1 -5 -8 
4 1 5 -2 4 

И как ог dplyr:

library(dplyr) 

dat %>% 
    mutate(dx=c(NA, diff(x)), dy=c(NA, diff(y)))