如何创建一个“不等于”的函数？

Question

我尝试使用filter != 创建一个函数，但它不起作用。不知道是不是和tidy评估有关。

这是我尝试过的：

library(haven)
library(dplyr)
library(labelled)
library(sjlabelled)

data <- read_spss("http://staff.bath.ac.uk/pssiw/stats2/SAQ.sav")
data$Q01_L <- as_label(data$Q01)

这是我尝试编写的函数：

    bar_plot <- function(data, var) {
      var <- rlang::ensym(var)
      
      data %>% 
        filter(!var == "Neither") %>% 
        ggplot(aes(!!var)) +
        geom_bar() +
        coord_flip() +
        theme_classic() +
        labs(x = "Question", y = "Count", title = var_label(data$var)) 
    }
    
    
    bar_plot(data, Q01_L)

我想要实现的是删除“Neither”值，我使用filter(!var == "Neither") 尝试了这个，但这不起作用，我仍然绘制“Neither”。我也失去了图表的标题。

这就是我想要实现的目标：

我可以用几行代码做到这一点：

data %>% 
  filter(!Q01_L == "Neither") %>% 
  ggplot(aes(Q01_L)) +
  geom_bar() +
  coord_flip() +
  theme_classic() +
  labs(x = "Question", y = "Count", title = var_label(data$Q01_L)) 

但我不知道如何将其转换为函数。

Answer 1

尝试将eval 用作filter(!eval(var) == "Neither")

 bar_plot <- function(.data, var) {
    var <- rlang::ensym(var)
    
    data %>% 
        filter(!eval(var) == "Neither") %>% 
        ggplot(aes(!!var)) +
        geom_bar() +
        coord_flip() +
        theme_classic() +
        labs(x = "Question", y = "Count", title = var_label(data[var])) 
}


bar_plot(data, Q01_L)

Answer 2

你可以在函数中使用curly-curly操作符，这样var <- rlang::ensym(var)就可以被移除了。

来自help("nse-force")：

curly-curly 运算符 {{ }} 用于函数参数有点特殊，因为它强制函数参数并立即将其分解。解析后的表达式被替换，准备在另一个上下文中进行评估，例如数据框。

bar_plot <- function(data, var) {
  
  data %>% 
    filter({{var}} != "Neither") %>% 
    ggplot(aes( {{var}} )) +
    geom_bar() +
    coord_flip() +
    theme_classic() +
    labs(x = "Question", y = "Count", title = var_label(pull(data, {{var}})))
}

bar_plot(data, Q01_L)

Answer 3

您也可以使用!!（感谢@DarrenTsai）和!=：

#Plot
bar_plot <- function(.data, var) {
  var <- rlang::ensym(var)
  
  data %>% 
    filter(!!var != "Neither") %>% 
    ggplot(aes(!!var)) +
    geom_bar() +
    coord_flip() +
    theme_classic() +
    labs(x = "Question", y = "Count", title = var_label(data[,var])) 
}


bar_plot(data, Q01_L)

输出：