使用data.table交換兩列之間的值

Question

我一直在翻譯this question到data.table解決方案。 （保持簡單我將使用相同的數據集）
當V2 == "b我想交換V1 <-> V3之間的列。

dt <- data.table(V1=c(1,2,4), V2=c("a","a","b"), V3=c(2,3,1)) 
#V1 V2 V3 
#1: 1 a 2 
#2: 2 a 3 
#3: 4 b 1 

下面的代碼將是data.frame工作解決方案，但是無奈這個量，因爲已經因爲我使用的是data.table沒有意識到現在我決心要找到data.table的解決方案給我。

dt <- data.table(V1=c(1,2,4), V2=c("a","a","b"), V3=c(2,3,1)) 
df <- as.data.frame(dt) 
df[df$V2 == "b", c("V1", "V3")] <- df[df$V2 == "b", c("V3", "V1")] 
# V1 V2 V3 
#1 1 a 2 
#2 2 a 3 
#3 1 b 4 

我試圖寫一個lapply功能，通過我的目標交換列表循環，試圖縮小問題只能更換一個值，試圖調用方式不同的列名，但都沒有成功。
這是我已經成功地得到最接近的嘗試：

> dt[dt$V2 == "b", c("V1", "V3")] <- dt[dt$V2 == "b", c(V3, V1)] 
#Warning messages: 
#1: In `[<-.data.table`(`*tmp*`, dt$V2 == "b", c("V1", "V3"), value = c(1, : 
# Supplied 2 items to be assigned to 1 items of column 'V1' (1 unused) 
#2: In `[<-.data.table`(`*tmp*`, dt$V2 == "b", c("V1", "V3"), value = c(1, : 
# Supplied 2 items to be assigned to 1 items of column 'V3' (1 unused) 

我們怎樣才能獲得data.table解決方案？

Answer 1

我們可以嘗試

dt[V2=="b", c("V3", "V1") := .(V1, V3)] 

Answer 2

僅供娛樂。 @akruns的解決方案顯然是優越的。我的理由是，我可以創建一個臨時副本，使有條件的交換，然後刪除該副本在序列中的所有使用[.data.table操作：

dt[, tv1 := V1][V2=="b", V1 := V3][V2=="b", V3 := tv1][ , tv1 := NULL] 

> dt 
    V1 V2 V3 
1: 1 a 2 
2: 2 a 3 
3: 1 b 4