0

R を初めて使用するので、この問題について何か助けていただければ幸いです。

マージしたい 2 つの 15 分の時系列データセットがあります。次に、このマージされたデータセットからの変数の組み合わせを共通の x 軸にプロットしたいと思います。データセットの 1 つに値/日付がありません。データセット A と B としましょう。

A には、posixlt として書式設定された日時列と、14 個の数値変数 (水質に関連) があります。読み取りは 15 分間隔です。ただし、時系列は不完全で、一部の測定値は、機器のエラーにより欠落しています。B には、posixlt および 1 つの数値変数としてフォーマットされた 15 分間隔の日時列もあります。ただし、このシリーズは連続しています。つまり、欠損データはありません。

以下に短い例を示しますが、データは約 6 か月をカバーしており、この問題はランダムに繰り返されます (データ A には 2:45 の読み取り値がないことに注意してください)。

Temp Turb            DATETIME                 Q            DATETIME       
1   21    5 2017-03-19 02:00:00             1 3 2017-03-19 02:00:00 
2   15    5 2017-03-19 02:15:00             2 3 2017-03-19 02:15:00
3   18    5 2017-03-19 02:30:00             3 3 2017-03-19 02:30:00
4   17   17 2017-03-19 03:00:00             4 5 2017-03-19 02:45:00
5   18    5 2017-03-19 03:15:00             5 7 2017-03-19 03:00:00
6   17    5 2017-03-19 03:30:00             6 6 2017-03-19 03:15:00
7   17    6 2017-03-19 03:45:00             7 4 2017-03-19 03:30:00    
                                            8 3 2017-03-19 03:45:00

短縮された例のコードを次に示します。

A<- data.frame("DATE" =c("3/19/17","3/19/17","3/19/17","3/19/17",
                        "3/19/17","3/19/17","3/19/17"), "TIME"=c("02:00:00","02:15:00",
                         "02:30:00","03:00:00","03:15:00","03:30:00","03:45:00"),
                        "Temp" = c(21,15,18,17,18,17,17), "Turb" = c(5,5,5,17,5,5,6)) 
                          A$DATETIME <-paste(A$DATE,A$TIME)
                         A$DATETIME <- strptime(A$DATETIME, "%m/%d/%y %H:%M:%S")
                         A<-subset( A, select = -c(DATE,TIME) )
B <- data.frame("DATE" =c("3/19/17","3/19/17","3/19/17","3/19/17",
                        "3/19/17","3/19/17","3/19/17","3/19/17"), "TIME"=c("02:00:00","02:15:00",
                         "02:30:00","02:45:00","03:00:00","03:15:00","03:30:00","03:45:00"),
                         "Q" = c(3,3,3,5,7,6,4,3)) 
                          B$DATETIME <-paste(B$DATE,B$TIME)
                          B$DATETIME <- strptime(B$DATETIME, "%m/%d/%y %H:%M:%S")
                         B<-subset( B, select = -c(DATE,TIME) )

A と B の数値変数を A と B の時間と交換可能にプロットできるように、padr を使用して A の欠落データを空白で埋めることを望んでいました。例としてスタックオーバーフローを調べましたが、見つけた最も近いものはここにありまし たが、機能しませんでした。私のデータセットは 1 分のデータ間隔に肉付けされましたが、NA は 15 分のマークでもすべての数値変数を置き換えました。エラーには、DateTime 変数がソートされていないなどのステートメントが含まれていました。

リンクされた例に関する他の推奨事項またはより具体的なガイダンスはありますか? ありがとう!!!

4

2 に答える 2