有光泽的 dplyr 过滤器

Question

我有一个带有过滤条件的闪亮应用程序，例如，如果 case1 为真，我想保留特定 verctor 的所有值，如果不是，我使用输入 shiny 进行过滤。 我已经用基本的 R 完成了它，它可以工作，但现在需要使用 dplyr 优化我的应用程序。 谢谢

filter(
    ifelse(input$case1 == TRUE, 
           perimetre_commercial_estime %in% perimetres,
           perimetre_commercial_estime %in% input$perimetre
    )
 ) 

编辑 1：

R 中的等价物是：

ifelse(input$case1 == TRUE,
       my.data <- my.data[my.data$perimetre_commercial_estime %in% perimetres, ],
       my.data <- my.data[my.data$perimetre_commercial_estime %in% input$perimetre, ]                   
)

编辑 2：

在 jeff 回答之后，我只是用 if (condition) else 替换了 ifelse 语句，它工作得很好......有什么建议吗？

  filter(if(input$case1 == TRUE){perimetre_commercial_estime %in% perimetres}
         else {perimetre_commercial_estime %in% input$perimetre}

Answer 1

卓悦山地车，

听起来您将条件放在过滤器中，而它应该是第一个。所以：

if (condition)
  var <- filter(perimetre_commercial_estime %in% perimetres)
else
  var <- filter(perimetre_commercial_estime %in% input$perimetre)

您的帖子建议 ifesle 应该在 filter() 函数之外； dplyr 允许组合/排除逻辑参数，如 && 和 ||但在相同的上下文中。

希望我理解了这个问题，我自己在这里寻找一些意想不到的闪亮/dplyr 行为......

Answer 2

您应该提供了一个可重现的示例。据我了解，这个简单的例子可能会对你有所帮助。

library(dplyr)
x <- data.frame(a = sample(c("a","b"),10,replace=T),b = rnorm(10))
> x
   a          b
1  b -0.3862283
2  a  0.7916584
3  a -0.8751162
4  a -0.8164377
5  b -0.2174477
6  a -0.1998766
7  a  0.3356798
8  a  0.1569653
9  b  0.8326479
10 b -0.7936936

 x %>% filter(a == "a")

  a          b
1 a  0.7916584
2 a -0.8751162
3 a -0.8164377
4 a -0.1998766
5 a  0.3356798
6 a  0.1569653