dplyr相当于DF [DF == X] < - Ÿ

Question

我不知道是否有一个dplyr相当于

df <- data.frame(A=1:5,B=2:6,C=-1:3) 
df[df==2] <- 10 

我在寻找

df %>% <??> 

也就是说，声明即与其他dplyr动词链接

Answer 1

1）替换试试这个。它只需要magrittr虽然dplyr进口magrittr相关的部分，因此将与dplyr工作太：

df %>% replace(. == 2, 10) 

，并提供：

A B C 
1 1 10 -1 
2 10 3 0 
3 3 4 1 
4 4 5 10 
5 5 6 3 

1A）覆盖注意的是，以上的非破坏性如此如果您想更新df，那么你将需要将其分配回：

df <- df %>% replace(. == 2, 10) 

或

df %>% replace(. == 2, 10) -> df 

或使用magrittr %<>%运营商消除引用df两次：

df %<>% replace(. == 2, 10) 

2）算术这也将工作：

df %>% { 10 * (. == 2) + . * (. != 2) } 

Answer 2

的OP的问题是关于如何使用dplyr代替值，并且由G.Gotothendieck解决。但我很好奇，基于dplyr，data.table和base R的不同方法之间的性能差异如何。于是我设计并执行了以下基准测试。

# Load package 
library(dplyr) 
library(data.table) 
library(microbenchmark) 

# Create example data frame 
df <- data.frame(A = 1:5, B = 2:6, C = -1:3) 
# Convert to data.table 
dt <- as.data.table(df) 

# Method 1: Use mutate_all and ifelse 
F1 = function(df){df %>% mutate_all(funs(ifelse(. == 2, 10, .)))} 
# Method 2: Use mutate_all and replace 
F2 = function(df){df %>% mutate_all(funs(replace(., . == 2, 10)))} 
# Method 3: Use replace 
F3 = function(df){df %>% replace(. == 2, 10)} 
# Method 4: Base R data frame assignment 
F4 = function(df){ 
    df[df == 2] <- 10 
    return(df) 
} 

# Benchmarking 
microbenchmark(
    M1 = F1(df), 
    M2 = F2(df), 
    M3 = F3(df), 
    M4 = F4(df), 
    # Same as M4, but use data.table object as input 
    M5 = F4(dt) 
) 

Unit: microseconds 
expr  min   lq  mean  median   uq  max neval 
    M1 8634.974 13028.7975 17224.4669 14907.3735 19496.5275 79750.182 100 
    M2 8925.565 12626.2675 16698.7412 15551.7410 18658.1125 35468.760 100 
    M3 282.252 391.6240 591.2534 553.5980 647.8965 3290.797 100 
    M4 163.578 252.1025 423.7627 349.6080 420.8125 5415.382 100 
    M5 228.367 333.2495 596.1735 440.3775 555.5230 7506.609 100 

结果表明，与mutata_allifelse（M1）或replace（M2）比其他方法慢得多。使用replace与管道（M3）速度较快，但仍比基准R（M4）慢一点。将data.frame转换为data.table，然后应用分配替换（M5）不会比M4更快。

所以，我认为在这种情况下，没有特别的需要使用dplyr函数，因为它不比基准R方法（M4）更快。也不需要将data.frame转换为data.table如果需要管道操作。我们可以使用管道replace（M3）。或者，我们可以定义一个函数，如F4，并将其放入管道操作中。