在r中拆分数据，并将所有拆分文件保存在csv中

我有一个名为data的数据集

  Model Garage        City    
  Honda      C     Chicago       
 Maruti      B      Boston  
Porsche      A    New York    
  Honda      B     Chicago  
  Honda      C    New York  

这是100000行，我想按汽车、地点和城市分割这些数据，并将分割的文件保存在不同的csv中

split(Data, with(Data, interaction(Model,City,Garage)), drop = TRUE)

现在，这段代码将其列为一个列表。如何取消列出和保存所有拆分类型的不同csv文件

Ex-本田将有三个拆分文件，分别为

Honda C Chicago

、

Honda B Chicago

和

Honda C New York

---

谢谢

您可以轻松使用循环。10万条左右的线路应该不会有问题

x <- read.table(text = "Model, Garage, City
                   Honda, C, Chicago
                   Maruti, B, Boston
                   Porsche, A, New York
                   Honda, B, Chicago
                   Honda, C, New York", sep = ",", header = TRUE)
x   
#   Model Garage      City
#   Honda      C   Chicago
#  Maruti      B    Boston
# Porsche      A  New York
#   Honda      B   Chicago
#   Honda      C  New York

library(dplyr) 

---

你可以很容易地使用一个循环。10万条左右的线路应该不会有问题

x <- read.table(text = "Model, Garage, City
                   Honda, C, Chicago
                   Maruti, B, Boston
                   Porsche, A, New York
                   Honda, B, Chicago
                   Honda, C, New York", sep = ",", header = TRUE)
x   
#   Model Garage      City
#   Honda      C   Chicago
#  Maruti      B    Boston
# Porsche      A  New York
#   Honda      B   Chicago
#   Honda      C  New York

library(dplyr) 

---

只需添加更多选项，您就可以使用

数据。表

：

library(data.table)
x <- as.data.table(x)
x[, write.table(.SD, paste("path/file_", Model, "_", Garage, "_", City, ".csv", sep = "")), by = c("Model", "Garage", "City")]

库（data.table）
x仅为了添加更多选项，您可以使用
数据。表
：

library(data.table)
x <- as.data.table(x)
x[, write.table(.SD, paste("path/file_", Model, "_", Garage, "_", City, ".csv", sep = "")), by = c("Model", "Garage", "City")]

库（data.table）
到目前为止你试过什么？既然SOW上已经有类似的问题，那么到目前为止您尝试过哪些问题？因为SOGood thinking上已经有类似的问题了！！好主意！！