小编Skl*_*cka的帖子

我有这样的dplyr代码

data <- load_data(country = "us") %>%
    filter(number > 1) 

我想像这样从此调用创建函数

test <- function(country_code = "us") {
   data <- load_data(country = country_code) %>%
        filter(number > 1)
}

但我想为该数字过滤器添加偶数参数。通常，我的操作方式与country_code相同。但我希望能够呼叫偶数= 0或数字小于1，依此类推。

因此，问题是如何处理函数调用中的刨丝器（少/等）符号？

应该是类似test <- function(country_code = "us", number > 0)或

test <- function(country_code = "us", number <= -10)

我在R中有一个数据框。我的目标是创建一个带if_else语句的新列。如果一行中的值等于string "company"，则此新列的值将是data列中的值。否则，我想分配给if NA值。

我不知道如何实现，下面的代码不起作用。由于数据类型不同。

library(dplyr)
  active_labels <- data %>%
      mutate(start_date = if_else(type == "company", date, NA) 


Error in mutate_impl(.data, dots) : 
  Evaluation error: `false` must be type double, not logica

我在下面有一个数据框，实际上它实际上有更多列，我只想选择最后两列。

   df <- read.table(text="
                 date1       date2              date3
    1            NA          2016-12-01    2016-12-01
    2            2017-01-01  2018-10-01    2016-12-01 
    3            2016-12-01  NA            2016-12-01
    4            NA          NA            2016-12-01
", header=TRUE)

不指定列名怎么办？

df %>%
  select(date2, date3)