我一直在使用dplyr的quo表达式:library(dplyr) library(ggplot2) thing <- quo(clarity) diamonds %>% select(!!thing) print(paste("looking at", thing)) [...
我有一个函数x_expression(),它会打印传递给参数x的表达式。 pacman::p_load(magrittr, rlang) x_expression <- function(x) { print(enquo(x)) } y <- 1 x_expressio...
我正在编写一个使用tidyverse函数的软件包,也就是使用非标准评估的函数,比如dplyr::filter: setMethod("filter_by_id", signature(x = "studies", id = "character"), ...
我正在尝试创建一个使用ggplot2创建棒棒糖图的函数。我想将所有参数传递到geom_point()中的aes()中,但是我想从传递到geom_segment()中的aes()中排除size参数(如果您查看下面a()的输出,很明显为什么)。因此,我使用rlang::enquos()捕获...,...
我目前正在使用 devtools 开发一个 R 软件包。我们在函数中使用 tidyverse 的 %>%,以及相关的 purrr 和 dplyr 软件包。 其中一项函数编辑后如下: #' Print `cust_modl` object #' #' @param x A `cust_...
与这个问题相关。我想要构建一个自定义的管道%W>%,可以使得一次操作中的警告被忽略。 library(magrittr) data.frame(a= c(1,-1)) %W>% mutate(a=sqrt(a)) %>% cos 将等同于: w <- optio...
考虑以下内容: library(tidyverse) df <- tibble(x = rnorm(100), y = rnorm(100, 10, 2), z = x * y) df %>% mutate_all(funs(avg = mean(.), dev = sd(...