dplyr 中位数（按组）

Question

我有这个数据框

df1 <- data.frame(
     Type1 = c("A","A","A", "AB", "AB"),
     Type2 = c(1L,2L,2L, 1L, 1L),
     Value = c(1L, 2L, 1L, NA, NA), , Median = c(1L, 1.5, 1.5, NA, NA))

我想通过 Type1 和 Type2 将新列中的中位数转换为新变量“AB”而不汇总，以便在现有列中获得新值。

 df12 <- data.frame(
    Type1 = c("A","A","A", "AB", "AB"),
    Type2 = c(1L,2L,2L, 1L, 1L),
    Value = c(1L, 2L, 1L, NA, NA), Median = c(1L, 1.5, 1.5, 1L, 1L))

我的尝试

df1 %>% group_by(Type1, Type2) %>% mutate(Median = ifelse(Type1 == "AB" & Type2 == 1, median(Value), Median))

Answer 1

我们可能需要去掉这里的分组

library(dplyr)
df1 %>%
    mutate(Median = replace(Median, Type1 %in% 'AB' & Type2 %in% 1, 
        median(Value, na.rm = TRUE)) )