0

像这样的矩阵

r<-20;
c<-6;
m1 <- round(matrix(runif(r*c), r, c)))

我想使用 if/ifelse 和布尔运算符创建两个基于最后三个的新列。

我尝试了以下但没有成功:

for (i in 1:dim(m1)[1]){
  if(sum(m1[i,4:6]==0)) {m1$Code1[i]<-0;m1$Code2[i]<-0}
  else if(sum(m1[i,4:6]==3)) {m1$Code1[i]<-5;m1$Code2[i]<-5}
  else if(m1[i,4]==0 && m1[,5]==1) {m1$Code1[i]<-3}
  else if(m1[i,4]==0 && m1[,6]==1) {m1$Code2[i]<-3}
  else if(m1[i,4]==1 && m1[,5]==0) {m1$Code1[i]<-2}
  else if(m1[i,4]==1 && m1[,6]==0) {m1$Code2[i]<-2} 
  else if(m1[i,4]==1 && m1[,5]==1) {m1$Code1[i]<-4}
  else if(m1[i,4]==1 && m1[,6]==1) {m1$Code2[i]<-4}  
}

我的问题是我是否可以在 if 子句中使用 &&,但不知何故这不起作用。有人可以给我一个提示为什么或提供更好的选择吗?

在此先感谢,斯蒂芬

4

1 回答 1

0

我从您的循环中提炼出for您希望对第 4 行和第 5 行的组合以及第 4 和第 6 行的组合执行相同的操作。我认为您最好可以创建一个通用函数并将其应用于两种组合。我为您的问题提出以下解决方案。

get.code <- function(x) {
 if(x[1] == 0 & x[2] == 0){0} else if (x[1] == 0 & x[2] == 1){3
 }else if(x[1] == 1 & x[2] == 1){4} else {2}
}

code1 <- apply(m1[,c(4,5)], 1, get.code)
code2 <- apply(m1[,c(4,6)], 1, get.code)
cbind(m1,code1, code2)
于 2013-03-27T10:16:21.293 回答