将值从一个数据帧表示到另一个数据帧。申请？申请？

Question

我有以下数据框

data<-data.frame(ID=c("a", "b", "c", "d"), zeros=c(3,2,5,4), ones=c(1,1,2,1))


   ID zeros ones
1  a     3    1
2  b     2    1
3  c     5    2
4  d     4    1

，我希望创建另一个包含 2 列的数据框：

第一列（id） ID 重复（零+个）次 第二列值应该是 c(rep(0,zeros),rep(1,ones))，

这样结果就是

    id value
1   a  0
2   a  0
3   a  0
4   a  1
5   b  0
6   b  0
7   b  1
8   c  0
9   c  0
10  c  0
11  c  0
12  c  0
13  c  1
14  c  1
15  d  0
16  d  0
17  d  0
18  d  0
19  d  1

我尝试的 data.frame(id=(rep(data$ID, (data$zeros) +data$ones))), value=c(rep(0, data$zeros), rep(1, data$ones))) 但不起作用。有什么想法吗？先感谢您

Answer 1

使用 plyr 包中的 ddply 可能有点矫枉过正，但这是我想到的第一件事：

ddply(dat,.(ID),function(x){data.frame(value = rep(c(0,1),times = c(x$zeros,x$ones)))})

哦，我将数据框的名称更改为 dat 以避免坏习惯（data 是一个经常使用的函数的名称）。

Answer 2

这是一个基本的 R 解决方案。我自己更喜欢 plyr 的过度杀伤力：

dat <- data.frame(ID = letters[1:4], zeros = c(3,2,5,4), ones = c(1,1,2,1))

do.call("rbind"
    , apply(dat, 1, function(x) 
        data.frame(cbind(id = x[1], value = rep(0:1, times = x[2:3])))
    )
)

Answer 3

由于您已经获得了第一列的基本 R 解决方案，因此这是第二列的解决方案：

lengths<-as.vector(t(as.matrix(data[,2:3]))) #notice the t
what<-rep(c(0,1), nrow(data))
times<-rep(what, lengths)

编辑：更改了上面的一个小问题并对其进行了测试。现在可以了。

Answer 4

我也更喜欢 plyr 方法，但我想我应该抛出另一个与首先重塑数据然后复制数据相关的基本 R 解决方案。 （也使用 dat 而不是 data）：

names(dat)[2:3] <- c("times.0", "times.1")
tmp <- reshape(dat, varying=2:3, direction="long")
tmp <- tmp[rep(seq(length=nrow(tmp)),tmp$times),c("ID","time")]
names(tmp) <- c("id","value")
tmp <- tmp[order(tmp$id, tmp$value),]
rownames(tmp) <- NULL

不像其他一些基本解决方案那么优雅，因为它需要中间存储，但可能很有趣。