dplyr 用良好值的函数替换新列中的 NA答案

【问题标题】：dplyr replace NAs in a new column with a function of the good valuesdplyr 用良好值的函数替换新列中的 NA
【发布时间】：2021-07-19 04:22:14
【问题描述】：

小例子：一个小数据框，有 6 行和 2 列对问题的回答以及一列 ID

df <- data.frame(ID = c(rep("A", 3), rep("B", 2), "C"),
                 Q1 = sample(0:5, 10, replace=T),
                 Q2 = sample(0:3, 10, replace=T)
                )

我需要创建一个新的数据框，其 ID 为 Q1 和 Q2 的标准差，所以写

questions <- c("Q1", "Q2")
df_sigma <- df %>%
              group_by(ID) %>%
                summarize(across(all_of(questions), 
                           .fns = sd, 
                           .names = paste0("Sigma_", "{.col}")))

这给了我

df_sigma
# A tibble: 3 x 3
  ID    Sigma_Q1 Sigma_Q2
  <chr>    <dbl>    <dbl>
1 A         1.73    0.577
2 B         2.12    1.41 
3 C        NA      NA

用户 C 的 Q1 和 Q2 的标准差是 NA，因为它应该是 - 用户 C 只有一个条目。如何将每列中的 NA 替换为同一列中所有其他值的平均值或中位数，例如， df_sigma[3, "Sigma_Q1"] = median(df_sigma[1, "Sigma_Q1"] , df_sigma[2, "Sigma_Q1"]) 和 Sigma_Q2 类似？一般来说，会有多个问题和相当多的NA，随机散布在列中。

在此先感谢

托马斯·飞利浦

【问题讨论】：

检查您的示例 - 目前无法重现，因为 ``df``` 具有不同的行数。

标签： r dplyr na

【解决方案1】：

我们可以使用mutate 和replace

library(dplyr)
df_sigma2 <- df_sigma %>%
   mutate(across(starts_with("Sigma"),
        ~ replace(., is.na(.), median(., na.rm = TRUE))))

【讨论】：