如何使用R功能sapply定义的文件夹中保存劈裂的数据？ [重复]

Question

这个问题已经在这里有一个答案：

• Split data in r and save all the split files in csv 3个回答

我有，我有一个文件分割成具有我已经使用分割原始文件的列标题不同的CSV文件的问题。

正如一些用户将不得不使用这个剧本，我的方式设计的，它是每一个用户只是有一次，他的工作目录进入和脚本中提到的其他文件夹都是基于用户的工作目录中创建。这看起来如下：

# Determination of user specific location
base_direction <- "C:/users/USER1/Desktop"

# Create "FolderA"
folder_foldera <- "FolderA"
path_foldera <- file.path(base_direction, folder_foldera)
dir.create(path_foldera)

# Create "FolderA/Data"
folder_foldera_data <- "Data"
path_foldera_data <- file.path(base_direction, folder_foldera, folder_foldera_data)
dir.create(path_foldera_data)

这些文件夹的创建工作完全正常。然后，我要我在“FolderA”创建文件夹“数据”，内节省单个文件。 Herefore，我用这个代码：

# Filtering and separating into different files
listed <- split(table.t, table.t$sss)
sapply(names(listed),
   function (x) write.table(listed[[x]], file=paste0(path_foldera_data, x, ".csv")))

这些文件的拆分工作完全正常，但用正确的节约我有一些问题。眼下，单文档保存在“FolderA”之外的文件夹“数据”是这样的：

不过，我想有保存在文件夹“数据”中像这样的数据：

我认为有一部分write.table(listed[[x]], file=paste0(path_foldera_data, x, ".csv"))内的错误，但我不这么用于R的是，我不知道到哪里寻找它，我会很感激，如果你能帮助我解决这个问题。

非常感谢你！！！

Answer 1

尝试在write.table命令添加“/”

sapply(names(listed), function (x) 
    write.table(listed[[x]], file=paste0(path_foldera_data, "/", x, ".csv")))

Answer 2

我们可以使用paste与sep

lapply(names(listed), function(x)
     write.table(listed[[x]], quote = FALSE, row.names = FALSE,
          file = paste(path_colders_data x, ".csv", sep= "/")))