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