Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
dplyr中mutate_at出错-按组尝试窗口延迟_R_Dplyr - Fatal编程技术网

dplyr中mutate_at出错-按组尝试窗口延迟

dplyr中mutate_at出错-按组尝试窗口延迟,r,dplyr,R,Dplyr,这就是我现在拥有的: final.df <- all.df %>% dplyr::arrange(customer, date) %>% dplyr::select(year, week, customer, date, ltv_score, avg_monthly_sales:most_recent_login) %>% group_by(customer, year) %>% dplyr::mutate_at(c(&q

这就是我现在拥有的:

final.df <- all.df %>% dplyr::arrange(customer, date) %>%
  dplyr::select(year, week, customer, date, ltv_score,
                avg_monthly_sales:most_recent_login) %>%
  group_by(customer, year) %>%
  dplyr::mutate_at(c("date"), list(~lead), n = 1) %>%
  data.frame()
final.df%dplyr::安排(客户、日期)%%>%
dplyr::选择(年、周、客户、日期、ltv_分数、,
平均每月销售额:最近登录%>%
分组依据(客户,年份)%>%
dplyr::在(c(“日期”),列表(~lead),n=1)%>%
data.frame()
我试图用一年内的一个日期/客户来抵消一切,以回溯测试预测-基本上每个组都有滚动输入。我在别处找到了这个片段,并根据需要对其进行了修改,但出现以下错误:

Error: Input must be a vector, not a <formula> object.
错误:输入必须是向量,而不是对象。

请注意,所有的
\u at
\u all
\u if
动词都被弃用,取而代之的是跨
。对于单个列,您不需要在
/
上跨
进行变异

library(dplyr)

final.df <- all.df %>% 
  dplyr::arrange(customer, date) %>%
  dplyr::select(year, week, customer, date, ltv_score,
                avg_monthly_sales:most_recent_login) %>%
  group_by(customer, year) %>%
  dplyr::mutate(date = lead(date)) %>%
  data.frame()
库(dplyr)
最终价格为0.df%
dplyr::安排(客户、日期)%>%
dplyr::选择(年、周、客户、日期、ltv_分数、,
平均每月销售额:最近登录%>%
分组依据(客户,年份)%>%
dplyr::突变(日期=领先(日期))%>%
data.frame()

您需要在(变量('date'),~lead(,n=1))进行两次更改
或者如果您希望在(变量('date'),lead,n=1)不使用lamdba的情况下进行指定
则需要在(变量('date'),lead,n=1)进行两次更改