我想用尽可能少的代码转换以下DF，以便date变量保留为一列，但是每个因子级别都变成变量名，每个级别的数据都变成这些各自的数据变量。例如，变量red应该包含值50、45和55。我已经考虑过过滤，转置，融化和转换，但是我找不到一种方法。
请帮助！谢谢！
df <- data.frame(factor1 = factor(x=rep(1:3, 3), levels=1:3, labels=c("red", "blue", "green")),
data1 = c(50, 35, 15, 45, 40, 25, 55, 35, 10),
date1 = rep(c(2000, 2004, 2008), each=3))