2016-07-06 9 views
0

リストからtxtファイルにデータフレームをエクスポートする際に質問があります。私はいくつかの解決策を見つけましたが、それはベクトルのためだけでした。ここでは一例です:リストからtxtファイルにデータフレームをエクスポート

dataframe1 <- data.frame(a= c(1,2,3,4,5), b= c(1,1,1,1,1)) 
dataframe2 <- data.frame(a= c(5,5,5), b= c(1,1,1)) 
mylist <- list(dataframe1, dataframe2) 

私はtxtファイルには次のようになりますことを希望:

$dataframe1 
a b 
1 1 
2 1 
3 1 
4 1 
5 1 

$dataframe2 
a b 
5 1 
5 1 
5 1 

は助けてくれてありがとう。

答えて

4

はあなたのリストの名前は言う:

mylist<-structure(list(dataframe1 = structure(list(a = c(1, 2, 3, 4, 
5), b = c(1, 1, 1, 1, 1)), .Names = c("a", "b"), row.names = c(NA, 
-5L), class = "data.frame"), dataframe2 = structure(list(a = c(5, 
5, 5), b = c(1, 1, 1)), .Names = c("a", "b"), row.names = c(NA, 
-3L), class = "data.frame")), .Names = c("dataframe1", "dataframe2" 
)) 

あなたが試すことができます。

con<-file("temp.csv",open="at") 
Map(function(x,y) {cat(file=con,y,"\n");write.table(x,file=con,quote=FALSE,row.names=FALSE)}, 
    mylist,names(mylist)) 
close(con) 

上記ファイルtemp.csv上のファイルを書き込みます。あなたが望むなら、リストに名前を付ける必要があります。あなたはprint方法でOKであれば

あるいは、あなただけのファイルに標準出力をリダイレクトすることができます

sink("temp.csv") 
print(mylist) 
sink(NULL) 
+0

ありがとうございました。 printメソッドの代わりに、私が望むものがあります。書かれたファイルから行名を削除することも可能ですか? – Eco06

+0

テーブルの終わりに1つの警告マッサージがあります。[getOption( "max.print")に達しました - 3639行が省かれました] ?! – Eco06

関連する問題