在R中創建新變量

-2

數據集包含四列（id，x1，x2和y1）。注意有一些多個記錄（通過id）。在R中創建新變量

下面是數據：

id <- c(1, 1, 1, 1, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6)  
x1 <- c("a","b","c","a","a","a","c","c","b", "e", "w", "r", "b", "c", "w", "r") 
x2 <- c(0.12, 0.76, 0.08, 0.11, 0.80, 0.24, 0.19, 0.07, 0.70, 0.64, 0.97, 0.04, 0.40, 0.67, 0.25, 0.01) 
y1 <- c(1132, 1464, 454, 1479, 167, 335, 280, 391, 973, 1343, 777, 1333, 293, 694, 76, 114) 
mdat <- data.frame(id, x1, x2, y1)

我想創建一個新的列（我們稱之爲y2）上。 ys定義爲

y2（i）= y1（i-1）對於相同的id。不是對於帶有onlu一個id的數據，那麼y2 = NA。

這裏是輸出：

id x1 x2  y1  y2 
1 a 0.12 1132  
1 b 0.76 1464 1132 
1 c 0.08 454  1464 
1 a 0.11 1479 454 
2 a 0.8  167 
3 a 0.24 335 
3 c 0.19 280  335 
3 c 0.07 391  280 
4 b 0.7  973 
4 e 0.64 1343 973 
4 w 0.97 777  1343 
4 r 0.04 1333 777 
5 b 0.4  293 
5 c 0.67 694  293 
5 w 0.25 76  694 
6 r 0.01 114

來源

2016-08-30 user9292

一個解決方案，您前旗關閉它的問題...讓我知道什麼是錯的。謝謝！ – user9292

你沒有顯示任何嘗試自己解決它。 –

我試過了，但不斷收到錯誤... – user9292

這裏是你可能想從dplyr包

> mdat$y2 <- unlist(tapply(mdat$y1, mdat$id, lag, 1)) 
> mdat 
    id x1 x2 y1 y2 
1 1 a 0.12 1132 NA 
2 1 b 0.76 1464 1132 
3 1 c 0.08 454 1464 
4 1 a 0.11 1479 454 
5 2 a 0.80 167 NA 
6 3 a 0.24 335 NA 
7 3 c 0.19 280 335 
8 3 c 0.07 391 280 
9 4 b 0.70 973 NA 
10 4 e 0.64 1343 973 
11 4 w 0.97 777 1343 
12 4 r 0.04 1333 777 
13 5 b 0.40 293 NA 
14 5 c 0.67 694 293 
15 5 w 0.25 76 694 
16 6 r 0.01 114 NA

來源

2016-08-30 20:05:11

考慮使用lag功能的替代與dplyr

library(dplyr) 

mdat %>% 
    group_by(id) %>% 
    mutate(y2 = y1 - c(NA,y1[-length(y1)]))

來源

2016-08-30 20:05:33

dplyr有一個'lag'函數.... –

您還需要刪除'y1 - '或者結果不符合想要的結果。 – alistaire

在R中創建新變量

回答

相關問題