I'm not sure what's wrong with your dlply
call, but you should use xts
instead of as.xts
.
ur <- split(LAUPS55030003, LAUPS55030003$series_id)
xl <- lapply(ur, function(x) xts(x$value, x$date))
# and if you want each series in a column:
xc <- do.call(merge, xl)