r - 在嵌套对象的函数环境中找不到对象
问题描述
我有一个代码片段,我正在尝试将其转换为函数。此功能应该在手动输入字段中查找潜在的拼写错误。该片段有效,您可以使用 tidyverse 包中的 starwars 数据进行尝试:
require(tidyverse)
require(rlang) # loaded for {{ to force function arguments as well as the with_env() function
require(RecordLinkage) # loaded for the jarowinkler() function
starwars_cleaning <- starwars %>%
add_count(name, name = "Freq_name") %>% # this keeps track of which spelling is more frequent
distinct(name, .keep_all = T) %>% # this prevents duplicated comparisons and self-comparisons
nest_by(homeworld, .key = ".Nest") %>%
mutate(Mapped = list(imap_dfr(.x = .Nest$name,
.f = ~jarowinkler(str1 = .x,
str2 = .Nest$name[-.y]) %>%
list() %>%
tibble(Score_n = ., Match_n = list(.Nest$name[-.y]),
Freq_n = list(.Nest$Freq_name[-.y]))
)))
该函数应接受要嵌套的变量(省略号)和要在其中查找潜在拼写错误匹配项的变量作为参数。现在,它看起来像这样:
string_matching <- function(.df, .string_col, ...){
.df$.tmp_string <- .df %>% select({{.string_col}})
.df <- .df %>%
add_count(.tmp_string, name = "Freq_name") %>%
distinct(.tmp_string, .keep_all = T) %>%
nest_by(..., .key = ".Nest") %>%
mutate(Mapped_n = list(with_env(env = current_env(), # same error with or without specifying the execution environment for imap
expr = imap_dfr(.x = .Nest$.tmp_string,
.f = ~jarowinkler(str1 = .x,
str2 = .Nest$.tmp_string[-.y]) %>%
list() %>%
tibble(Score_n = ., Match_n = list(.Nest$.tmp_string[-.y]),
Freq_n = list(.Nest$Freq_name[-.y]))
)
))
)
return(.df)
}
starwars %>%
string_matching(name, homeworld)
显然,在星球大战数据上,它不是很有用。我削减了这段代码的一些特性来获得 MWE——但这就是我的想法。当我像这样将代码包装在一个函数中时,它会返回invalid argument to unary operator
(显然是由[-.y]
. force()
我在阅读这篇文章后尝试了该命令,因为这个问题显然出现了很多。由于当前的错误和那篇文章,我认为问题可能与导致imap_dfr()
以某种方式丢失数据的功能环境有关。我试图包装对 map 的调用with_env()
并指示它使用函数环境而不是它自己的环境。我还尝试通过将中间对象分配给全局环境来分解函数,以便可以在函数的映射步骤中找到它:
assign(x = "TEMP", value = .df$.Nest, envir = global_env())
这让我遇到了同样的“一元运算符”错误。我不确定下一步该尝试什么。我似乎在绕圈子。任何有关导致此问题的原因以及如何解决此问题的见解将不胜感激。
解决方案
我认为您所指的帖子与此处无关。我认为您的问题与执行环境无关。问题实际上是您如何处理将变量传递给您的函数。当您创建您的tmp_string
时,您正在调用select()
它返回一个 tibble 而不是列值的向量。相反,用于pull()
提取这些值。
string_matching <- function(.df, .string_col, ...){
.df$.tmp_string <- .df %>% pull({{.string_col}})
.df <- .df %>%
add_count(.tmp_string, name = "Freq_name") %>%
distinct(.tmp_string, .keep_all = T) %>%
nest_by(..., .key = ".Nest") %>%
mutate(Mapped_n = list(with_env(env = current_env(), # same error with or without specifying the execution environment for imap
expr = imap_dfr(.x = .Nest$.tmp_string,
.f = ~jarowinkler(str1 = .x,
str2 = .Nest$.tmp_string[-.y]) %>%
list() %>%
tibble(Score_n = ., Match_n = list(.Nest$.tmp_string[-.y]),
Freq_n = list(.Nest$Freq_name[-.y]))
)
))
)
return(.df)
}
或者您可以编写代码来完全避免需要该临时列
string_matching <- function(.df, .string_col, ...){
col <- rlang::ensym(.string_col)
.df <- .df %>%
add_count(!!col, name = "Freq_name") %>%
distinct(!!col, .keep_all = T) %>%
nest_by(..., .key = ".Nest") %>%
mutate(Mapped_n = list(imap_dfr(.x = .Nest %>% pull(!!col),
.f = ~jarowinkler(str1 = .x,
str2 = (.Nest %>% pull(col))[-.y]) %>%
list() %>%
tibble(Score_n = ., Match_n = list((.Nest %>% pull(col))[-.y]),
Freq_n = list(.Nest$Freq_name[-.y]))
))
)
return(.df)
}
推荐阅读
- json - 使用结构读取 JSON
- vb6 - 组件 MSCOMCTL.OCX 或其依赖项之一未正确注册
- python - 用于多句子文本相似度的通用句子编码器
- c++ - 带有引用和指针的指针的重载返回
- javascript - 如何删除所有 p (小写和大写)中的 js 一词?在Javascript中
- javascript - 是否可以从抽象中调用子方法?
- python - 图形带通滤波器
- javascript - 存储每个的 id在 v-for 作为我的索引
- android - 无法找到具有路径的平台 SDK:platforms;android-29 Flutter
- file - 如何使用ansible中的标记更新文件中的密码?