重新调整数据帧的形状以将因子转换为r中的列

我将尝试绑定另一个名为“value”的列并设置 value = TRUE .

df <- data.frame(cbind(1:10, 2:11, 1:3))
colnames(df) <- c("ID","DATE","SECTOR")
df <- data.frame(df, value=TRUE)

然后重新整形:

reshape(df, idvar=c("ID","DATE"), timevar="SECTOR", direction="wide")

使用的问题 reshape 函数的默认值是na(在这种情况下,您必须迭代并用false替换它们)。

否则你可以用 cast 离开 重塑 包装( see this question for an example )并将默认值设置为 FALSE .

df.wide <- cast(df, ID + DATE ~ SECTOR, fill=FALSE)
> df.wide 
   ID DATE     1     2     3
1   1    2  TRUE FALSE FALSE
2   2    3 FALSE  TRUE FALSE
3   3    4 FALSE FALSE  TRUE
4   4    5  TRUE FALSE FALSE
5   5    6 FALSE  TRUE FALSE
6   6    7 FALSE FALSE  TRUE
7   7    8  TRUE FALSE FALSE
8   8    9 FALSE  TRUE FALSE
9   9   10 FALSE FALSE  TRUE
10 10   11  TRUE FALSE FALSE

下面是另一种方法 xtabs 可能会更快,也可能不会更快(如果有人想让我知道):

df <- data.frame(cbind(1:12, 2:13, 1:3))
colnames(df) <- c("ID","DATE","SECTOR")
foo <- xtabs(~ paste(ID, DATE) + SECTOR, df)
cbind(t(matrix(as.numeric(unlist(strsplit(rownames(foo), " "))), nrow=2)), foo)