時系列のリストをプロットして保存するR

Question

こんにちは私はプロットしたい67種類の時系列オブジェクトのリストを用意しておき、これらのプロットを異なる名前でjpegファイルとして保存します。ここでは、このリストのプレビューです：

$ SE_VALUES_IMV_IN   :List of 3 
    ..$ 220830 : num [1:84] 0 0 0 0 0 0 0 0 0 0 ... 
    ..$ 22083030: num [1:84] 0 0 0 0 0 0 0 0 0 0 ... 
    ..$ 22083082: num [1:84] 0 0 0 0 0 0 0 0 0 0 ... 
    ..- attr(*, "tsp")= num [1:3] 2010 2010 12 
    ..- attr(*, "class")= chr "ts" 
$ SI_VALUES_IMV_EU28_EXTRA :List of 8 
    ..$ 220830 : num [1:84] 235549 117953 163342 214415 248162 ... 
    ..$ 22083011: num [1:84] 8026 0 0 6166 0 ... 
    ..$ 22083030: num [1:84] 0 40 0 0 0 0 0 0 0 0 ... 
    ..$ 22083041: num [1:84] 0 0 0 0 0 0 0 0 0 0 ... 
    ..$ 22083071: num [1:84] 0 0 0 0 55910 ... 
    ..$ 22083079: num [1:84] 0 0 0 0 0 0 0 0 0 0 ... 
    ..$ 22083082: num [1:84] 227523 117913 163342 207068 192252 ... 
    ..$ 22083088: num [1:84] 0 0 0 1181 0 ... 
    ..- attr(*, "tsp")= num [1:3] 2010 2011 12 
    ..- attr(*, "class")= chr "ts" 
$ SI_VALUES_IMV_EU28_INTRA :List of 12 
    ..$ 220830 : num [1:84] 218674 255317 327377 363219 335267 ... 
    ..$ 22083011: num [1:84] 9363 10129 19672 20631 10403 ... 
    ..$ 22083019: num [1:84] 0 1978 0 0 7116 ... 
    ..$ 22083030: num [1:84] 3837 15684 14588 20487 30870 ... 
    ..$ 22083041: num [1:84] 18979 5123 7176 36842 9390 ... 
    ..$ 22083049: num [1:84] 688 0 0 0 0 0 0 0 0 0 ... 
    ..$ 22083061: num [1:84] 0 0 3452 4225 96 ... 
    ..$ 22083069: num [1:84] 0 0 0 40 0 0 7520 0 0 0 ... 
    ..$ 22083071: num [1:84] 139915 204803 256095 218105 185088 ... 
    ..$ 22083079: num [1:84] 0 3219 0 0 3381 ... 
    ..$ 22083082: num [1:84] 45892 14381 26394 62889 88527 ... 
    ..$ 22083088: num [1:84] 0 0 0 0 396 0 0 0 642 105 ... 
    ..- attr(*, "tsp")= num [1:3] 2010 2011 12 
    ..- attr(*, "class")= chr "ts" 

だから私は、これらの要素が私のリストにlapply()を適用することによって、（ts.plot()を使用して）プロットする機能を書かれている：

fun2 <- function(x){ 
    mypath <- file.path("C:","Users","Documents", "FI-R", "graphs", paste("multiplot-", x ,".jpeg", sep = "")) 
    jpeg(file=mypath, width = 10, height = 10, units = 'in', res = 400) 
    ts.plot(x, col = 1:ncol(x), ylab="Import Value", main=deparse(substitute(x))) 
    legend("topleft", colnames(x), col = 1:ncol(x), lty = 1) 
    dev.off()} 


Plot.Ts.whisk.lst <- lapply(Ts.whisk.lst.2, fun2) 

もちろん、これは動作していません、それは私の野心を示しています。

Plot.Ts.whisk.lst <- lapply(Ts.whisk.lst.2, function(x) ts.plot(x)) 

をしかし、私はエラーを取得する：私は以下のコードを実行するために、問題を単純化しようとした

Error in xy.coords(x, NULL, log = log) : 
    (list) object cannot be coerced to type 'double' 

私は、時系列の私のリストに問題がある知っているが、できませんそれが何であるかを理解する。どんな助けもありがとうございます。

おかげ

Answer 1

は、私が使用して解決された単一のTS（ダブルによって強制）と同じ問題を抱えていました。それがあなたのものとうまくいくかどうかは分かりません。

2 tで試してみて、それらのコードでコードを実行してください。

ts$Value <- as.numeric(as.character(ts$Value)) 

1つのTSをプロットしようとしましたか？