如何解决用dplyr :: select评估在我的函数中不起作用
在R中处理评估问题真的很新。
example<- data.frame(id = 1:5,pairs0 = c(1,1,2,2),pairs1 = c(2,1)
)
这是我要编写的函数:
f <- function(df,col_pair){
df2 <- df %>% mutate(j = row_number())
full_join(df2 %>% select(j,col_pair),df2 %>% select(j,suffix = c('1','2'),by = "{{col_pair}}",keep = TRUE) %>%
filter(j1 != j2)
}
该函数选择一个数据帧df
,并通过列col_pair
将其自身连接起来。
事实是,如果我运行f(example,pairs0)
,我会得到“数据中必须存在联接列”
有人可以帮忙吗?
解决方法
我已经对您的函数进行了修改,您可以将其视为选项,因为它使用带引号的变量,并且不像使用其他评估方案那样麻烦。这里的代码:
#Function
f <- function(df,col_pair){
df2 <- df %>% mutate(j = row_number())
full_join(df2 %>% select(j,col_pair),df2 %>% select(j,suffix = c('1','2'),by = col_pair,keep = TRUE) %>%
filter(j1 != j2)
}
#Apply
f(example,'pairs0')
输出:
j1 pairs01 j2 pairs02
1 1 1 2 1
2 1 1 3 1
3 2 1 1 1
4 2 1 3 1
5 3 1 1 1
6 3 1 2 1
7 4 2 5 2
8 5 2 4 2
此外,如果需要非标准评估,则可以使用以下方法:
#Option 2
f <- function(df,col_pair){
var <- enquo(col_pair)
df2 <- df %>% mutate(j = row_number())
full_join(df2 %>% select(j,!!var),by = rlang::as_name(var),keep = TRUE) %>%
filter(j1 != j2)
}
我们申请:
#Apply
f(example,pairs0)
输出:
j1 pairs01 j2 pairs02
1 1 1 2 1
2 1 1 3 1
3 2 1 1 1
4 2 1 3 1
5 3 1 1 1
6 3 1 2 1
7 4 2 5 2
8 5 2 4 2
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。