9

我想将我的数据从长格式转换为宽格式。如果发现reshape更改列标签真的很烦人，有什么办法可以避免这种情况吗？

例如，如果我有这样的长格式数据：

Year Name Value
1996 a    1
1997 a    2
1998 b    3
1999 b    4

我会这样reshape()使用

reshape(long, timevar = "Year", idvar = "Name", direction = "wide")

转换本身工作正常，但列名如下所示：

Name Time.1996 Time.1997 Time.1998 Time.1999

我现在唯一能想到的就是手动重命名列名，如果你必须为多个数据集这样做，这真的很烦人。

4

1 回答 1

19

我在这里没有看到任何问题，但是如果它让您感到困扰，还有一些选择。

在基础 R 中，您可以xtabs（很多时候）使用这种类型的转换。

as.data.frame.matrix(xtabs(Value ~ Name + Year, long))
#   1996 1997 1998 1999
# a    1    2    0    0
# b    0    0    3    4

或者，借助包，您可以使用dcast“reshape2”。

library(reshape2)
dcast(long, Name ~ Year)
# Using Value as value column: use value.var to override.
#   Name 1996 1997 1998 1999
# 1    a    1    2   NA   NA
# 2    b   NA   NA    3    4

我确实同意以这种方式重新调整单个变量，将名称修改成原来的样子可能会很烦人。但是，请记住该reshape函数的其他典型用例，您会发现它非常有用。例如，让我们向您的“长”数据集添加另一列，然后重塑：

> long$Something <- 5:8
> reshape(long, timevar = "Year", idvar = "Name", direction = "wide")
  Name Value.1996 Something.1996 Value.1997 Something.1997 Value.1998
1    a          1              5          2              6         NA
3    b         NA             NA         NA             NA          3
  Something.1998 Value.1999 Something.1999
1             NA         NA             NA
3              7          4              8

如果不保留正在重塑的列的名称，您将不知道哪个 1996 代表“价值”，哪个代表“某事”。

最后，如果您想使用reshape（我碰巧喜欢），并且此示例准确反映了您的实际数据（只需一列需要由一列或多列“透视”），这里还有两个选项：

使用setNames. 很容易预测名称应该是什么：ID 变量的向量，后跟时间变量。

> setNames(reshape(long, timevar = "Year", idvar = "Name", direction = "wide"), 
+          c("Name", long$Year))
  Name 1996 1997 1998 1999
1    a    1    2   NA   NA
3    b   NA   NA    3    4

使用sub或gsub编辑变量名称。 同样，由于我们知道我们只有一个被旋转的变量，因此很容易预测需要进行的更改。

> wide <- reshape(long, timevar = "Year", idvar = "Name", direction = "wide")
> names(wide)
[1] "Name"       "Value.1996" "Value.1997" "Value.1998" "Value.1999"
> names(wide) <- gsub("Value.", "", names(wide))
> wide
  Name 1996 1997 1998 1999
1    a    1    2   NA   NA
3    b   NA   NA    3    4
于 2013-03-24T18:58:35.453 回答