R语言使用get()函数修改对象长度触发非语言对象报错如何解决

length(x) <- n这类赋值语法要求左侧必须是可被修改的对象引用，你当前用get(paste("data", a, sep = ""))作为赋值左值时，get()返回的是对象的实际值（也就是向量的数值内容），不是指向全局环境中对应变量的引用，因此无法直接对其执行长度修改操作。
另外你现有代码中的while逻辑存在死循环风险：只要data[a]对象存在就会一直重复执行拼接操作，实际上不需要这个循环判断，每个a对应的向量仅需处理一次。

更稳妥的方式是不修改原全局环境中的向量对象，直接在拼接时临时调整长度，避免产生不必要的副作用，示例代码如下：

data1 <- seq(1, 10, 1)
data2 <- seq(1, 7, 1)
data3 <- seq(1, 5, 1)

n <- max(length(data1), length(data2), length(data3))
k <- c(1, 2, 3)
data_matrix <- NULL

for(a in k){
  # 提取对应向量，临时调整长度后拼接，不修改原对象
  current_vec <- get(paste0("data", a))
  length(current_vec) <- n
  if (a == 1) {
    data_matrix <- current_vec
  } else {
    data_matrix <- cbind(data_matrix, current_vec)
  }
}

运行后生成的data_matrix会自动用NA补全短向量的空缺，符合你要的不等长向量拼接需求。

如果你有特殊需求必须修改全局环境中原有向量的长度，可以用assign()配合get()实现，写法如下：

for(a in k){
  obj_name <- paste0("data", a)
  current_vec <- get(obj_name)
  length(current_vec) <- n
  # 把修改后的向量写回全局环境
  assign(obj_name, current_vec, envir = .GlobalEnv)
  
  if (a == 1) {
    data_matrix <- current_vec
  } else {
    data_matrix <- cbind(data_matrix, current_vec)
  }
}

内容的提问来源于stack exchange，提问作者James.H