如何避免在R中的csv文件中重復列名？

Question

我有一個csv文件，必須從中復制一些csv文件中的某些行。 但是，我只希望第一行具有列名，其余行不應具有任何列名。 以下是附帶的代碼。 以下代碼為我提供了每一行之前的列名。

for(f in 1:length(file$mismatches)){
  if((file$mismatches[f]==0)==T ){ 
    write.table(x=file[f,], append = T, file = paste0('0_mismatches','.csv'),sep=",",col.names=c('organism_name_spacer','organism_spacer_accession_number','organism_spacer_id','organism_name_protospacer','organism_protospacer_accession_number','spacer_sequence','protospacer_sequence','mismatches'),row.names = F)

  }
}

Answer 1

如果所有文件都具有相同的列名，並且順序相同，則可以執行以下操作：

require(tidyverse)
files_to_load <- {list of file paths to load}
df <- data_frame(filename = files_to_load)
df <- df %>% 
  mutate(data = map(filename, read_csv, [other arguments to read_csv]))  
dfs_as_list <- pull(df, data)
dfs_as_single_df <- bind_rows(dfs_as_list)

尚未嘗試此操作，因為您給出的示例不可復制，因此您需要進行調整。

pull函數提取數據（一個列表列）以生成data_frames列表。

bind_rows接受bind_rows列表作為單個輸出，並嘗試加入它們。

read_csv的其他參數可能會包含read_csv的參數，以便所有要連接的col_types中的列類型都一致。