基于逻辑在R中重新编码多个变量答案

【问题标题】：Recode multiple variables in R based on logic基于逻辑在R中重新编码多个变量
【发布时间】：2015-01-21 22:52:53
【问题描述】：

我很想看看你是否可以通过一个函数循环遍历数据集并重新编码变量：

数据看起来像这样：

V1 V2 V3 R1 R2 R3
-----------------
a   r  s  5  5  0
a   b  c  0  1  0
e   r  r  5  6  6

我只想重新编码三个 R 变量。在实际数据集中，至少有 50 个 R 变量需要重新编码。输出应该是这样的，任何大于 0 的都应该是 1，而 0 仍然是 0：

V1 V2 V3 R1 R2 R3
-----------------
a   r  s  1  1  0
a   b  c  0  1  0
e   r  r  1  1  1

【问题讨论】：

标签： r plyr apply

【解决方案1】：

可以试试 sapply()

（DF 是你的数据集）

DF[,4:6]<-sapply(DF[,4:6],function(x)ifelse(x>0,1,0))

【讨论】：

【解决方案2】：

你可以试试 -ifelse- 语句 1) 遍历数据集中的所有变量 2）决定它们是否是数字的 3) 重新编码

像这样：

 for (i in 1:ncol(mydata) {
   if (is.numeric(mydata[,i] == "TRUE" {
      mydata[,i] <- ifelse(mydata[,i] > 0, 1, 0 )
  }
}

希望这会有所帮助！

【讨论】：