r将数据帧转换为列表列表

给定以下数据帧：

Date       Person   Article
---------------------------
01-01-2015 Bob      TV
01-01-2015 Bob      Video
01-01-2015 Pete     Book
02-01-2015 Rob      Skate
02-01-2015 Kate     TV

如何将此数据帧转换为列表列表（或多维数组），以便

会给

TV, Video

这个怎么样

res <- lapply(split(df, df$V1), function(x) sapply(split(x, x$V2), function(y) y$V3))
res[["01-01-2015"]][["Bob"]]
[1] "TV"    "Video"

res
res <- lapply(split(df, df$V1), function(x) sapply(split(x, x$V2), function(y) y$V3))
res[["01-01-2015"]][["Bob"]]
[1] "TV"    "Video"