r - Converting ts object to data.frame -

i want transform ts object data.frame object. mwe 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 quarters in date columns. highly appreciate if figure out problem. in advance.

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