保存行数不一致的变量至CSV文件时出现错误求助

你遇到的错误核心原因很明确：data.frame()要求所有输入的向量长度必须完全一致，如果waga_linkow、selekcja、selekcja2这几个变量的行数（也就是向量长度）不一样，R就会直接抛出错误——因为它没法把长度不同的向量对齐成规整的表格结构。

下面给你三种实用的解决思路，按需选择即可：

方法1：用plyr包的cbind.fill()自动补全（简单省心） #

这个工具会自动把短向量用NA补齐到最长向量的长度，不用手动计算：

# 先安装并加载plyr包（首次使用需要安装）
install.packages("plyr")
library(plyr)

# 生成自动补全后的表格
mojeDane <- cbind.fill(waga_linkow, selekcja, selekcja2, fill = NA)
# 给列设置你需要的名称
colnames(mojeDane) <- c('Numer', 'Zarażenie nr 1.', 'Zarażenie nr 2.')

# 导出CSV，保持你原来的参数设置
write.csv2(mojeDane, 'wynik.csv', row.names = F, na = '', fileEncoding = 'Windows-1250')

方法2：用tidyverse生态工具（推荐，更现代的R工作流） #

如果你平时习惯用tidyverse系列包，可以用tibble直接处理——它是data.frame的增强版，支持长度不一致的向量自动补NA：

# 安装加载tidyverse（首次使用需要安装）
install.packages("tidyverse")
library(tidyverse)

# 直接生成补全后的表格，同时设置列名
mojeDane <- tibble(
  'Numer' = waga_linkow,
  'Zarażenie nr 1.' = selekcja,
  'Zarażenie nr 2.' = selekcja2
)

# 导出CSV
write.csv2(mojeDane, 'wynik.csv', row.names = F, na = '', fileEncoding = 'Windows-1250')

方法3：手动补全NA（无需额外加载包） #

如果你不想引入新的包，可以手动计算最长长度，给短向量补NA：

# 先算出三个变量里的最长长度
max_length <- max(length(waga_linkow), length(selekcja), length(selekcja2))

# 给每个短向量补NA到最长长度
pad_vector <- function(vec, target_len) {
  if(length(vec) < target_len) c(vec, rep(NA, target_len - length(vec))) else vec
}

waga_linkow_padded <- pad_vector(waga_linkow, max_length)
selekcja_padded <- pad_vector(selekcja, max_length)
selekcja2_padded <- pad_vector(selekcja2, max_length)

# 生成标准data.frame
mojeDane <- data.frame(
  'Numer' = waga_linkow_padded,
  'Zarażenie nr 1.' = selekcja_padded,
  'Zarażenie nr 2.' = selekcja2_padded
)

# 导出CSV
write.csv2(mojeDane, 'wynik.csv', row.names = F, na = '', fileEncoding = 'Windows-1250')

注意：你设置了na = ''，所以导出的CSV里，补全的NA会自动变成空字符串，完全符合你的需求。

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