R编码如何添加一列并根据其他两列的值填充它

Question

我有一个包含两列（选项 1 和选项 2）的表或数据框 (df9)，并希望添加一个新列，该列基于以下逻辑填充前两列的值：

如果已填充选项 1（非空），则使用选项 1 值，否则，使用选项 2（无论是否为空）。

Choice1 = c("Blue","","White","")

Choice2 = c("Tomato","Apple","Banana","Peach")

df9 <- data.frame(Choice1,Choice2)

尝试了多种 if 语句均未成功，不确定如何在需要时通过表执行循环。谢谢。

Answer 1

转换为字符列会减轻很多痛苦。然后ifelse()。这里我使用nzchar()来判断非零字符元素。

df9[] <- lapply(df9, as.character)
within(df9, Choice3 <- ifelse(nzchar(Choice1), Choice1, Choice2))
#   Choice1 Choice2 Choice3
# 1    Blue  Tomato    Blue
# 2           Apple   Apple
# 3   White  Banana   White
# 4           Peach   Peach

或者只是

df9$Choice3 <- with(df9, ifelse(nzchar(Choice1), Choice1, Choice2))

请注意，如果您不转换为字符列，则根据您的示例数据，您将收到因子的整数值。