2つの条件に応じて値を割り当てます（自明ではありません）

Question

私のリストの値を次のように割り当てる非常に簡単な方法があります。 1.ファイル を持つフォルダに移動します。私はそれがある場合、それは私がここでは、この方法 に設定され、再び特定の日付、のためにそれからデータを受け取り 3を設定したバンク番号がメソッドです：

balancesheet.list <- getBalanceSheet_list("2016-04-01",1481) 

だから、この特定の例ではそれがに行きますフォルダーは、番号1481のファイルを取り、このファイルの日付2016-04-01のデータをマイリストに割り当てます。

私は私が必要とする各日付のために、このフォルダ内のすべてのファイルからのデータを割り当てる必要があります。特定の日付と銀行番号に関するデータは、別々のサブリストまたは別個のリストに記録する必要があります。 詳細については、2007-04-01から2017-01-01までのデータを各銀行番号ごとに月ごとに割り当てる必要があります。数ヶ月で日付範囲との1、私は必要があります：私は2つのCSVファイルを作成しました

2007-02-01 
2007-03-01 
2007-04-01 
2007-05-01 
2007-06-01 
... 
2016-11-01 
2016-12-01 
2017-01-01 

をし、第2のバンク番号と私は一般的に持っている：

1 
2 
21 
52 
53 
55 
... 
3525 
3527 
3528 
3529 
3533 

私の考えはでそれらのファイルをインポートすることでしたRの代わりに "2016-04-01"と1481を入れてください。しかし、これは私が見たように貧しいアイデアです。

はまた、私は任意のファイルをインポートしていない、コードを以下しようとすることを決めた：

balancesheet.list<- getBalanceSheet_list(seq(as.Date("2007-04-01"), as.Date("2017-01-01"), by="months"),1481) 

Rは、エラーを与える：引数の 長さ「パターン」> 1で、最初の要素だけが

を使用します問題は、1ヶ月のデータを1つのリストに割り当てようとしていることです。別々の日付ごとにリストやサブリストでデータを記録することは可能でしょうか？ 2つのアイデアのいずれかを近代化することができますどのように

？助けてください。

Answer 1

あなたは、これはあなたのすべての日付のファイル1481からのデータを与える必要があります

lapply(seq(as.Date("2007-04-01"), as.Date("2017-01-01"),by="months"),getBalanceSheet_list,1481) 

をしようとします。我々は目的球

one_file <- function(file) lapply(seq(as.Date("2007-04-01"), as.Date("2017-01-01"),by="months"),getBalanceSheet_list, file) 

を作成し、すべてのファイルのためにそれを実行することができませ

）;それは確かに難しいので、あなたが getBalanceSheet_list機能についての詳細を提供していないとき、私は、「sholud」を言いません。

files<-c(1, 2, 21, ...) 

はもちろん、あなたがnumersに...を変更する必要があります。しかし、最初に私たちが言う、自分の名前とベクトルを必要とします。私はbeacuse（再び）あなたがそれらを提供していませんでした:)

今すぐ

lapply(files, one_file) 

sholudはあなたが必要とするすべての情報を与える、ということはできません。

lapplyさんのすべてをsapplyさんの代わりにすることもできます。 getBalanceSheet_listだけがかなりのオブジェクト（ベクトルまたは単一の値のような）を返す場合、これは結果をより美しく見せます。