r - FUN(newX[, i], ...) のエラー: 'x' は数値でなければなりません: マウスの使用中

Question

欠損値を代入しようとしているので、 mouse パッケージを使用してみました。私のデータは次のとおりです。

ID     Date        DayNum      Day       Hour       Transaction
1    07/01/16        1          6         0             20 
1    07/01/16        1          6         1             30
1    07/01/16        1          6         2             NA
1    07/01/16        1          6         3             NA
1    07/01/16        1          6         4             39
1    07/01/16        1          6         5             10
1    07/01/16        1          6         6             54

ご覧のとおり、私には NA 値があり、R のマウス パッケージを使用してそれらを代入したいと考えています。

私のデータフレームが df1 と呼ばれると仮定すると、次のコードを入力するとエラーが発生しました

imputed_Data <- mice(df1, m=5, maxit = 50, method = 'pmm', seed = 500)
summary(imputed_Data) 

Error in FUN(newX[, i], ...) : 'x' must be numeric
In addition: Warning message:
In FUN(newX[, i], ...) : NAs introduced by coercion

また、注意: Daynum と Day は役に立たないので、後で削除します。

ID   Date     Hour Transaction
1  2016-07-01  4   62
1  2016-07-01  5   78
1  2016-07-01  6   879
1  2016-07-01  7   67
1  2016-07-01  8   10
1  2016-07-01  9   11
1  2016-07-01  10  14
1  2016-07-01  11  NA