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，並將其放入管道操作中。