#存放各个数据 paste0("PETCTfution_XGBAUC_output",i) <- rbind.data.frame(paste0("PETCTfution_XGBAUC_output",i), data.frame(b, #rownames(data) 存放随机种子 # 返回行名 colnames(data) # 返回列名 PETCTfution_xgboost_roc_train$auc,#存放训练集ROCAUC PETCTfution_xgboost_roc_test$auc,#存放测试集ROCAUC pr_auc_train_modEvA$AUC,##存放训练集PRAUC(modEvA) pr_auc_test_modEvA$AUC,##存放测试集PRAUC(modEvA) pr_auc_train_PRROC$auc.integral,##存放训练集PRAUC(PRROC) pr_auc_test_PRROC$auc.integral,##存放测试集PRAUC(PRROC) stringsAsFactors = F))

这段代码中，你尝试将一个数据框对象赋值给一个非法的对象。你可以尝试修改为以下代码来实现你的需求：

# 创建一个空的数据框
df <- data.frame(matrix(ncol = 6, nrow = 0))
colnames(df) <- c("Seed", "Train_ROC_AUC", "Test_ROC_AUC", "Train_PR_AUC_modEvA", "Test_PR_AUC_modEvA", "Train_PR_AUC_PRROC", "Test_PR_AUC_PRROC")

# 循环添加数据
for (i in 1:5) {
  row <- data.frame(Seed = i, 
                    Train_ROC_AUC = PETCTfution_xgboost_roc_train$auc, 
                    Test_ROC_AUC = PETCTfution_xgboost_roc_test$auc, 
                    Train_PR_AUC_modEvA = pr_auc_train_modEvA$AUC, 
                    Test_PR_AUC_modEvA = pr_auc_test_modEvA$AUC, 
                    Train_PR_AUC_PRROC = pr_auc_train_PRROC$auc.integral, 
                    Test_PR_AUC_PRROC = pr_auc_test_PRROC$auc.integral)
  df <- rbind(df, row)
}

# 输出结果
df

这个代码将创建一个名为`df`的空数据框，并使用`for`循环迭代添加新的行。在每次迭代中，你可以使用`data.frame()`函数创建一个新的数据框行，并使用`rbind()`函数将其添加到现有数据框中。