R使用lapply保存图

作者: 5678
发布时间: 2025-07-12 10:06:23 (8小时前)
转自：

2 条回复

0#
回复此人
妖邪 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这是一个代码片段，可以帮助您入门： </p> <pre> <code> library(tseries) #from tsdiag help page fit <- arima(lh, c(1,0,0)) #make an arbitrary list of model fits models <- list(m1 = fit, m2 = fit) lapply(1:length(models), function(x){ jpeg(paste0(names(models)[x], ".jpeg")) tsdiag(models[[x]]) dev.off() }) </code> </pre> </DIV>

编辑

登录后才能参与评论