[英]creating new new lines from column values
我正在努力做一件事:我有一个R数据帧,每个人都有个人ID,入职年份和退出年份。 看起来像:
id Entry Exit
1 1988 1990
2 1986 1987
我需要一个新的数据帧,其间隔(入口,出口)扩展到它包含的年份,即我需要这个:
id Year
1 1988
1 1989
1 1990
2 1986
2 1987
我无法创建正确的循环,我非常感谢你的帮助。
干杯
d <- structure(list(id = c(1, 2), Entry = c(1988, 1986), Exit = c(1990,
1987)), .Names = c("id", "Entry", "Exit"), row.names = c(NA,
-2L), class = "data.frame")
years <- apply(d, 1, function(x) seq(x[2], x[3]))
ids <- rep(d[, "id"], lapply(years, length))
res <- cbind(ids, unlist(years))
res
# ids
#[1,] 1 1988
#[2,] 1 1989
#[3,] 1 1990
#[4,] 2 1986
#[5,] 2 1987
这里有两个选择:
无论哪种方式都可行。 这是前者的一个例子。
dat <- data.frame(id=seq(2),entry=c(88,86),exit=c(90,87))
res <- apply(dat,1,function(x) data.frame(id=x[1],year=seq(x[2],x[3])) )
> res
[[1]]
id year
1 1 88
2 1 89
3 1 90
[[2]]
id year
1 2 86
2 2 87
res
现在是data.frames的列表。 然后我们可以组合data.frames:
library(taRifx)
> stack(res)
id year
1 1 88
2 1 89
3 1 90
4 2 86
5 2 87
或者在基地R:
do.call(rbind,res)id year 1 1 88 2 1 89 3 1 90 4 2 86 5 2 87
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.