R中的辅助函数

Question

对于某些特定变量，无论它们的位置如何，我都尝试将 NA 替换为 0。我写了下面的代码，但出现了一些错误..

data1[, starts_with("Year_")][is.na(data1[, starts_with("Year_")])] <- 0

我收到以下错误

Error: No tidyselect variables were registered 

Call `rlang::last_error()` to see a backtrace

我已经安装了dplyr、tidyr、tidyselect，但我仍然收到这个错误，谁能帮我解决这个问题。

Answer 1

由于您没有提供 MRE，我不得不自己创建它：

df<- data.frame(id = 1:5,
                Prefix_1 = c(1, 2, 3, NA, 5),
                Prefix_2 = c(NA, 1, 2, 3, NA))

解决方法，如何将NA替换为虚构的数据：

df[, grepl("^Prefix_", names(df))][is.na(df[, grepl("^Prefix_", names(df))])] <- 0

df 现在是：

 id Prefix_1 Prefix_2
1  1        1        0
2  2        2        1
3  3        3        2
4  4        0        3
5  5        5        0

请注意，仅仅因为我们可以将NAs 替换为0 并不意味着我们应该。我想你有一个很好的理由为什么 NAs 应该是 0 ;)

编辑：

dplyr 的解决方案：

df<- data.frame(id = 1:5,
                Prefix_1 = c(1, 2, 3, NA, 5),
                Prefix_2 = c(NA, 1, 2, 3, NA))


library(dplyr)   
df %>% 
  mutate_at(vars(matches("^Prefix")), coalesce,  0)

或者，使用dplyr 和tidyr::starts_with：

library(dplyr)   
library(tidyr)
df %>% 
  mutate_at(vars(starts_with("Prefix")), coalesce,  0)