结合虚拟变量行的因子

Question

我正在尝试为分类变量'person'创建虚拟变量，以便我可以在一行中看到可能在同一天出现在同一个地方。

原始数据'd'：

    Date, City, Person,
    2014-11-02, Manchester, Jane
    2014-11-02, Manchester, Tom
    2014-11-15, London, Susan
    2014-11-16, London, Harry
    2014-11-16, Birmingham, Tom
    2014-12-01, Birmingham, Susan
    2014-12-01, Birmingham, Jane

我想要完成的事情：

    Date, City, Tom, Harry, Susan, Jane
     2014-11-02, Manchester, 1, 0, 0, 1
     2014-11-15, London, 0, 0, 1, 0
     2014-11-16, London, 0, 1, 0, 1
     2014-11-16, Birmingham, 1, 0, 0, 0
     2014-12-01, Birmingham, 0, 0, 1, 1

我试过了：

    for(level in unique(d$person)){
    d[paste("Person", level, sep = "_")]
    <-      ifelse(d$Person == level, 1, 0)
    }

但是我每次观察都得到单独的行，而不是当同一个人在同一天在同一个城市时合并为一行。