从数据中提取模式

Question

我有一个数据框，上面有大学生的停车许可证信息。我有很多信息，但我正在寻找的模式是关于不同学年的回头客。让我告诉你我拥有什么和我需要什么的基本概念。

Student.ID    Date.bought     Academic.year   Parking.Lot
001            Sept 7, 2008    Freshmen        West
001            Sept 2, 2009    Freshmen        West
001            Aug 10, 2010    Sophomore       East
002            Aug 12, 2009    Freshmen        North
002            Sept 4, 2011    Junior          North 

我想为在新生一年内买的人，新生+二年级，新生+二年级+大四学生以及基本上其他组合制作旗帜。有人会帮助我得到几个例子，所以我可以自己创建其他的排列吗？

期望的最终结果看起来像这样。

Student.ID    Freshmen     Fresh.Soph   Fresh.Junior
001           1            1            0
002           1            0            1

对于我创建的每个排列，基本上都以真/假结束。

Answer 1

简单地：

df1 <- model.matrix(~Student.ID + Academic.year -1, data=df1)

df1 <- as.data.frame(df1)

aggregate(. ~ Student.ID, data=df1,max)