Cách hoán đổi giá trị giữa 2 cột

Question

Tôi có một khung dữ liệu với 3 biến và 250K bản ghi. Như một ví dụ xem xét

> df <- data.frame(V1=c(1,2,4), V2=c("a","a","b"), V3=c(2,3,1)) 
V1 V2 V3 
1 a 2 
2 a 3 
4 b 1 

và muốn trao đổi giá trị giữa V1 và V3 dựa trên giá trị của V2 như sau: nếu V2 == 'b' sau đó V1 <- V3 và V3 <- V1 dẫn đến

V1 V2 V3 
1 a 2 
2 a 3 
1 b 4 

Tôi đã thử một việc phải làm nhưng phải mất mãi mãi. Nếu tôi sử dụng Perl, phải mất vài giây. Tôi tin rằng nhiệm vụ này có thể được thực hiện hiệu quả trong R là tốt. Mọi đề xuất đều được đánh giá cao.

Answer 1

Đã sửa đổi Tôi đã gặp phải các tên cột, xin lỗi. Những công việc này.

Nếu bạn không nhớ các hàng kết thúc trong đơn đặt hàng khác nhau, đây là loại một cách 'dễ thương' để làm điều này:

dat <- read.table(textConnection("V1 V2 V3 
1 a 2 
2 a 3 
4 b 1"),sep = "",header = TRUE) 

tmp <- dat[dat$V2 == 'b',3:1] 
colnames(tmp) <- colnames(dat) 
rbind(dat[dat$V2 != 'b',],tmp) 

Về cơ bản, đó là chỉ cần lấy các hàng nơi V2 == 'b', đảo ngược cột và tát nó lại cùng với mọi thứ khác. Điều này có thể được mở rộng nếu bạn có nhiều cột không cần chuyển đổi; bạn chỉ cần sử dụng một chỉ số nguyên với những giá trị được chuyển đổi, thay vì chỉ là 3:1.

Answer 2

Hãy thử điều này

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

Answer 3

Bạn có thể sử dụng transform để làm điều này.

df <- transform(df, V3 = ifelse(V2 == 'b', V1, V3), V1 = ifelse(V2 == 'b', V3, V1))