如何根据给定条件排列列？
如何根据给定条件排列列？
提问于 2017-09-06 21:45:48
我的数据集是：
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并且根据最大和最小的差值对列进行排序。
回答 3
Stack Overflow用户
发布于 2017-09-06 21:49:28
这是一个通过基数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
Stack Overflow用户
发布于 2017-09-06 22:07:59
下面是一个使用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 3Stack Overflow用户
发布于 2017-09-06 22:46:13
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/46076947
复制相关文章
相似问题
腾讯云开发者
