在R中使用ifelse创建数据框丢失行，如何检查向量非空并保留全量数据？

ifelse()是向量化条件判断函数，它会根据条件的每个元素返回对应位置的结果。但is.null(VEC)返回的是单个逻辑值（要么TRUE要么FALSE），所以ifelse()只会返回长度为1的结果——当条件为FALSE时，只取VEC的第一个元素，自然就截断了整个向量。

用普通的if/else语句替代即可，它是针对整个条件的单次判断，会完整返回目标向量或对应替代值：

方法1：保留NA替代（当VEC为NULL时） #

VEC <- c("Vienna", "Tokyo")

TEST <- data.frame(
  city = if (is.null(VEC)) NA_character_ else VEC
)

• 当VEC不为空时，完整保留所有元素；
• 当VEC为NULL时，生成一列值为NA的字符型列（用NA_character_保证类型和原向量一致）。

方法2：生成空列（当VEC为NULL时） #

如果希望VEC为NULL时生成0行的空列（而非一行NA），可以调整为：

TEST <- data.frame(
  city = if (is.null(VEC)) character(0) else VEC
)

场景1：VEC不为空 #

VEC <- c("Vienna", "Tokyo")
TEST <- data.frame(city = if (is.null(VEC)) NA_character_ else VEC)
# 输出结果：
#     city
# 1 Vienna
# 2  Tokyo

场景2：VEC为NULL #

VEC <- NULL
TEST <- data.frame(city = if (is.null(VEC)) NA_character_ else VEC)
# 输出结果：
#   city
# 1   NA

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