Может кто-нибудь помочь мне решить эту проблему?
Ссылки на файлы:
orders <- fread("https://s3.amazonaws.com/hackerday.datascience/87/orders.csv")
orders <- orders %>% mutate(order_hour_of_day=as.numeric(order_hour_of_day),
eval_set=as.factor(eval_set))
заказов $ day_week_name <-
ifelse (orders $ order_dow == 0,
'Воскресенье',
ifelse (orders $ order_dow == 1,
'Понедельник',
ifelse (orders $ order_dow == 2,
'Вторник',
ifelse (orders $ order_dow == 3,
«Среда»,
ifelse (orders $ order_dow == 4,
'Четверг',
ifelse (orders $ order_dow == 5,
«Пятница»,
ifelse (orders $ order_dow == 6,
'Суббота',"")))))))
orders $ day_ordered <- factor (orders $ day_week_name, level = c ("Sunday",
"Понедельник",
"Вторник",
«Среда»,
"Четверг",
«Пятница»,
"Суббота")) </p>
Проблема в том, что когда я запускаю этот код, я получаю следующее сообщение об ошибке, но без графика:
orders %>% filter(eval_set=='prior') %>% count_(orders,'order_number') %>%
ggplot(aes(order_number,n)) + geom_line(color='red',size=1)
Error Message:
Ошибка в mutate_impl (.data, точки): привязка не найдена: предыдущая.
Ошибка в mutate_impl (.data, точки): привязка не найдена: вторник.