Я новый пользователь RЯ пытался вычислить разницу во времени между двумя временными точками и рассчитать процентное значение (привычность_эффективности).Используя это процентное значение, мне нужно присвоить конкретное значение новой переменной (i).
time_difference1 <- as.numeric(difftime(strptime(var$psqi_1_bedtime, "%H:%M"), strptime(var$psqi_3_waketime, "%H:%M")))
timedifference <- abs (24 - time_difference1)
var4 <- data.frame (habitual_efficiency = 1: nrow(var))
transmute (var, habitual_efficiency = (var$psqi_4_sleeptime*100/timedifference))
var4 <- data.frame (comp4score = 1: nrow(var))
var4 <- var4 %>% mutate(comp4score = case_when(var$habitual_efficiency > 84.00 ~ 0, var$habitual_efficiency > 74.00 & var$habitual_efficiency <= 84.00 ~ 1, var$habitual_efficiency > 65.00 & var$habitual_efficiency <= 74.00 ~ 2, var$habitual_efficiency <= 65.00 ~ 3, TRUE ~ NaN
)
)
var4
Когда я запускаю этот код, я получаю следующую ошибку: Ошибка в mutate_impl (.data, dots): столбец habitual_efficiency должен иметь длину 430 (количество строк) или единицу, а не0 Ошибка в mutate_impl (.data, dots): столбец i должен иметь длину 430 (количество строк) или один, а не 0
Как мне подойти к решению этой проблемы?