Question

当前，我在R中做一个非常自定义的工作，我在其中填充了以前计算出的值的大矩阵。我使用以下命令将矩阵发送到外部文件：

write.csv(m1, file = "OutputToExcel1.csv")

...其中m1是我感兴趣的矩阵，并且我已经设置了适当的工作目录。

我想给它一个描述性的标题，也可以给它一个脚注。在寻找解决方案时，似乎除了write.csv之外还有许多命令。

除了接收器（）之外，有人能推荐一种简便，标准和简便的方法吗？

Answer 1

如果您不想使用var myList = (from tbl in Context.TableA.AsNoTracking() where duplicateIDs.Contains(tbl.SubmissionNo) select new { ID = tbl.ID, Name = tbl.Name, SubmissionNo = tbl.SubmissionNo }) .ToList();，则可以在sink()语句之间使用file()连接和write.csv()，但是好像必须包装{ {1}}和writeLines()，与write.csv()非常相似。

示例数据：

capture.output()

技巧似乎是使用sink()支持多个追加：

# matrix for reproducible example
data("Harman74.cor")

dest_file <- "OutputToExcel1.csv"

如果您不完全反对使用file(..., open='at')，这非常简单。利用打印到控制台的if(file.exists(dest_file)) file.remove(dest_file) # need empty file before append fileConn<-file(dest_file, open='at') write("Descriptive Title", file = fileConn) write( capture.output(write.csv(Harman74.cor)), file = fileConn, append=TRUE ) write("Helpful footnote", file = fileConn) close(fileConn) file.show(dest_file)的默认行为，您可以重定向此输出。

sink()

Answer 2

以下内容似乎可行，但它可行：

在电子表格的左上角放置一个x
给出标题前的数字1，＆
将标题放在引号中。

我认为以下内容可能“足够好？”

$ service nginx reload

下面是上面代码的详细说明：

setwd("Y:/Zach/")
myfile<-"DSummary.csv"
write.table("Title", myfile)
write.table(m1, myfile, sep=",", col.names=FALSE, append=TRUE)

所以我分解标准文本字符串和变量的方式非常草率。关于如何连接它们的任何建议都很棒！

R-将矩阵写入带有标题和脚注的输出文件

2 个答案: