如何根据另一个向量的值对一个向量进行排序

时间:2009-10-14 19:41:17

标签: sorting r

我有一个向量x,我想根据向量y中的值的顺序排序。这两个向量的长度不同。

x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)

预期结果将是:

[1] 4 4 4 2 2 1 3 3 3

9 个答案:

答案 0 :(得分:153)

这个怎么样

x[order(match(x,y))]

答案 1 :(得分:69)

这是一个班轮......

y[sort(order(y)[x])]

[edit:]分解如下:

order(y)             #We want to sort by y, so order() gives us the sorting order
order(y)[x]          #looks up the sorting order for each x
sort(order(y)[x])    #sorts by that order
y[sort(order(y)[x])] #converts orders back to numbers from orders

答案 2 :(得分:4)

您可以将x转换为有序因子:

x.factor <- factor(x, levels = y, ordered=TRUE)
sort(x)
sort(x.factor)

显然,将数字改为因子可以从根本上改变下游代码对x的反应方式。但既然你没有给我们任何关于接下来会发生什么的背景,我想我会建议这个选项。

答案 3 :(得分:2)

怎么样?:

rep(y,table(x)[as.character(y)])

(伊恩可能还是更好)

答案 4 :(得分:1)

[编辑:显然伊恩有正确的方法,但我会把它留给子孙后代。]

你可以通过索引你的y向量而不用循环来做到这一点。将递增的数值添加到y并合并它们:

y <- data.frame(index=1:length(y), x=y)
x <- data.frame(x=x)
x <- merge(x,y)
x <- x[order(x$index),"x"]
x
[1] 4 4 4 2 2 1 3 3 3

答案 5 :(得分:1)

如果您需要订购&#34; y&#34;无论是数字还是字符:

x[order(ordered(x, levels = y))]
4 4 4 2 2 1 3 3 3

按步骤:

a <- ordered(x, levels = y) # Create ordered factor from "x" upon order in "y".
[1] 2 2 3 4 1 4 4 3 3
Levels: 4 < 2 < 1 < 3

b <- order(a) # Define "x" order that match to order in "y".
[1] 4 6 7 1 2 5 3 8 9

x[b] # Reorder "x" according to order in "y".
[1] 4 4 4 2 2 1 3 3 3

答案 6 :(得分:0)

x <- c(2, 2, 3, 4, 1, 4, 4, 3, 3)
y <- c(4, 2, 1, 3)
for(i in y) { z <- c(z, rep(i, sum(x==i))) }

结果z:4 4 4 2 2 1 3 3 3

重要步骤:

  1. for(i in y) - 循环感兴趣的元素。

  2. z&lt; - c(z,...) - 依次连接每个子表达式

  3. rep(i,sum(x == i)) - 重复i(当前感兴趣的元素)sum(x == i)次(我们在x中找到i的次数)。< / p>

答案 7 :(得分:0)

您还可以使用sqldf并通过join中的sql函数来完成此操作,如下所示:

library(sqldf)
x <- data.frame(x = c(2, 2, 3, 4, 1, 4, 4, 3, 3))
y <- data.frame(y = c(4, 2, 1, 3))

result <- sqldf("SELECT x.x FROM y JOIN x on y.y = x.x")
ordered_x <- result[[1]]

答案 8 :(得分:0)

这是最简单的方法 - 获得最多赞成票的答案使用了一个订单函数,这是不必要的:

<?xml version="1.0" encoding="utf-8"?>
<!-- Modify this file to customize your launch splash screen -->
<layer-list xmlns:android="http://schemas.android.com/apk/res/android">
    <item android:drawable="?android:colorBackground" />

    <item>
        <bitmap
            android:gravity="center"
            android:src="@mipmap/launch_image" />
    </item>
</layer-list>