mutate_at函数取消以前的mutate_at

Question

我通过一个惟一的标识列将两个dataframes、innov2015和innov2017合并，从而创建了一个dataframes。innov2015中的某些情况不包括在innov2017中，反之亦然，因此S中的一半变量在某些情况下都有NA条目。

我想计算p= (p_2015+p_2017)/2，但是，当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()语句在不取消前一个语句的情况下工作，我需要做什么？

Answer 1

这两个mutate的冲突。您将在每个调用中完全重新定义"p“，因为第一个调用中的"p”值永远不会在第二个调用中重复使用。@Lennyy的评论将完成这项工作，但是如果您希望将此操作保留在tidyverse中，那么使用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
  ))