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列。具体来说，我想要实现的结果如下：

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

R：如何根据条件移动列

1 个答案: