R新手(在工作中学习)在try 修改以前程序员的回归时遇到错误

我是一名研究人员，有史以来第一次为了工作而运行二项回归(以及编码和统计)--这是一种经历！我在中途接管了这个项目的工作，所以没有自己开发最初的代码.我以前从来没有编程过，所以我一直在学习R.然而，我遇到了一个我无法解决的错误问题(尽管我怀疑这很可能很简单)，任何帮助都将不胜感激.我已经在下面更详细地展示了它，如果有帮助的话，可以附加屏幕截图.

最初的数据集是1,276个人(行)，每个人回答188个问题(列)中的 Select .自那以后，我被要求在这个初始数据集中添加对另外8个问题的答复，这意味着最终数据集的196个问题(列).总体而言，只有9个专栏，而且保持不变.但是，我在调整代码以考虑这些新列的添加时遇到了问题.

欢迎就可能导致行不匹配的原因提出任何建议！

例如，我的第一个代码将运行:

Ans_Data = read_xlsx("DSM Data 15.2.23 IB v4.xlsx",
  sheet = "CHANGED Tab 2 - AR weighted",
  range = "A12:GG1290", col_names = F, col_types = c("text",rep("numeric",188)))
Question_Data = t(read_xlsx("DSM Data 15.2.23 IB v4.xlsx",
  sheet = "CHANGED Tab 2 - AR weighted",
  range = "A1:GG10", col_names = T))

colnames(Question_Data) = Question_Data[1,] 
Question_Data = Question_Data[-1,] 
Question_Data = data.table(Question_Data)

Ans_Data_2 = Ans_Data %>%
  pivot_longer(cols = colnames(Ans_Data)[2:189])

for (i in 1:1278) {
  if (i==1) {
    Question_Data_2 = rbind(Question_Data,Question_Data)
  } else {
    Question_Data_2 = rbind(Question_Data_2,Question_Data)
  }
}

Ans_Data_3 = cbind(Ans_Data_2, Question_Data_2)

然而，我的更新代码如下:

Ans_Data = read_xlsx("DSM Data 15.2.23 DP v5.xlsx",
  sheet = "CHANGED Tab 2 - AR weighted",
  range = "A12:GO1287", col_names = F,col_types = c("text",rep("numeric",196)))
Question_Data = t(read_xlsx("DSM Data 15.2.23 DP v5.xlsx", 
  sheet = "CHANGED Tab 2 - AR weighted",
  range = "A1:GO10", col_names = T))

colnames(Question_Data) = Question_Data[1,] 
Question_Data = Question_Data[-1,] 
Question_Data = data.table(Question_Data)

Ans_Data_2 = Ans_Data %>%
  pivot_longer(cols = colnames(Ans_Data)[2:197])

for (i in 1:1278) {
  if (i==1) {
    Question_Data_2 = rbind(Question_Data,Question_Data)
  } else {
    Question_Data_2 = rbind(Question_Data_2,Question_Data)
  }
}

Ans_Data_3 = cbind(Ans_Data_2, Question_Data_2)

产生以下错误:

Error in data.frame(..., check.names = FALSE) : arguments imply differing number of rows: 250096, 250684