将不带引号的列名传递给用户定义的函数以在 R 中使用 NA

发布于05月23日

我的函数将从用户处获取数据和列名

在我的函数中，我需要判断该列中缺少的值，并用"missed"替换它们

myfun <- function(data, column){
  library(tidyverse)
  data <- as.tibble(data)
  data %>%
    mutate(across(.cols = {{column}}, .fns = as.character)) %>%
    replace_na(list({{columns}} = "missed"))
  
}


new_df <- airquality %>%
                myfun(Ozone)

我以前使用过{{}}，我在传递像上面的空气质量示例这样的列名时没有问题.现在，在我的实际功能中，我需要替换na s.上述格式不适用于replace\u na()

你知道怎么解决这个问题吗？

推荐答案

我认为你需要在mutate()以内使用replace_na().如果使用与将列转换为字符相同的策略，这似乎可以解决问题:

myfun <- function(data, column){
  library(tidyverse)
  data <- as_tibble(data)
  data %>%
    mutate(across(.cols = {{column}}, .fns = ~ replace_na(as.character(.x), "missed")))
  
}


new_df <- airquality %>%
  myfun(Ozone)

输出:

> head(new_df)
# A tibble: 6 × 6
  Ozone  Solar.R  Wind  Temp Month   Day
  <chr>    <int> <dbl> <int> <int> <int>
1 41         190   7.4    67     5     1
2 36         118   8      72     5     2
3 12         149  12.6    74     5     3
4 18         313  11.5    62     5     4
5 missed      NA  14.3    56     5     5
6 28          NA  14.9    66     5     6