将n个列表合并为2列tibble

library(tibble)

merge_lists_to_tibble <- function(lists) {
  # 创建一个空的tibble对象
  merged_tibble <- tibble(col1 = NULL, col2 = NULL)
  
  # 遍历每个列表
  for (i in 1:length(lists)) {
    # 获取当前列表
    current_list <- lists[[i]]
    
    # 将列表中的元素逐个添加到tibble的对应列中
    merged_tibble$col1 <- c(merged_tibble$col1, current_list)
    
    # 如果列表长度小于n，则在该列中使用缺失值填充
    if (length(current_list) < length(lists)) {
      missing_values <- rep(NA, length(lists) - length(current_list))
      merged_tibble$col2 <- c(merged_tibble$col2, missing_values)
    }
  }
  
  # 返回合并后的tibble
  return(merged_tibble)
}

# 示例数据
list1 <- c(1, 2, 3)
list2 <- c(4, 5)
list3 <- c(6, 7, 8, 9)

# 合并列表为tibble
merged_tibble <- merge_lists_to_tibble(lists = list(list1, list2, list3))

# 打印合并后的tibble
print(merged_tibble)