R：如何根據條件移動列

Question

我有一個如下的數據集，對於每一行，我想根據條件移動一些列。

flv1 attr1_1 attr2_1 flv2 atrr2_1 atrr2_2 flv3 atrr3_1 atrr3_2 
    1 3  4  3 4  2  2 2  5 
    2 3  4  3 4  2  1 5  5 
    1 3  4  3 4  2  2 4  5 

並且我想要達到的結果是當flvi下的數字不是i時。我會將相應的值沿後續兩列中的值移動到第i列。具體來說，結果我想實現的是類似如下：

flv1 attr1_1 attr2_1 flv2 atrr2_1 atrr2_2 flv3 atrr3_1 atrr3_2 
    1 3  4  2 2  5   3 4  2 
    1 5  5  2 3  4   3 4  2  
    1 3  4  2 4  5   3 4  2  

Answer 1

下面是這還不是特別乾淨，但是，好了，也不是你的數據的形式的選擇。如果原始data.frame被稱爲df：

library(dplyr) 

     # clean out asterisks 
df %>% mutate_all(tidyr::extract_numeric) %>% 
    # apply a function to split each row into three groups, order by the flvis, and recombine 
    apply(1, function(x){split(x, rep(1:3, each = 3))[order(x[c(1,4,7)])] %>% unlist()}) %>% 
    # clean up matrix back to original data.frame form 
    t() %>% as.data.frame() %>% setNames(names(df)) 

## flv1 attr1_1 attr2_1 flv2 atrr2_1 atrr2_2 flv3 atrr3_1 atrr3_2 
## 1 1  3  4 2  2  5 3  4  2 
## 2 1  5  5 2  3  4 3  4  2 
## 3 1  3  4 2  4  5 3  4  2