Умный способ переупорядочить запись этой структурированной матрицы в R?

Question

Рассмотрим следующий фрагмент кода:

>k<-5 
>T<-t(combn(k+1,k)) 
>T 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 5 6 
[4,] 1 2 4 5 6 
[5,] 1 3 4 5 6 
[6,] 2 3 4 5 6 

за исключением первой строки, каждая строка T[i,] из T имеет k элементы, k-1 из , которые являются общими с T[i-1,].

Я хочу, чтобы изменить порядок записи в данной линии T[i,], i>1 такой, что «новый» вход в каждой строке помещается в последней колонке.

т.е. я хочу повторно заказать столик выглядеть следующим образом:

 [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 6 5 
[4,] 1 2 6 5 4 
[5,] 1 6 4 5 3 
[6,] 6 3 4 5 2 

Как бы вы об этом?

Answer 1

НИКОГДА НЕ ЗНАЮ переменную T. Да, это действительное имя. Да, весь код должен использовать TRUE для логического значения, но есть достаточно фрагментов кода, где они фактически используют T для TRUE. Ты сломаешь их.

Вы можете использовать следующую функцию:

new.order <- function(x){ 
    comp <- function(a,b){ 
     id <- which(match(a,b,0L)==0) 
     if(id!=nc){ 
      b[nc] <- b[id] 
      b[id] <- a[nc] 
     } 
     b 
    } 
    nr <- nrow(x) 
    nc <- ncol(x) 
    xlist <- lapply(seq_len(nr),function(i) x[i,]) 
    out <- mapply(comp,xlist[-nr],xlist[-1],SIMPLIFY=FALSE) 
    do.call(rbind,c(xlist[1],out)) 
} 

Внутренняя функция комп, если необходимо будет заменить измененный элемент. Основная функция использует lapply, чтобы сделать вашу матрицу списком, а затем mapply, чтобы выполнить сопоставление по всем строкам. Последнее (но не менее важное), вы соединяете все вместе.

Это дает

> k<-5 

> myT<-t(combn(k+1,k)) 

> myT 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 5 6 
[4,] 1 2 4 5 6 
[5,] 1 3 4 5 6 
[6,] 2 3 4 5 6 

> new.order(myT) 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 6 5 
[4,] 1 2 6 5 4 
[5,] 1 6 4 5 3 
[6,] 6 3 4 5 2 

который, кажется, желаемого результата.

Answer 2

мая эта помощь:

for(i in 1:ncol(T)) T[i+1, (nrow(T)-i):ncol(T)] = nrow(T):(nrow(T)-i+1)

T= 
     [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 6 5 
[4,] 1 2 6 5 4 
[5,] 1 6 5 4 3 
[6,] 6 5 4 3 2 

Однако, я не понимаю логику второго выхода Т. Почему пятой линии

T[5, ] = 1 6 4 5 3

и не

T[5, ] = 1 6 5 4 3

Почему 5 и 4 инвертируют свои или дер?

Answer 3

В принципе найти индекс столбца, который идентифицирует «новый» элемент при сравнении со строкой выше, и поменять его с 5.

for (row.idx in 2:6){ T[row.idx, c(which(!T[row.idx,] %in% T[row.idx-1,]), 5)] <- 
          T[row.idx, c(5, which(!T[row.idx,] %in% T[row.idx-1,]))] } 
T 
rm(T) # not a good idea to have that lying around your workspace 
     # ... even if you don't use T for TRUE 
# 
#  [,1] [,2] [,3] [,4] [,5] 
[1,] 1 2 3 4 5 
[2,] 1 2 3 4 6 
[3,] 1 2 3 6 5 
[4,] 1 2 6 5 4 
[5,] 1 6 4 5 3 
[6,] 6 3 4 5 2 

Answer 4

Использование правила ПОЦЕЛУЙ: Для этого примера, у меня просто использовали r1, r2, r3 вместо T [i,], «старый» T [i + 1,], «новый» T [i + 1,].

Rgames: r1<-c(1,2,6,4,3) 

Rgames: r2<-c(1,2,5,4,3) 

Rgames: r3<-c(intersect(r1,r2),setdiff(r2,r1)) 
Rgames: r3 
[1] 1 2 4 3 5