值的条件分配 - 当条件和预期返回值没有相同的功能时， ifelse() 是最好的吗？ [R]

Question

我想有条件地为变量赋值。 例如，我想创建一个alphabet变量，并分配给它letters如果某个字母小写，或分配给它LETTERS如果某一个字母大写。

第一个想法是使用<-和ifelse() 。 但是，这在我的情况下不起作用：

> alphabet <- ifelse("B" %in% letters, letters, LETTERS)
> alphabet
[1] "A"

事实上，我看到，关于ifelse(test, yes, no) ，函数描述说：“ ifelse返回一个与test具有相同形状的值，该值填充了从yes或no [...] 中选择的元素”。 在“值”部分，它指定了更多内容：“具有相同长度和属性（包括维度和“ class ”）的向量作为来自yes或no值的test和数据值。[...]”。

好的 - 我意识到我可以使用assign()而不是<-并将值正确分配给变量：

> ifelse("B" %in% letters, assign("alphabet", letters), assign("alphabet", LETTERS))
[1] "A"
> alphabet
 [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"

但是，根据上面的输出， ifelse()仍然返回所选字母集中的第一个字符。

我对此不满意，因为...

1. ......事实上，我的代码正在返回我不需要的东西，而且......
2. ...事实上ifelse()实际上甚至不能与<- ...

让我想知道是否有更好的方法来做到这一点。

在这种情况下，是否有首选/更有效/更好的礼仪或以任何方式更合适的选项来有条件地分配值，还是应该忽略困扰我的事情？

Answer 1

我们可以使用if/else代替ifelse

alphabet <- if('B' %in% letters) letters else LETTERS