【发布时间】：2015-10-11 02:21:01
【问题描述】：
这是我正在使用的代码：
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))
现在这会产生正确的输出。
【问题讨论】：
-
你应该坚持每个帖子一个问题。
标签： r if-statement cbind