我将尝试绑定另一个名为“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