Question

我的数据集是：

S1   S2   S3    S4 
1    4    7     20
2    6    8     21
3    9    10    30

我根据条件转换数据按每个列值

之间的最大差值排序

条件之后的数据应该是这样的

S4    S2    S3    S1 
20    4     7     1
21    6     8     2
30    9     1     3

说明：最大值和最小值之间的差异

for S4 is 30 - 20 =10

for S2 is 9-4 = 5

for S3 is 10-7 = 3

for S1 is 3-1 =2

并根据max和min的差值对列进行排序。

Answer 1

这是基于R的想法，

df[order(sapply(df, function(i) max(i)-min(i)), decreasing = TRUE)]

给出，

  S4 S2 S3 S1
1 20  4  7  1
2 21  6  8  2
3 30  9 10  3

如果您想更改列名以反映您可以使用setNames的顺序，即

setNames(df[order(sapply(df, function(i) max(i)-min(i)), decreasing = TRUE)], 
         paste0('column', seq_along(df)))

给出，

   column1 column2 column3 column4
1      20       4       7       1
2      21       6       8       2
3      30       9      10       3

Answer 2

以下是使用tidyverse

的选项

library(tidyverse)
df1 %>% 
   summarise_all(funs(max(.)-min(.))) %>%
   unlist %>% 
   order(., decreasing = TRUE) %>% 
   select(df1, .)
#  S4 S2 S3 S1
#1 20  4  7  1
#2 21  6  8  2
#3 30  9 10  3

Answer 3

 df1[,order(sapply(df1,function(x)diff(range(x))),decreasing = T)]
   S4 S2 S3 S1
 1 20  4  7  1
 2 21  6  8  2
 3 30  9 10  3

如何根据给定条件排列列？

3 个答案: