R语言 数据导出和导入 csv tsv xls xlsx

导出为Excel的xls、xlsx

#【-------导出数据--------】
write.table(data2, file ="train1.xls", sep="\t", row.names =TRUE, 
            col.names =TRUE, quote =TRUE)

write.table(data2, file ="train2.xlsx", sep="\t", row.names =TRUE, 
            col.names =TRUE, quote =TRUE)

write.table(data2,"train3.txt",  sep="\t",  row.names=TRUE,
             col.names=TRUE, quote=TRUE,)

# 【xls、xlsx】导出需要可以把行名换出来到列,不然上面导出来第一个空格被占
data3=cbind(id=row.names(data), data)
write.table(data3, file ="train4.xlsx", sep="\t",
            col.names =TRUE, quote =TRUE)


#【--------导入数据------------】
data <- read_excel("C:/XXX/1.xlsx", sheet = "Sheet1", col_names = TRUE)
data <- read.table(file = 'manifest.tsv', sep = '\t', header = TRUE) 
data <- read.csv('microOTUtable.csv')