R语言ifelse语句使用多与或条件生成新列出现非预期输出问题

问题原因 #

代码的核心问题出在数据框的列提取方式上：

• R中使用df[列名]的格式提取列时，返回的是1列的data.frame二维结构，并非向量。嵌套的ifelse接收二维结构作为输入，返回的结果自然也是二维矩阵，直接赋值给leadsnp4$ConcordEffect就会出现你看到的带dim属性的字符矩阵，而非普通的字符向量列。

修复方案 #

只要把提取列的写法改成返回向量的形式即可，两种常用改法如下：

方法1：用[[代替[提取列 #

df[[列名]]会直接返回该列的向量，不会保留二维结构，同时还可以简化判断逻辑：两个数值乘积大于0即说明同号，不需要分别判断同时为正、同时为负的两种场景，修改后的代码如下：

# 提前存储列名避免重复拼接代码
col_t1 <- paste0('Z_recalculated_in_', trait1)
col_t2 <- paste0('Z_recalculated_in_', trait2)

leadsnp4$ConcordEffect <- ifelse(leadsnp4[[col_t1]] * leadsnp4[[col_t2]] > 0, "Yes", "No")

方法2：在[中补充行索引 #

df[, 列名]默认会返回向量（未设置drop=FALSE的前提下），写法如下：

leadsnp4$ConcordEffect <- ifelse(leadsnp4[, col_t1] * leadsnp4[, col_t2] > 0, "Yes", "No")

结果验证 #

修改完成后再次运行str(leadsnp4$ConcordEffect)，会返回普通的字符向量结构：chr [1:43] "No" "Yes" "No" ...，没有多余的dim属性。

内容的提问来源于stack exchange，提问作者zillur rahman