Converting ts object to data.frame

Question

I want to transform my ts object to data.frame object. My MWE is given below:

Code

set.seed(12345) dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2)) library(reshape2) df <- data.frame(date=as.Date(index(dat)), Y = melt(dat)$value) 

Output

         date        Y 1  1975-05-14 86.04519 2  1975-05-14 93.78866 3  1975-05-14 88.04912 4  1975-05-15 94.30623 5  1975-05-15 72.82405 6  1975-05-15 58.31859 7  1975-05-15 66.25477 8  1975-05-16 75.46122 9  1975-05-16 86.38526 10 1975-05-16 99.48685 

I have lost my quarters in date columns. How can I figure out the problem?

Answer 1

How about

data.frame(Y=as.matrix(dat), date=time(dat)) 

This returns

          Y    date 1  86.04519 1959.25 2  93.78866 1959.50 3  88.04912 1959.75 4  94.30623 1960.00 5  72.82405 1960.25 6  58.31859 1960.50 7  66.25477 1960.75 8  75.46122 1961.00 9  86.38526 1961.25 10 99.48685 1961.50