横長データへの変換_R

Question

前提・実現したいこと

Rで下記のようなデータ（各IDにおける順序と頻度のあるデータ）を横長にする必要があるのですが、どのような処理の方法があるでしょうか。

id	event_id	times
P001	A	3
P001	B	1
P001	C	2
P001	D	5
P002	A	5
P002	B	3
P002	C	1
P002	D	1
P002	E	1

|id|t1|t2|t3|t4|t5|t6|t7|t8|t9|t10|t11|
|:--|:--:|--:|
|P001|A|A|A|B|C|C|D|D|D|D|D|
|P002|A|A|A|A|A|B|B|B|C|D|E|

初歩的な質問で恐縮ですが、お教えいただけると幸いです。
よろしくお願い致します。

Answer 1

他己解決しました。
tidyrというパッケージのuncount()を用いると便利なようです。

Answer 2

dat<-１つ目の表
result<-numeric(0)
for (i in 1:nrow(dat)) {
  result<-c(result,rep(dat[i,2],dat[i,3]))
}
out<-matrix(result,length(unique(dat[,1])),sum(dat[,3])/length(unique(dat[,1])))
out