在管道传输 tibble 时定义条件

Question

有什么方法可以定义一个条件，以便我可以在管道 tibble 时多次使用它？

data <- tibble(age = c(25, 30, 18, 40), income = c(50000, 70000, 35000, 80000))

filter_condition <- (age >= 25 & income > 50000)

mod_data <- data %>%
mutate(
   group = ifelse(filter_condition, "High Earner", "Other"),
   discount = ifelse(filter_condition, 0.1, 0.05)           
)

或者根据相同的条件将值分配给不同的列？

Answer 1

你可以像这样定义条件然后它就会起作用。

filter_condition <- (data$age >= 25 & data$income > 50000)