列名很好设置：header=1即可设置列名

mix_atac <-read.table('output/SCALE_ATAC.tsv',sep='\t',header = 1)

行名设置：先保存第一列，再删掉第一列，然后将保存的行名赋给dataframe的行名

mix_atac_row <- mix_atac$X
mix_atac <- mix_atac[,-1]
rownames(mix_atac) <- mix_atac_row