R从长到宽重塑数据帧

Question

Station_list =  rep(c("ABC", "DEF", "GHI", "JKL", "MNO", "PQR"), each = 61)
testframe = data.frame(Station = Station_list)
testframe$Value = seq(from = 10, to = 25, length.out = 366)
testframe$Date = seq(ymd('2000-01-01'),ymd('2000-12-31'),by='day')

我想将此数据框重塑为以下格式：

Date          Station_ABC   Station_DEF   Station_GHI    Station_JKL    Station_MNO   Station_PQR 
2000-01-01    correct_values 

我试图以许多不同的方式重塑数据框，但是我没有想要的方法。

library(reshape)
test <- cast(testframe, Date + Value ~ Station)

library(furniture)
test = wide (testframe, v.names = "Station", timevar = "Date", id = "Value")
test = wide (testframe, v.names = NULL, timevar = "Station", id = c("Value", "Date"))

test = reshape(testframe, v.names="Station", timevar="Date", idvar=c("Value"), direction="wide")

我做错了什么？