r - r - NA を使用した時系列パディング

Question

次のようなデータフレームがあるとします。

Date1 <- seq(from = as.POSIXct("2010-05-01 02:00"), 
             to = as.POSIXct("2010-10-10 22:00"), by = 3600)
Dat <- data.frame(DateTime = Date1,
                  x1 = rnorm(length(Date1)))

ここで、各測定間の間隔は 1 時間です。最終的な解の長さは 8760、つまり 1 年間の 1 時間ごとの測定値である必要があります。たとえば、DateTime 列を 2010-01-01 00:00 から 2010-12-31 23:00 まで拡張したいのですが、元の列に追加された日については x1 列を NA にします。データフレーム（それが理にかなっている場合）。任意の年数が存在する可能性があるソリューションを考え出したいと思います。つまり、データが 2009 年 5 月から 2012 年 9 月までの場合、最終的なソリューションにはこのデータ セットが必要ですが、2009 年 1 月から 2012 年 12 月までの時間が欠落している必要があります。 NAでパディングされます。この問題を解決するにはどうすればよいですか?