如何变成数据框

数据框如下：
y  x1 x2  z
1  1  1   25
1  1  0   10
1  0  1   84
1  0  0   36
0  1  1    2
0  1  0    4
0  0  1   63
0  0  0  100

问题1：z是频数 如何展开得到原始数据集？
如
y x1 x2
1  1  1
1  1  1
......
1  1  1
以上是25行1 1 1
问题2：如何根据问题1得到的数据集得到数据框
x1 x2 y=1 y=0
0 0 36 100
0 1 84  63
1  0   10  4
1  1   25  2

xx <- unique(Q1[, 2:3])
temp <- NULL
for (i in 1:nrow(xx)) {
    temp <- rbind(temp, table(Q1[(Q1[, 2] == xx[i, 1]) & (Q1[, 3] == xx[i, 2]), 1]))
}
Q2 <- cbind(xx, temp)
colnames(Q2) <- c("x1", "x2", "y=0", "y=1")
rownames(Q2) <- NULL

????

楼主没说清楚，估计可能是
aaa<-as.data.frame(rbind(case,control))

dat <- data.frame(y=c(1,1,1,1,0,0,0,0), x1=c(1,1,0,0,1,1,0,0), x2=c(1,0,1,0,1,0,1,0), z=c(25,10,84,36,2,4,63,100))
Q1 <- dat[, 1:3][rep(1:nrow(dat), dat[, 4]), ]; rownames(Q1) <- NULL

qoiqpwqr 发表于 2013-5-3 03:53
dat

dat <- data.frame(y=c(1,1,1,1,0,0,0,0), x1=c(1,1,0,0,1,1,0,0), x2=c(1,0,1,0,1,0,1,0), z=c(25,10,84,36,0,4,63,100))
如果频数出现0，结果有问题。

dxystata 发表于 2013-5-3 08:30
dat

频数为0就意味着没出现，干嘛还要写呢

famousid 发表于 2013-5-5 08:50
频数为0就意味着没出现，干嘛还要写呢

这样不就少了一种情况了吗