다른 벡터의 값을 기준으로 한 벡터를 정렬하려면 어떻게 해야 합니까?

다른 벡터의 값을 기준으로 한 벡터를 정렬하려면 어떻게 해야 합니까?

저는 벡터 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

이것은 어떻습니까?

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)])

(이안의 것이 아마도 여전히 더 나을 것입니다)

숫자든 문자든 "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

[편집: 분명히 이안의 접근법이 옳지만, 나는 이것을 후세에 남길 것입니다.]

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: 44 4 2 2 1 3 3

중요한 단계:

1. for(iin y) - 관심 요소를 루프합니다.

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

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

또한 사용할 수 있습니다.sqldf그리고 a로 그것을 합니다.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]]

언급URL : https://stackoverflow.com/questions/1568511/how-do-i-sort-one-vector-based-on-values-of-another