library(data.table) > > # 设置工作目录 > setwd("/Users/imac/Desktop/summary_process") > > # 读取csv文件 > data <- fread("output_summary15.csv") > > # 选择需要的列 > cols <- c("V1", "V2", "V24", "V15", "V3.y", "V7") > selected_data <- data[, ..cols] > > # 将列粘在一起 > text <- apply(selected_data, 1, function(x) { + paste(x["V1"], x["V2"], "blastx", x["V24"], x["V15"], "blastn", x["V3.y"], x["V7"], sep = "::")) Error: unexpected ')' in: "text <- apply(selected_data, 1, function(x) { paste(x["V1"], x["V2"], "blastx", x["V24"], x["V15"], "blastn", x["V3.y"], x["V7"], sep = "::"))" >

这个错误是因为在`paste()`函数中有多余的`)`。请将最后的`)`删除，像这样：

text <- apply(selected_data, 1, function(x) {
  paste(x["V1"], x["V2"], "blastx", x["V24"], x["V15"], "blastn", x["V3.y"], x["V7"], sep = "::")
})

这将确保函数调用正确，并将结果存储在`text`中。