gpt4 book ai didi

r - 如何在 r 的基函数中使用 tidyeval

转载 作者:行者123 更新时间:2023-12-05 09:27:05 27 4
gpt4 key购买 nike

<分区>

我写了一个函数。在我的函数中,有一个步骤需要提取非重复值的个数,类似这样:

df = data.frame(a = c(1, 1:3))
df

length(unique(df$a))

> length(unique(df$a))
[1] 3

我使用tidyeval来编程,这意味着用户在输入参数时不需要使用引号。

我尝试了很多方法,但都失败了。

以下代码均无效。

my_fun1 <- function(data, var){
l = length(unique(data${{var}}))
l
}

my_fun2 <- function(data, var){
l = data %>% {length(.${{var}})}
l
}

my_fun3 <- function(data, var){
l = with(data, length(unique({{var}})))
l
}
my_fun1(df, a)
my_fun2(df, a)
my_fun3(df, a)

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com