下面是我将使用您的方法为pwd中的每个文件循环代码所做的工作。确保在目标. tsv文件所在的目录中运行此脚本。

#!/usr/bin/Rscript

print(getwd()) ## print the pwd to the standard output to ensure that you are in the
               ## right directory
files<-list.files(".",pattern="*.tsv") ## List all files in the pwd that end in .tsv
cols2fuse<-c("amino_acid","v_gene","j_gene") ## Parametrized the columns to fuse
prefix<-"fused-" ## Include this so that you don't overwrite your old files while testing
                 ## you can always delete them later

fuseColumns<-function(file,cols2fuse){
    test<-read.table(file,sep="\t",header=TRUE)
    test$Fusion <- paste0(test$amino_acid,test$v_gene,test$j_gene)
    write.table(test,
                file =paste0(prefix,file), # only works if preformed in pwd
                                        ## otherwise you may end up with
                                        ## Something like: 
                                        ## "fused-/home/username/file/1.tsv"                 
                sep = "\t",
                quote = TRUE, ## this will suround each output 
                              ## value in quotes.
                              ## this may not be desirable
                row.names = TRUE, ## Do you really want the row names
                                  ## included?
                col.names = TRUE)
    file ## return the file that has been edited (this will show up in stdout
}

lapply(files,fuseColumns,cols2fuse) ## Apply fuseColumns to all .tsv fusing
                                    ## columns with names that
                                    ## match those in cols2fuse

样品输入

amino_acid  v_gene  j_gene
amino1  ENS0001001  ENS0002001
amino2  ENS0003001  ENS0004001
amino3  ENS0005001  ENS0006001
amino4  ENS0007001  ENS0008001

被转化成

"amino_acid"    "v_gene"    "j_gene"    "Fusion"
"1" "amino1"    "ENS0001001"    "ENS0002001"    "amino1ENS0001001ENS0002001"
"2" "amino2"    "ENS0003001"    "ENS0004001"    "amino2ENS0003001ENS0004001"
"3" "amino3"    "ENS0005001"    "ENS0006001"    "amino3ENS0005001ENS0006001"
"4" "amino4"    "ENS0007001"    "ENS0008001"    "amino4ENS0007001ENS0008001"

要删除每个元素周围的引号，请将quote设置为FALSE;要删除每行开头的数字，请将row.names设置为FALSE。

write.table(test,
            file =paste0(prefix,file),                  
            sep = "\t",
            quote = FALSE,
            row.names = FALSE,                       
            col.names = TRUE)

输出现在如下所示

amino_acid  v_gene  j_gene  Fusion
amino1  ENS0001001  ENS0002001  amino1ENS0001001ENS0002001
amino2  ENS0003001  ENS0004001  amino2ENS0003001ENS0004001
amino3  ENS0005001  ENS0006001  amino3ENS0005001ENS0006001
amino4  ENS0007001  ENS0008001  amino4ENS0007001ENS0008001

我不确定你所说的多余是指你想去掉三根柱子，只显示融合的柱子吗？
您可以使用类似下面的方法来标识冗余列

redundantCols<-unlist(sapply(colnames(test),`%in%`,cols2fuse))