如何在R语言数据框行数量不匹配时自动填充NA？

当输入向量长度不一致时，直接调用data.frame()会因长度不匹配报错，要实现自动用NA填充短向量至最长长度，可通过以下方式解决：

基础R实现步骤 #

1. 确定所有向量中的最长长度
2. 将每个向量扩展至该长度，不足部分自动补NA
3. 创建DataFrame

示例代码：

Category = c("New" , "Expired", "Expired", "Expired" , "Old", "New")
Months = c ('Mar-2014','Jun-2014', 'Sep-2014','Dec-2014')
Vals = c(4,7,6,7)

# 获取最长向量的长度
max_length <- max(length(Category), length(Months), length(Vals))

# 扩展各向量至指定长度，缺失值补NA
Category_extended <- rep(Category, length.out = max_length)
Months_extended <- rep(Months, length.out = max_length)
Vals_extended <- rep(Vals, length.out = max_length)

# 创建目标DataFrame
df <- data.frame(
  Category = Category_extended,
  Quart_Months = Months_extended,
  Quart_Vals = Vals_extended
)

运行后得到的结果：

Category Quart_Months Quart_Vals
1      New     Mar-2014          4
2  Expired     Jun-2014          7
3  Expired     Sep-2014          6
4  Expired     Dec-2014          7
5      Old         <NA>         NA
6      New         <NA>         NA

封装成函数（方便重复使用） #

如果需要频繁处理这类场景，可以封装一个通用函数：

create_df_with_na <- function(...) {
  input_list <- list(...)
  max_len <- max(sapply(input_list, length))
  # 批量扩展所有向量
  extended_list <- lapply(input_list, function(vec) rep(vec, length.out = max_len))
  # 创建DataFrame
  do.call(data.frame, extended_list)
}

# 调用函数创建DataFrame
df <- create_df_with_na(
  Category = Category,
  Quart_Months = Months,
  Quart_Vals = Vals
)

说明：rep(vec, length.out = max_len)是核心操作，它会将向量循环重复至指定长度，当原向量长度不足时，末尾自动填充NA。

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