Функция mutate_at отменяет предыдущий mutate_at
Я создал фрейм данных S, объединив два фрейма данных Innov2015 и Innov2017 с помощью уникального столбца идентификации. Некоторые кейсы в Innov2015 не включены в Innov2017, и наоборот, поэтому для некоторых случаев есть записи NA для половины переменных в S.
Я хочу вычислить p = (p_2015 + p_2017) / 2, однако, когда есть запись NA для p_2015, я хочу p = p_2017 и наоборот.
Я пытался сделать это с помощью:
S <- merge(x = innov_2015_2, y = innov_2017_2, by = "cell_no", all = TRUE) %>%
mutate(p = 0) %>%
mutate_at(vars(p), funs(ifelse(is.na(smalln_2015), p_2017,(p_2015+p_2017)/2))) %>%
mutate_at(vars(p), funs(ifelse(is.na(smalln_2017), p_2015,(p_2015+p_2017)/2))) %>%
Если я сбегу
S <- merge(x = innov_2015_2, y = innov_2017_2, by = "cell_no", all = TRUE) %>%
mutate(p = 0) %>%
mutate_at(vars(p), funs(ifelse(is.na(smalln_2015), p_2017,(p_2015+p_2017)/2))) %>%
p принимает желаемое значение.
когда я запускаю оба оператора mutate_at ()
S <- merge(x = innov_2015_2, y = innov_2017_2, by = "cell_no", all = TRUE) %>%
mutate(p = 0) %>%
mutate_at(vars(p), funs(ifelse(is.na(smalln_2015), p_2017,(p_2015+p_2017)/2))) %>%
mutate_at(vars(p), funs(ifelse(is.na(smalln_2017), p_2015,(p_2015+p_2017)/2))) %>%
второй оператор mutate_at () производит желаемые значения, однако он отменяет первый оператор mutate_at (), и там, где p принял правильное значение, теперь есть NA
Что мне нужно сделать, чтобы оба оператора mutate_at () работали без отмены предыдущего?
Спасибо за работу. У вас есть объяснение, почему мой код не работает? Обновлено: предоставленный вами код вводит значение p как среднее значение всех столбцов p_2015 и p_2017, а не среднее значение значений в соответствующей строке
Извините, я имел в виду функцию rowMeans() выше, но больше не могу редактировать этот комментарий. В любом случае, я думаю, что ваша попытка - это скорее обходной путь, чем мое предложение. Что-то вроде: S$p <- rowMeans(S[,c("p_2015", "p_2017")], na.rm = T) только с базой R. Приведенный ниже ответ превзошел меня в том, что касается объяснения, почему ваша попытка не привела к желаемому результату.
Спасибо, что работает
Ответы 1
Эти два mutate конфликтуют. Вы полностью переопределяете «p» в каждом из них, поскольку значение «p» из первого вызова никогда не используется повторно во втором. Комментарий @Lennyy выполнит свою работу, но если вы хотите сохранить эту операцию в пределах тидиверс, возможно, вам больше повезет с использованием case_when. Ваш пример не является полностью воспроизводимым, поэтому следующее предположение о том, как он должен работать:
S <- merge(x = innov_2015_2, y = innov_2017_2, by = "cell_no", all = TRUE) %>%
mutate(p = case_when(
is.na(smalln_2015) ~ smalln_2017,
is.na(smalln_2017) ~ smalln_2015,
TRUE ~ (smalln_2015 + smalln_2017) / 2
))
Почему бы вам просто не взять среднее значение обеих переменных? Если одно отсутствует, используется среднее значение 1, что именно то, что вы хотите, если доступны не оба значения? Не забудьте указать аргумент
na.rmв функцииmean()дляTRUE.S %>% mutate(p = mean(c(p_2015,p_2017), na.rm = T))