基于一个变量重塑数据集

Question

我有一个如下数据集：

Prefix  Ric Mrkt_segmt  Exchange
22  122N    E   NYM
22  222N    P   NYM
22  22N C   NYM
23  123L    E   NYM
23  223L    P   NYM
23  23L P   NYM
23  23L C   NYM
26  126L    E   NYM
26  226L    P   NYM
26  26L C   NYM

我想重塑这些数据，使其看起来像这样：

  prefix exchange ric_root1  mrkt_segmt1 ric_root2 mrkt_segmt2  ric_root3 mrkt3
   22       NYM      122N       E           222N      P              22N     C
   23       NYM      123L       E           223L      P               

exchange_prefix 和exchange 的组合是唯一的id

如何在 R 中做到这一点？

Answer 1

编辑

使用更新后的数据，将代码更改为如下所示。概念完全相同相同：

在基础 R 中：

mydf$time <- with(mydf, ave(rep(1, nrow(mydf)), 
                            Prefix, Exchange, FUN = seq_along))
reshape(mydf, direction = "wide", 
        idvar=c("Prefix", "Exchange"), 
        timevar="time")

如上添加“时间”变量后使用“reshape2”：

library(reshape2)
dfL <- melt(mydf, id.vars=c("Prefix", "Exchange", "time"))
dcast(dfL, Prefix + Exchange ~ variable + time)

---

原答案

添加一个“时间”变量，一切顺利：

mydf$times <- ave(mydf$ID, mydf$ID, FUN = seq_along)
reshape(mydf, idvar="ID", timevar="times", direction = "wide")
#   ID Var1.1 Var2.1 Var1.2 Var2.2
# 1  1      A      X      B      Y
# 3  2      C      X      D      Y
# 5  3      E      X      F      Y

---

或者，在我们上面添加“times”变量后，您可以使用“reshape2”包进一步melt您的数据，然后对其进行整形：

dfL <- melt(mydf, id.vars=c("ID", "times"))
dcast(dfL, ID ~ variable + times)
#   ID Var1_1 Var1_2 Var2_1 Var2_2
# 1  1      A      B      X      Y
# 2  2      C      D      X      Y
# 3  3      E      F      X      Y