r - データ フレームを 1 つのホット エンコードに変換する方法

Question

ID が複数のイベント タイプを持つことができるデータ フレームがあります。

> head(eventtype, 10)
      id    event_type
1   6597 event_type 11
2   8011 event_type 15
3   2597 event_type 15
4   5022 event_type 15
5   5022 event_type 11
6   6852 event_type 11
7   6852 event_type 15
8   5611 event_type 15
9  14838 event_type 15
10 14838 event_type 11

フォーマットに変換したい

   id event_type 1 event_type 2 event_type 3 ... event_type 50 
14838            0            0            0 ...             0 

Rでこれを達成する最良の方法は何ですか? パッケージはありますか？私はダミーを使ってみました：

new_my_data <- dummy.data.frame(eventtype, names = c("event_type1", "event_type2", "event_type3", "event_type4", "event_type5")

しかし、うまくいきません。私も検索しようとしましたが、この特定の問題の解決策を見ることができました。ほぼすべての投稿は、1 つのホット エンコーディングがすべての人に知られていることを前提としています。

助けてください。