[R排序/顺序堆积变量

Question

很相似：How to sort dataframe in R with specified column order preservation?

我的数据的一个例子：

> dat 
    type attr y1 
1 x1   A 0.25 
2 x1   B 0.19 
3 x1   C 0.06 
4 x1   D 0.13 
5 x2   A 0.25 
6 x2   B 0.00 
7 x2   C 0.19 
8 x2   D 0.00 

我创建了几个不同的情节和希望做到以下几点：

• 按y1排序，但仅根据x1的y1值
• 按照attr在执行完上一步之后的任何顺序排列本身的x2顺序

换句话说，在这个例子中，我想要的结果：

> datsorted 
    type attr y1 
1 x1   C 0.06 
2 x1   D 0.13 
3 x1   B 0.19 
4 x1   A 0.25 
5 x2   C 0.19 
6 x2   D 0.00 
7 x2   B 0.00 
8 x2   A 0.25 

我现在知道这样做是疯狂繁琐的唯一途径。我根据type（一个用于x1，一个用于x2）的值创建了两个子集数据框。然后，我创建了一个新的数据帧是这样的：

> beside 
    t1 t2 attr x1y1 x2y1 
1 x1 x2 A  0.25 0.25 
2 x1 x2 B  0.19 0.00 
3 x1 x2 C  0.06 0.19 
4 x1 x2 D  0.13 0.00 

这样我可以通过X1Y1排序，并把一切都在一起......但后来我不得不重新拆分了它在长期的形式情节。一定有更好的方法。对不起，如果我错过了另一个答案;我比较新的R，我甚至不知道要搜索什么！

---

每下面的建议，这里的原始数据：

> dput(dat) 
structure(list(type = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L), .Label = c("x1", "x2"), class = "factor"), attr = structure(c(1L, 
2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c("A", "B", "C", "D"), class = "factor"), 
    y1 = c(0.25, 0.19, 0.06, 0.13, 0.25, 0, 0.19, 0)), .Names = c("type", 
"attr", "y1"), row.names = c(NA, -8L), class = "data.frame") 

Answer 1

如果我没有理解好你想要做什么，你可以使用：

ord <- order(dat[dat$type=="x1",]$y1) 
dat.sorted <- rbind(dat[ord,], dat[ord + 4,]) 

从本质上讲这是什么做是：

1. selecti纳克的数据，其中类型= X1

   dat[dat$type=="x1",]

2. 获得在这些Y1的顺序，并把它在ord

   order(dat[dat$type=="x1",]$y1)

3. 顺序的（局部的）数据

   dat[ord,]

4. 订货数据的其余部分作为第一部分
   注意：这只能如果前4个元素是x1和2号4×2

   dat[ord+4,]

5. 与有序数据

   合并它

   dat.sorted <- rbind(dat[ord,], dat[ord+4,])

Answer 2

以下是在三个步骤中的溶液：

1. xtabs将您data.frame成2D阵列（表）：attr -by- type
2. 排序沿attr维阵列
3. 返回到使用as.data.frame.table

一个data.frame

---

a <- xtabs(y1 ~ attr + type, dat) 
a 
#  type 
# attr x1 x2 
# A 0.25 0.25 
# B 0.19 0.00 
# C 0.06 0.19 
# D 0.13 0.00 

b <- a[order(a[, "x1"]), ] 
b 
#  type 
# attr x1 x2 
# C 0.06 0.19 
# D 0.13 0.00 
# B 0.19 0.00 
# A 0.25 0.25 

as.data.frame.table(b, responseName = "y") 
# attr type y 
# 1 C x1 0.06 
# 2 D x1 0.13 
# 3 B x1 0.19 
# 4 A x1 0.25 
# 5 C x2 0.19 
# 6 D x2 0.00 
# 7 B x2 0.00 
# 8 A x2 0.25 

Answer 3

从子集type是x1：

dat.x1 <- subset(dat, type == "x1") 

找到相应增加的y1值的属性：

ord.attr <- dat.x1$attr[order(dat.x1$y1)] 
ord.attr 
# [1] C D B A 
# Levels: A B C D 

然后用ply'r arrange功能整理你的data.frame：

require(plyr) 
arrange(dat, type, match(attr, ord.attr)) 
# type attr y1 
# 1 x1 C 0.06 
# 2 x1 D 0.13 
# 3 x1 B 0.19 
# 4 x1 A 0.25 
# 5 x2 C 0.19 
# 6 x2 D 0.00 
# 7 x2 B 0.00 
# 8 x2 A 0.25