Обработка данных в R

Question

В рамках проекта в настоящее время я использую R для анализа некоторых данных. В настоящее время я застрял в извлечении нескольких значений из существующего набора данных, который я импортировал из файла csv.

файл выглядит следующим образом:

Для моего анализа, я хотел создать еще один столбец, который является вычитанием текущего значения x и его предыдущего значения. Но первое значение каждого уникального i, x будет таким же, как и в настоящее время. Я новичок в R, и я иногда пытаюсь по-разному, но все еще не в состоянии понять, как это сделать. Запросите свои предложения в подходе, который я могу выполнить для достижения этой задачи.

MyData структура

structure(list(t = 1:10, x = c(34450L, 34469L, 34470L, 34483L, 
34488L, 34512L, 34530L, 34553L, 34575L, 34589L), y = c(268880.73342868, 
268902.322359863, 268938.194698248, 268553.521856105, 269175.38273083, 
268901.619719038, 268920.864512966, 269636.604121984, 270191.206593437, 
269295.344751692), i = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L)), .Names = c("t", "x", "y", "i"), row.names = c(NA, 10L), class = "data.frame") 

Answer 1

Вы можете использовать пакет data.table, чтобы получить то, что вы хотите:

library(data.table) 
setDT(MyData)[, x_diff := c(x[1], diff(x)), by=i] 
MyData 
    # t  x i x_diff 
# 1: 1 34287 1 34287 
# 2: 2 34789 1 502 
# 3: 3 34409 1 -380 
# 4: 4 34883 1 474 
# 5: 5 34941 1  58 
# 6: 6 34045 2 34045 
# 7: 7 34528 2 483 
# 8: 8 34893 2 365 
# 9: 9 34551 2 -342 
# 10: 10 34457 2 -94 

данных:

set.seed(123) 
MyData <- data.frame(t=1:10, x=sample(34000:35000, 10, replace=T), i=rep(1:2, e=5)) 

Answer 2

Вы можете использовать функцию diff(). Если вы хотите добавить новый столбец в существующий кадр данных, функция diff вернет векторную длину x-1 вашего текущего кадра данных. так что в вашем случае вы можете попробовать это:

# if your data frame is called MyData 
MyData$newX = c(NA,diff(MyData$x)) 

Это должно вход значение NA в качестве первой записи в вашем новом столбце, а остальные значения будет разностью между последовательными значениями в столбце «х»

UPDATE:

Вы можете создать простой цикл, Подменит через каждый уникальный экземпляр «я», а затем вычисление разности между вашим х значениями

# initialize a new dataframe 
newdf = NULL 
values = unique(MyData$i) 
for(i in 1:length(values)){ 
    data1 = MyData[MyData$i = values[i],] 
    data1$newX = c(NA,diff(data1$x)) 
    newdata = rbind(newdata,data1) 
} 

# and then if you want to overwrite newdf to your original dataframe 
MyData = newdf 

# remove some variables 
rm(data1,newdf,values)