Mixing
Unnest a ts class
My data has multiple customers data with different start and end dates along with their sales data.So I did simple exponential smoothing.
I applied the following code to apply ses
library(zoo)
library(forecast)
z <- read.zoo(data_set,FUN = function(x) as.Date(x) + seq_along(x) / 10^10 , index = "Date", split = "customer_id")
L <- lapply(as.list(z), function(x) ts(na.omit(x),frequency = 52))
HW <- lapply(L, ses)
Now my output class is list with uneven lengths.Can someone help me how to unnest or unlist the output in to a data frame and get the fitted values,actuals,residuals along with their dates,sales and customer_id.
Note : the reson I post my input data rather than data of HW is,the HW data is too large.
Can someone help me in R.
r dataframe time-series exponential unnest
asked Nov 19 '18 at 15:52
riyan
127
add a comment |
My data has multiple customers data with different start and end dates along with their sales data.So I did simple exponential smoothing.
I applied the following code to apply ses
library(zoo)
library(forecast)
z <- read.zoo(data_set,FUN = function(x) as.Date(x) + seq_along(x) / 10^10 , index = "Date", split = "customer_id")
L <- lapply(as.list(z), function(x) ts(na.omit(x),frequency = 52))
HW <- lapply(L, ses)
Now my output class is list with uneven lengths.Can someone help me how to unnest or unlist the output in to a data frame and get the fitted values,actuals,residuals along with their dates,sales and customer_id.
Note : the reson I post my input data rather than data of HW is,the HW data is too large.
Can someone help me in R.
r dataframe time-series exponential unnest
asked Nov 19 '18 at 15:52
riyan
127
Please be clear, are you usingforecast::ses?
– r2evans
Nov 19 '18 at 15:58
1
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
@G.Grothendieck I tried your method but it showed me like columns names likePoint Forecast,Lo 80,Hi 80basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.
– riyan
Nov 19 '18 at 17:30
In order to unlist your output, you need to convert each element from classforecasttodata.frame, and then you can bind the list elements together usingbind_rowsfrom packagedplyr
– Giorgi Chighladze
Nov 19 '18 at 21:40
add a comment |
My data has multiple customers data with different start and end dates along with their sales data.So I did simple exponential smoothing.
I applied the following code to apply ses
library(zoo)
library(forecast)
z <- read.zoo(data_set,FUN = function(x) as.Date(x) + seq_along(x) / 10^10 , index = "Date", split = "customer_id")
L <- lapply(as.list(z), function(x) ts(na.omit(x),frequency = 52))
HW <- lapply(L, ses)
Now my output class is list with uneven lengths.Can someone help me how to unnest or unlist the output in to a data frame and get the fitted values,actuals,residuals along with their dates,sales and customer_id.
Note : the reson I post my input data rather than data of HW is,the HW data is too large.
Can someone help me in R.
r dataframe time-series exponential unnest
asked Nov 19 '18 at 15:52
riyan
127
My data has multiple customers data with different start and end dates along with their sales data.So I did simple exponential smoothing.
I applied the following code to apply ses
library(zoo)
library(forecast)
z <- read.zoo(data_set,FUN = function(x) as.Date(x) + seq_along(x) / 10^10 , index = "Date", split = "customer_id")
L <- lapply(as.list(z), function(x) ts(na.omit(x),frequency = 52))
HW <- lapply(L, ses)
Now my output class is list with uneven lengths.Can someone help me how to unnest or unlist the output in to a data frame and get the fitted values,actuals,residuals along with their dates,sales and customer_id.
Note : the reson I post my input data rather than data of HW is,the HW data is too large.
Can someone help me in R.
r dataframe time-series exponential unnest
r dataframe time-series exponential unnest
asked Nov 19 '18 at 15:52
riyan
127
asked Nov 19 '18 at 15:52
riyan
127
edited Nov 29 '18 at 14:13
asked Nov 19 '18 at 15:52
riyan
127
asked Nov 19 '18 at 15:52
riyan
127
asked Nov 19 '18 at 15:52
riyan
127
127
Please be clear, are you usingforecast::ses?
– r2evans
Nov 19 '18 at 15:58
1
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
@G.Grothendieck I tried your method but it showed me like columns names likePoint Forecast,Lo 80,Hi 80basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.
– riyan
Nov 19 '18 at 17:30
In order to unlist your output, you need to convert each element from classforecasttodata.frame, and then you can bind the list elements together usingbind_rowsfrom packagedplyr
– Giorgi Chighladze
Nov 19 '18 at 21:40
add a comment |
Please be clear, are you usingforecast::ses?
– r2evans
Nov 19 '18 at 15:58
1
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
@G.Grothendieck I tried your method but it showed me like columns names likePoint Forecast,Lo 80,Hi 80basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.
– riyan
Nov 19 '18 at 17:30
In order to unlist your output, you need to convert each element from classforecasttodata.frame, and then you can bind the list elements together usingbind_rowsfrom packagedplyr
– Giorgi Chighladze
Nov 19 '18 at 21:40
Please be clear, are you using
forecast::ses?– r2evans
Nov 19 '18 at 15:58
Please be clear, are you using
forecast::ses?– r2evans
Nov 19 '18 at 15:58
1
1
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
@G.Grothendieck I tried your method but it showed me like columns names like
Point Forecast , Lo 80, Hi 80 basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.– riyan
Nov 19 '18 at 17:30
@G.Grothendieck I tried your method but it showed me like columns names like
Point Forecast , Lo 80, Hi 80 basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.– riyan
Nov 19 '18 at 17:30
In order to unlist your output, you need to convert each element from class
forecast to data.frame, and then you can bind the list elements together using bind_rows from package dplyr– Giorgi Chighladze
Nov 19 '18 at 21:40
In order to unlist your output, you need to convert each element from class
forecast to data.frame, and then you can bind the list elements together using bind_rows from package dplyr– Giorgi Chighladze
Nov 19 '18 at 21:40
add a comment |
2 Answers
2
active
oldest
votes
I would use tidyverse package to handle this problem.
map(HW, ~ .x %>%
as.data.frame %>% # convert each element of the list to data.frame
rownames_to_column) %>% # add row names as columns within each element
bind_rows(.id = "customer_id") # bind all elements and add customer ID
I am not sure how to relate dates and actual sales to your output (HW). If you explain it I might provide solution to that part of the problem too.
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
add a comment |
Firstly took all the unique customer_id into a variable called 'k'
k <- unique(data_set$customer_id)
Created a empty data frame
b <- data.frame()
extracted all the fitted values using a for loop and stored in 'a'.Using the rbind function attached all the fitted values to data frame 'b'
for(key in k){
print(a <- as.data.frame((as.numeric(HW_ses[[key]]$model$fitted))))
b <- rbind(b,a)
}
Finally using column bind function attached the input data set with data frame 'b'
data_set_final <- cbind(data_set,b)
answered Nov 29 '18 at 14:12
riyan
127
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53378287%2funnest-a-ts-class%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
I would use tidyverse package to handle this problem.
map(HW, ~ .x %>%
as.data.frame %>% # convert each element of the list to data.frame
rownames_to_column) %>% # add row names as columns within each element
bind_rows(.id = "customer_id") # bind all elements and add customer ID
I am not sure how to relate dates and actual sales to your output (HW). If you explain it I might provide solution to that part of the problem too.
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
add a comment |
I would use tidyverse package to handle this problem.
map(HW, ~ .x %>%
as.data.frame %>% # convert each element of the list to data.frame
rownames_to_column) %>% # add row names as columns within each element
bind_rows(.id = "customer_id") # bind all elements and add customer ID
I am not sure how to relate dates and actual sales to your output (HW). If you explain it I might provide solution to that part of the problem too.
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
add a comment |
I would use tidyverse package to handle this problem.
map(HW, ~ .x %>%
as.data.frame %>% # convert each element of the list to data.frame
rownames_to_column) %>% # add row names as columns within each element
bind_rows(.id = "customer_id") # bind all elements and add customer ID
I am not sure how to relate dates and actual sales to your output (HW). If you explain it I might provide solution to that part of the problem too.
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
I would use tidyverse package to handle this problem.
map(HW, ~ .x %>%
as.data.frame %>% # convert each element of the list to data.frame
rownames_to_column) %>% # add row names as columns within each element
bind_rows(.id = "customer_id") # bind all elements and add customer ID
I am not sure how to relate dates and actual sales to your output (HW). If you explain it I might provide solution to that part of the problem too.
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
answered Nov 19 '18 at 22:10
Giorgi Chighladze
665
665
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
add a comment |
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
Still no luck,the output is showing only Lo and Hi values.I just want the actual values(from input),dates(from input) alsong with their customer_id and their exponential values in a data frame.
– riyan
Nov 27 '18 at 1:28
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
@riyan, can you show what the final table should look like. For instance, for customer "I-H0188" how do you want to combine HW and input data.
– Giorgi Chighladze
Nov 27 '18 at 19:17
add a comment |
Firstly took all the unique customer_id into a variable called 'k'
k <- unique(data_set$customer_id)
Created a empty data frame
b <- data.frame()
extracted all the fitted values using a for loop and stored in 'a'.Using the rbind function attached all the fitted values to data frame 'b'
for(key in k){
print(a <- as.data.frame((as.numeric(HW_ses[[key]]$model$fitted))))
b <- rbind(b,a)
}
Finally using column bind function attached the input data set with data frame 'b'
data_set_final <- cbind(data_set,b)
answered Nov 29 '18 at 14:12
riyan
127
add a comment |
Firstly took all the unique customer_id into a variable called 'k'
k <- unique(data_set$customer_id)
Created a empty data frame
b <- data.frame()
extracted all the fitted values using a for loop and stored in 'a'.Using the rbind function attached all the fitted values to data frame 'b'
for(key in k){
print(a <- as.data.frame((as.numeric(HW_ses[[key]]$model$fitted))))
b <- rbind(b,a)
}
Finally using column bind function attached the input data set with data frame 'b'
data_set_final <- cbind(data_set,b)
answered Nov 29 '18 at 14:12
riyan
127
add a comment |
Firstly took all the unique customer_id into a variable called 'k'
k <- unique(data_set$customer_id)
Created a empty data frame
b <- data.frame()
extracted all the fitted values using a for loop and stored in 'a'.Using the rbind function attached all the fitted values to data frame 'b'
for(key in k){
print(a <- as.data.frame((as.numeric(HW_ses[[key]]$model$fitted))))
b <- rbind(b,a)
}
Finally using column bind function attached the input data set with data frame 'b'
data_set_final <- cbind(data_set,b)
answered Nov 29 '18 at 14:12
riyan
127
Firstly took all the unique customer_id into a variable called 'k'
k <- unique(data_set$customer_id)
Created a empty data frame
b <- data.frame()
extracted all the fitted values using a for loop and stored in 'a'.Using the rbind function attached all the fitted values to data frame 'b'
for(key in k){
print(a <- as.data.frame((as.numeric(HW_ses[[key]]$model$fitted))))
b <- rbind(b,a)
}
Finally using column bind function attached the input data set with data frame 'b'
data_set_final <- cbind(data_set,b)
answered Nov 29 '18 at 14:12
riyan
127
answered Nov 29 '18 at 14:12
riyan
127
answered Nov 29 '18 at 14:12
riyan
127
answered Nov 29 '18 at 14:12
riyan
127
127
add a comment |
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53378287%2funnest-a-ts-class%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Please be clear, are you using
forecast::ses?– r2evans
Nov 19 '18 at 15:58
1
Yes@r2evans and edited my question.Thanks!
– riyan
Nov 19 '18 at 16:00
@G.Grothendieck I tried your method but it showed me like columns names like
Point Forecast,Lo 80,Hi 80basically it showed me the intervals other than the fitted values and actual values which we can see in dput(HW) or view of HW.– riyan
Nov 19 '18 at 17:30
In order to unlist your output, you need to convert each element from class
forecasttodata.frame, and then you can bind the list elements together usingbind_rowsfrom packagedplyr– Giorgi Chighladze
Nov 19 '18 at 21:40