将数据框的某些元素移到新列中（R中）

Question

我在R中有一个数据框，如下所示：

jiz <- data.frame(Type=c("X","B","B","B","B","X","B"),
                  Action=c("both","1","2","2","1","both","1"))

Type是X或B，并且Action决定应对Type中的变量采取哪种类型的操作（操作1或2）。 如果类型为“ X”，则始终要执行两个动作，如果类型为“ B”，则将要执行动作1 或动作2。

现在我们添加两列：

jiz[c("1","2")]<-NA

现在，我希望“ X”同时进入两个新列，因为已经执行了两个动作，而“ B”则同时进入了新列中的任何一个-取决于所执行的操作，因此任何R代码都会使这个新数据框：

jiz.new <- data.frame(Type=c("X","B","B","B","B","X","B"),
                      Action=c("both","1","2","2","1","both","1"),
                      "1"=c("X","B",0,0,"B","X","B"),
                      "2"=c("X",0,"B","B",0,"X",0))

请注意，如果“ B”具有动作2-B被放入新列“ 2”中-并且0被放入列“ 1”中。

Answer 1

这是一种方法：

transform(jiz, "1" = ifelse(Action != "2", as.character(Type), "0"),
               "2" = ifelse(Action != "1", as.character(Type), "0"))

  Type Action X1 X2
1    X   both  X  X
2    B      1  B  0
3    B      2  0  B
4    B      2  0  B
5    B      1  B  0
6    X   both  X  X
7    B      1  B  0