在多个数据集上循环 R 中的因果影响并自动导出结果

Question

我需要一些关于如何解决这个问题的建议。我有许多动物园对象，我想使用 Google 开发的同音词包在 R 中对其执行因果影响分析。为了自动化这个过程，我想在动物园对象上运行一个循环，并自动将结果保存在一个文件中，以便以 word 或 csv 格式导出。

到目前为止，我的解决方案是通过

将动物园对象包含到动物园列表中

    zoolist<-list(ts1, 
                ts2,
                ts3 
                 )

然后运行一个for循环，例如：

    for (i in zoolist)
{
  experiment_impact<-CausalImpact(i, 
                                  pre.period, 
                                  post.period, 
                                  model.args = list(nseasons = 7, season.duration = 1))
  summary(experiment_impact)
}

代码似乎可以工作，但是我不知道如何以 csv 或 doc 或任何格式导出所有输出，前提是它紧凑且可读。

有什么想法吗？感谢您的帮助！

Answer 1

如果您只想捕获摘要，与打印到屏幕上的内容完全相同，您可以使用capture.output。将循环中的第二行替换为：

capture.output(summary(experiment_impact), file = 'example.txt', append = T)

一个更优雅的解决方案可能是使用lapply 对列表中的每个项目运行分析，以便最终得到一个输出项目列表：

resultList = 
  lapply(
    zoolist, 
    CausalImpact, 
    pre.period, 
    post.period,
    model.args = list(nseasons = 7, season.duration = 1)
  )

然后，您可以从列表中的每个 CausalImpact 对象中提取所需的值，并在 data.frame 中格式化这些值，您可以使用 write.csv 将其输出。