2013-05-13 120 views
1

我有一个函数的结果我想从R中导出,以在Gephi中将其可视化。R数据输出奇怪格式化

结果79.552对上市这样

[[79549]] 
[1] 22 26 

[[79550]] 
[1] 41 26 

[[79551]] 
[1]34 26 

[[79552]] 
[1]25 26 

我wan't要导出的对,所以我让他们这样为.csv

22, 26 
41, 26 
34, 26 
25, 26 

我使用的write.table像这样的功能,其中kj.csv是我的文件,kj是我保存的功能。

write.table(kj, file = "kj.txt", append = FALSE, 
      quote = TRUE, sep = ",", eol = "\r\n", 
      na = "NA", dec = ".", row.names = TRUE, 
      col.names = TRUE, 
      qmethod = c("escape", "double"),fileEncoding = "") 

从我的结果.csv文件的样本看起来像这样(不一样的数字)

"c.22..26..483","c.41..26..596","c.34..26..543","c.25..26..773" 

谁能帮助我?

回答

3

你有一个列表对象。您可以创建一个矩阵并将其保存到文件中。这里是一些样本数据:

kj <- do.call(rbind, kj) 

矩阵如下所示:

> kj                                                                   
    [,1] [,2]                                                                 
[1,] 1 2                                                                 
[2,] 2 3  

保存矩阵

kj <- list(c(1,2), c(2,3)) 

通过处理列表中的每个条目作为行现在创建矩阵至档案:

write.table(kj, "kj.txt") 

该文件kj.txt如下所示:

"V1" "V2" 
"1" 1 2 
"2" 2 3 
+0

完美,由于它的工作! – 2013-05-13 10:39:05

+0

@MatiasBruhn如果您认为此答案已解决您的问题,请随时通过勾选答案分数下的灰色选中标记将其标记为正确答案。 – 2013-05-13 11:47:07

3
write.csv(t(as.data.frame(kj)), "kj.txt", row.names=FALSE)