在R中拆分后，csv不保留格式

Question

我有一个名为abc.csv的csv文件，其中列的名称是Component.Number，我正在使用20个不同的组件。 csv文件包含2000个条目，这些条目按组件编号排序。我使用以下代码将csv拆分为20个csv文件，其中一个文件仅包含与特定Component.Number对应的数据。

abc = read.csv("abc.csv")
for (name in levels(abc$Component.Number)){
  tmp=subset(abc,Component.Number==name)

  #Create a new filename for each Component - the folder 'skews' should already exist in the same directory
  fn=paste('skews/',gsub(' ','',name),sep='')

  #Save the CSV file containing separate expenses data for each Component
  write.table (tmp,fn,row.names=FALSE,sep = ",")
}

代码工作正常，我在＆＃34; skews＆＃34;中得到拆分文件文件夹，但文件的格式不是csv，实际上他们没有任何文件类型。我也在最后一行尝试了write.csv而不是write.table，但没有运气。那么，我如何获得.csv格式的拆分文件，并使用某种循环在所有这些文件上运行相同的R代码？文件名是那些不同的组件号。感谢。