r - Cbind/Rbind 与 Ifelse 条件

这是我正在使用的代码:

x <- c("Yes","No","No","Yes","Maybe")
y <- t(1:10)
z <- t(11:20)

rbind.data.frame(ifelse(x == "Yes",y,z))

这产生

    X1L X12L X13L X4L X15L
1   1   12   13   4   15

想要的结果是:

x
1   Yes   1    2    3    4    5    6    7    8    9    10
2    No   11   12   13   14   15   16   17   18   19    20
3    No   11   12   13   14   15   16   17   18   19    20
4   Yes   1    2    3    4    5    6    7    8    9    10
5 Maybe   11   12   13   14   15   16   17   18   19    20

我在想我可以在 rbind.data.frame() 或 cbind.data.frame() 函数中使用 ifelse 语句。因此，如果 x == "Yes" 那么它将与向量“y”结合。如所需输出的第一行所示。相反，如果 x!="Yes" 则它将与向量“z”组合。我将如何去做这件事。我还认为可能可以使用 which() 函数进行索引，但我想不出如何使用它。

更新另一个问题

这是我正在使用的代码:

    a <- c(1,0,1,0,0,0,0)
    b <- 1:7

    t(sapply(a, function(test) if(test==0) b else 0))

Which produces

        [,1] [,2]      [,3] [,4]      [,5]      [,6]      [,7]
    [1,] 0    Integer,7 0    Integer,7 Integer,7 Integer,7 Integer,7

你们中的任何人都可以解释一下吗？下面的代码有效，但我想知道为什么 sapply 函数不起作用。另外我将如何保存下面创建的矩阵？

`row.names<-`(t(t(rbind(b,0))[,(a!='1')+1L]),x)

回答我最近的问题

为了使 sapply 函数工作，它需要 else 语句中的输入是一个向量，所以，

        a <- c(1,0,1,0,0,0,0)
        b <- 1:7
        c <- rep(0, times = length(a))
        t(sapply(a, function(test) if(test==0) b else c))

现在这会产生正确的输出。

最佳答案

尝试

 t(sapply(x, function(x) if(x=='Yes') y else z))

或者

 `row.names<-`(t(t(rbind(y,z))[,(x!='Yes')+1L]),x)

关于r - Cbind/Rbind 与 Ifelse 条件，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31542285/