2

我想将我在 R 中的分析输出作为 txt 文件与某人共享。我可以在这里做我知道的这个：

write.table(S$MainInformation,  file = "Output.txt",
  row.names = FALSE, sep = "\t", 
  quote = FALSE, fileEncoding = "UTF-8", append = TRUE)

write.table(S$AnnualProduction,  file = "Output.txt",
  row.names = FALSE, sep = "\t", 
  quote = FALSE, fileEncoding = "UTF-8", append = TRUE)

write.table(S$AnnualGrowthRate,  file = "Output.txt",
  row.names = FALSE, sep = "\t", 
  quote = FALSE, fileEncoding = "UTF-8", append = TRUE)

write.table(S$MostProdAuthors,  file = "Output.txt",
  row.names = FALSE, sep = "\t", 
  quote = FALSE, fileEncoding = "UTF-8", append = TRUE)

因此，这些文档被合并为一个 txt 文件。但是，如果我想一步完成，即S而不是S$，我会得到一个错误代码，这并不奇怪，argumetns 意味着不同的行数。

write.table(S,  file = "Output.txt",
   row.names = FALSE, sep = "\t", 
   quote = FALSE, fileEncoding = "UTF-8")

(function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, : 参数暗示不同的行数: 16, 25, 1, 10

当然，我不在乎……我还不知道如何使用lapply它可能会有所帮助_谢谢！SCW

 str(S)
List of 9
 $ MainInformation  : chr [1:16] "\n\nMain Information about data\n\n" "Articles                              1374 \n" "Sources (Journals, Books, etc.)       736 \n" "Keywords Plus (ID)                    1172 \n" ...
 $ AnnualProduction :'data.frame':  25 obs. of  2 variables:
  ..$ Year    : Factor w/ 25 levels "1985","1988",..: 1 2 3 4 5 6 7 8 9 10 ...
  ..$ Articles: int [1:25] 1 1 1 1 3 1 2 2 3 2 ...
 $ AnnualGrowthRate : num 20.9
 $ MostProdAuthors  :'data.frame':  10 obs. of  4 variables:
  ..$ Authors                :Class 'AsIs'  chr [1:10] "NYE,J.      " "GRIX,J      " "OGUNNUBI,O  " "PAMMENT,J   " ...
  ..$ Articles               :Class 'AsIs'  chr [1:10] "16" " 8" " 8" " 8" ...
  ..$ Authors                :Class 'AsIs'  chr [1:10] "NYE,J.    " "PAMMENT,J " "CHONG,A   " "LEE,J     " ...
  ..$ Articles Fractionalized:Class 'AsIs'  chr [1:10] "16.00" " 8.00" " 6.00" " 5.00" ...
 $ MostCitedPapers  :'data.frame':  10 obs. of  3 variables:
  ..$ Paper         :Class 'AsIs'  chr [1:10] "SANTOS F;EISENHARDT K,(2009),ACAD. MANAGE. J.                                            " "HYDE-PRICE A,(2006),J. EUR. PUBLIC POLICY                                                " "NYE J.,(2008),ANN. AM. ACAD. POLIT. SOC. SCI.                                            " "NYE J.,(2003),THE PARADOX OF AM. POWER: WHY THE WORLD'S ONLY SUPERPOWER CAN'T GO IT ALONE" ...
  ..$ TC            :Class 'AsIs'  chr [1:10] "262" "133" "120" "119" ...
  ..$ TCperYear     :Class 'AsIs'  chr [1:10] "32.75" "12.09" "13.33" " 8.50" ...
 $ MostProdCountries:'data.frame':  10 obs. of  3 variables:
  ..$ Country  :Class 'AsIs'  chr [1:10] "USA           " "ENGLAND       " "AUSTRALIA     " "CHINA         " ...
  ..$ Articles :Class 'AsIs'  chr [1:10] "255" " 96" " 81" " 67" ...
  ..$ Freq     :Class 'AsIs'  chr [1:10] "0.2621" "0.0987" "0.0832" "0.0689" ...
 $ TCperCountries   :'data.frame':  10 obs. of  3 variables:
  ..$ Country                  :Class 'AsIs'  chr [1:10] "USA           " "ENGLAND       " "AUSTRALIA     " "UNITED KINGDOM" ...
  ..$ Total Citations          :Class 'AsIs'  chr [1:10] "1701" " 708" " 303" " 297" ...
  ..$ Average Article Citations: chr [1:10(1d)] "6.671" "7.375" "3.741" "6.319" ...
  .. ..- attr(*, "dimnames")=List of 1
  .. .. ..$ CO: chr [1:10] "USA" "ENGLAND" "AUSTRALIA" "UNITED KINGDOM" ...
 $ MostRelSources   :'data.frame':  10 obs. of  2 variables:
  ..$ Sources       :Class 'AsIs'  chr [1:10] "INTERNATIONAL JOURNAL OF THE HISTORY OF SPORT                                         " "INTERNATIONAL JOURNAL OF COMMUNICATION                                                " "INTERNATIONAL JOURNAL OF CULTURAL POLICY                                              " "JOURNAL OF CONTEMPORARY CHINA                                                         " ...


..$ Articles      :Class 'AsIs'  chr [1:10] "19" "16" "16" "14" ...
$ MostRelKeywords  :'data.frame':   10 obs. of  4 variables:
..$ Author Keywords (DE)     :Class 'AsIs'  chr [1:10] "SOFT POWER        " "CHINA             " "PUBLIC DIPLOMACY  " "FOREIGN POLICY    " ...
..$ Articles                 :Class 'AsIs'  chr [1:10] "387" "119" " 74" " 50" ...
..$ Keywords-Plus (ID)       :Class 'AsIs'  chr [1:10] "SOFT POWER      " "FOREIGN POLICY  " "POLITICS        " "CHINA           " ...
..$ Articles                 :Class 'AsIs'  chr [1:10] "112" " 47" " 41" " 39" ...
4

1 回答 1

2

该文件主要是人类可读的还是机器可读的？

如果人类可读，capture.output()如上所述应该足够了。

lst <- list(a=1:8, 
            b=1.2e+11, 
          df1=data.frame(foo=1:5/4, bar=1:5/3), 
          df2=as.data.frame(matrix(runif(16), 4)))
capture.output(lst, file="list.txt")

否则，如果你坚持把东西并排放置，这可能是一个选择

max_l <- max(rapply(lst, length))
as.data.frame(rapply(lst, function(x) 'length<-'(x, max_l), how="list"))

#    a       b df1.foo   df1.bar    df2.V1    df2.V2    df2.V3     df2.V4
# 1  1 1.2e+11    0.25 0.3333333 0.3978436 0.1971467 0.5619881 0.01103607
# 2  2      NA    0.50 0.6666667 0.9556758 0.1153423 0.7327180 0.90631526
# 3  3      NA    0.75 1.0000000 0.6533494 0.9959655 0.8708056 0.77065363
# 4  4      NA    1.00 1.3333333 0.3287437 0.3792767 0.5721703 0.38250462
# 5  5      NA    1.25 1.6666667        NA        NA        NA         NA
# 6  6      NA      NA        NA        NA        NA        NA         NA
# 7  7      NA      NA        NA        NA        NA        NA         NA
# 8  8      NA      NA        NA        NA        NA        NA         NA

然后将其作为任何其他 data.frame 写入文件。

如果该文件主要是机器可读的，则可能需要使用其他一些软件进一步处理结果，更好的方法是使用比纯文本更专业的文件格式。JSON 或 XML 之类的东西。

写入 JSON 就像

library(RJSONIO)
write(toJSON(lst), file="list.json")

我认为，生成的文件仍然是相当可读的。

{
"a": [ 1, 2, 3, 4, 5, 6, 7, 8 ],
"b": 1.2e+11,
"df1": {
 "foo": [   0.25,    0.5,   0.75,      1,   1.25 ],
 "bar": [ 0.33333, 0.66667,      1, 1.3333, 1.6667 ] 
},
"df2": {
 "V1": [ 0.094046, 0.049654, 0.82116, 0.82932 ],
 "V2": [ 0.65473, 0.13283, 0.34181, 0.73137 ],
 "V3": [ 0.90729, 0.6962, 0.24158, 0.64411 ],
 "V4": [ 0.28075, 0.95764, 0.1584, 0.41834 ] 
} 
}
于 2017-08-18T09:40:15.330 回答