Question

我有以下数据框：

v2 <- c(4.5, 2.5, 3.5, 5.5, 7.5, 6.5, 2.5, 1.5, 3.5)
v1 <- c(2.2, 3.2, 1.2, 4.2, 2.2, 3.2, 2.2, 1.2, 5.2)
lvl <- c("a","a","b","b","b","b","c","c","c")
d <- data.frame(v1,v2,lvl)
d

   v1  v2 lvl
1 2.2 4.5   a
2 3.2 2.5   a
3 1.2 3.5   b
4 4.2 5.5   b
5 2.2 7.5   b
6 3.2 6.5   b
7 2.2 2.5   c
8 1.2 1.5   c
9 5.2 3.5   c

我想要做的是根据lvl分组的大小对数据框进行排序。产生以下结果：

v1  v2   lvl
2.2 4.5   a
3.2 2.5   a
2.2 2.5   c
1.2 1.5   c
5.2 3.5   c
1.2 3.5   b
4.2 5.5   b
2.2 7.5   b
3.2 6.5   b

因为，a长度为2，c长度为3，b长度为4。

如何实现？

Answer 1

d$lvl <- factor(d$lvl, levels = names(sort(table(d$lvl))))
d[order(d$lvl),]
   v1  v2 lvl
1 2.2 4.5   a
2 3.2 2.5   a
7 2.2 2.5   c
8 1.2 1.5   c
9 5.2 3.5   c
3 1.2 3.5   b
4 4.2 5.5   b
5 2.2 7.5   b
6 3.2 6.5   b

Answer 2

使用ave：

d[order(ave(seq(d$lvl),d$lvl,FUN=length)),]

#   v1  v2 lvl
#1 2.2 4.5   a
#2 3.2 2.5   a
#7 2.2 2.5   c
#8 1.2 1.5   c
#9 5.2 3.5   c
#3 1.2 3.5   b
#4 4.2 5.5   b
#5 2.2 7.5   b
#6 3.2 6.5   b

这适用于ave根据每个d$lvl值分配整个d$lvl组的长度。 seq只生成一个占位符数字变量ave可以运行，并保证没有错误。

ave(seq(d$lvl),d$lvl,FUN=length)
#[1] 2 2 4 4 4 4 3 3 3
order(ave(seq(d$lvl),d$lvl,FUN=length))
#[1] 1 2 7 8 9 3 4 5 6
#    a a c c c b b b b

按R中的列组长度对数据帧进行排序

2 个答案: