1）write.table函数语法：

write.table (x, file ="", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)

参数说明：
x：需要导出的数据
file：导出的文件路径
sep：分隔符，默认为空格（” “），也就是以空格为分割列
row.names：是否导出行序号，默认为TRUE，也就是导出行序号
col.names：是否导出列名，默认为TRUE，也就是导出列名
quote：字符串是否使用引号表示，默认为TRUE，也就是使用引号表示

2）案列：

先生成一个数据框（生成数据！）

age <- c (22,23)
name <- c ("ken", "john")
f <- data.frame (age, name)

再导出数据框数据（导出数据！）

write.table (f, file ="f.csv")    ---以空格分隔数据列（默认），含行号（默认），含列名（默认），字符串带引号
write.table (f,file ="f.csv", sep =",")    ---以逗号分隔数据列，含行号（默认），含列名（默认），字符串带引号
write.table (f,file ="f.csv", sep =",", row.names = FALSE)    ---以逗号分隔数据列，不含行号，含列名（默认），字符串带引号
write.table (f,file ="f.csv", row.names = FALSE, col.names =FALSE)    ---以空格分隔数据列，不含行号，不含列名，字符串带引号
write.table (f,file ="f.csv", row.names = FALSE, col.names =FALSE, quote =FALSE)    ---以空格分隔数据列，不含行号，不含列名，字符串不带引号

1）write.table函数语法：write.table (x, file ="", sep ="", row.names =TRUE, col.names =TRUE, quote =TRUE)参数说明： x：需要导出的数据 file：导出的文件路径 sep：分隔符，默认为空格（” “），也就是以空格为分割列 row.names：是否导出行序号，默认为TRUE，也就是导出行序号 col 绑定 数据 框a，将GDP、TAX列的内容组合为一个 数据 框d，列名为国民生产总值、税收 将YEAR列赋值为d 数据 框的行名 输出d到tax.csv文件中，保留行名、列名、解绑 数据 框a 我的解决： a<-read. table (file="MEdata.csv",header=TRUE,sep=",") attach(a) d<-data.frame(国民生产总值=GDP,税收=TAX) rownames(d)<-Y 2. 使用read. table () 函数 导入其他文本文件（如. txt 文件）： data <- read. table ("filename. txt ", header = TRUE) 3. 使用read_excel() 函数 导入Excel文件（需要安装readxl包）： library(readxl) data <- read_excel("filename.xlsx") 4. 使用readRDS() 函数 导入.RDS文件： data <- readRDS("filename.RDS") 5. 使用 write .csv() 函数 导出 数据 为.csv文件： write .csv(data, "filename.csv", row.names = FALSE) 6. 使用 write . table () 函数 导出 数据 为文本文件： write . table (data, "filename. txt ", sep = "\t", row.names = FALSE) 7. 使用 write .xlsx() 函数 导出 数据 为Excel文件（需要安装openxlsx包）： library(openxlsx) write .xlsx(data, "filename.xlsx")