r - vec_rbind(!!!x, .ptype = ptype) 中的错误：

Question

尝试运行以“滞后”开头的最后一个代码时出现错误。我得到的错误是：

Error in vec_rbind(!!!x, .ptype = ptype) : 
  Internal error in `vec_assign()`: `value` should have been recycled to fit `x`.

In addition: Warning message:
`cols` is now required.
Please use `cols = c(data, previous_data)` 

我尝试使用建议，但代码仍然无法正常工作。有什么建议么？

完整代码如下：

library(forecast)
library(tidyr)
library(dplyr)
library(lubridate)
library(hts)
library(readr)

retail_clean<- read_csv("retail_clean.csv")
retail_clean$date<- as.Date(retail_clean$InvoiceDate)
dates_grouped<- retail_clean %>% group_by(date) %>% distinct(date)
dates_number<- nrow(dates_grouped)
min_date<- min(dates_grouped$date)
max_date<- max(dates_grouped$date)

dates_sequence<- seq.Date(from = min_date,to=max_date,by=1)
length(dates_sequence)
dates_sequence<- data.frame(date=dates_sequence)
holidays<- dates_sequence %>% anti_join(dates_grouped)
holidays_vector<-as.Date(holidays[["date"]])

retail_grouping<- retail_clean %>% group_by(date,Description) %>% 
  summarise(total_sales= sum(Quantity,na.rm = TRUE))


lagged<- retail_grouping %>% select(date,Description) %>% group_by(Description) %>% 
  nest() %>% mutate(previous_data= lapply(data,lag)) %>% unnest()

谢谢

标签： rlag