重塑时如何保持姓氏？

Question

我从宽到长重塑了一个数据集，但我想保留列名而不是列号。有没有一种方法而不必写出所有列名？如下面的代码所示，我需要5到38列。我的代码是：

cc_hear_reshaped <- reshape(cc_hear, varying = c(5:38),
                            v.names = "Hearing",
                             timevar = "Org",
                             times = c(5:38),
                             new.row.names = 1:1000,
                             direction = "long")

任何帮助表示赞赏。非常感谢！

EM