Найти индекс конкретного столбца в R

Question

Рассмотрим следующую матрицу:

mat = rbind(c(".","2","3","4","5","6"), 
      c(".","2","3","7","8","1"), 
      c(".","2","3","7","9","2")) 

Я хотел бы найти индекс первого столбца из которых все элементы различны. В этом случае результат должен быть . Как вы можете видеть, столбец пятый - это первые столбцы, для которых все элементы разные.

В действительности матрица имеет очень большие размеры.

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

Спасибо!

Answer 1

Я хотел бы сделать что-то вроде:

which(apply(mat, 2, function(x) all(!duplicated(x))))[1] 
[1] 5 

Answer 2

Вот альтернатива

> which(apply(mat, 2, function(x) all(!duplicated(x)))==TRUE)[1] 
[1] 5 

Answer 3

инструменты вы ищете являются применить() и уникальный(). Мои проверки решение, которое матрица правильной длины:

apply(mat, 2, function(x) length(unique(x))==length(x)) 

Если вы хотели бы использовать это, чтобы получить только первый полный столбец,

answers<-mat[,apply(mat, 2, function(x) length(unique(x))==length(x))] 
answers[,1] 

Answer 4

Все другие решения лучше, чем у меня, но я думал, что все равно отправлю свой уродливый ответ.

min(which(lapply(sapply(apply(mat,2,rle),'[[',1),function(x)all(x==1))==T)) 

Answer 5

Вместо all(!duplicated(x)) вы можете также использовать anyDuplicated, например:

which(apply(mat, 2, anyDuplicated) == 0)[1] 
[1] 5 

Согласно ?anyDuplicated должно быть более эффективным:

'(.) AnyDuplicated' является «обобщенной "Более эффективный ярлык для 'any (дублированный (.))'

Answer 6

Вы можете избежать превращения всех столбцов в логические, а затем сначала выбрать TRUE. Вы можете использовать простую for петлю и break завернутое в функции, как это:

findfirst <- function(mat) 
{ 
for(i in seq_len(ncol(mat))) { 
    if(!anyDuplicated(mat[,i])) break 
} 
return(i) 
} 
findfirst(mat) 
#[1] 5