3

我正在尝试将长数据形式转换为 R 中的宽数据形式。例如，我有以下数据框：

a = rep(c("A","B","C","D"),4)
b = rep(c("COL1","COL2","COL3","COL4"),4)
val = 101:116
df = as.data.frame(cbind(a,b,val))
df

我希望看到结果为：

row <- as.list(levels(df$a))
col <- as.list(levels(df$b))

test <- data.frame()

i = 1

  for (j in 1:4) {
    for(k in 1:4){
      test[j,k]  =   df$val[i]
      i = i + 1 
    }
  }

colnames(test) <- c("COL1","COL2","COL3","COL4")
rownames(test) <- c("A","B","C","D")
test

如果您能使用一些方便的功能提出一个优雅的解决方案，将不胜感激。谢谢，卡西姆

4

2 回答 2

3

使用unstack：

df.out <- unstack(df, val ~ b)
rownames(df.out) <- unique(df$a)

使用reshape2，它需要一些技巧来获取一id列，因为您的标识符不能唯一地标识值。

dcast(transform(df, id=rep(1:4, each=4)), id ~ b, value.var="val")

然后，您可以类似地添加行名称。

于 2013-04-22T09:24:18.443 回答
3

如果你的 id 列真的很独特，你可以使用 reshape

reshape(data=df, direction = "wide", idvar = "a", timevar = "b", v.names = "val")

但由于它们不是独一无二的，以下内容将带您上路。

df$fakeid <- rep(1:4, each=4)
reshape(data=df, direction = "wide", idvar = "fakeid", drop = "a", timevar = "b", v.names = "val")
于 2013-04-22T11:17:58.947 回答