다른 값을 기준으로 한 벡터를 정렬하는 방법

벡터 y의 값 순서를 기준으로 정렬하려는 벡터 x가 있습니다. 두 벡터의 길이가 동일하지 않습니다.

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

여기 하나의 라이너가 있습니다 ...

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

이것은 다음과 같이 분류됩니다.

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

이건 어때

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

x정렬 된 요소 로 변환 할 수 있습니다 .

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

분명히 숫자를 요인으로 변경하면 코드 다운 스트림이 x. 그러나 다음에 무슨 일이 일어날 지에 대한 맥락을 알려주지 않았기 때문에 나는 이것을 옵션으로 제안 할 것이라고 생각했습니다.

어때? :

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

(Ian의 것이 아마도 여전히 더 좋습니다)

숫자 나 문자에 관계없이 "y"로 주문해야하는 경우 :

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

[ 편집 : 분명히 Ian은 올바른 접근 방식을 가지고 있지만 후세를 위해이 부분을 남겨 둘 것입니다.]

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

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의 결과 : 4444 2 1 3 3 3

중요한 단계 :

1. for (i in y)-관심있는 요소를 반복합니다.

2. z <-c (z, ...)-각 하위 표현식을 차례로 연결합니다.

3. rep (i, sum (x == i))-i (현재 관심 요소) sum (x == i) 번 (x에서 i를 찾은 횟수)을 반복합니다.

또한 당신은 사용 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]]