How to transpose column and group at the same time [duplicate]

Answer 1

We can use data.table

 library(data.table)
 dcast(setDT(df1), Pt~rowid(Pt), value.var="EVENT")