2013-05-14 8 views
5

Jeśli mam data.frame (sum_clus) z 600 kolumnami (zmiennymi) i 10 wierszy, które nie mają żadnych NA i są wartościami numerycznymi, w jaki sposób mogę utworzyć 5 nowych zmiennych, które dadzą mi nazwy kolumn z 5 najważniejszych zmiennych ten rząd?Jak uzyskać nazwę kolumny zmiennej z 10 najwyższymi wartościami?

Na przykład.

max <- apply(sum_clus ,1, max)  
for(ii in 1:10) sum_clus$max[ii] <- colnames(sum_clus)[which(sum_clus[ii , ] 
== sum_clus[ii, sum_clus[ii,] == max[ii]])] 

Ten powyższy kod pomógł mi stworzyć zmienną sum_clus $ max co daje mi nazwę kolumny max zmiennej w każdym rzędzie. Podobnie, w jaki sposób mogę uzyskać 5 takich zmiennych, które podają mi nazwy kolumn pięciu najważniejszych zmiennych? sum_clus $ max, sum_clus $ second_but_max, i tak dalej ..

Z góry dziękuję!

+1

mógłbyś dostarczyć próbkę? Może 'sum_clus [1: 10,1: 10]' lub coś takiego ...? – Frank

Odpowiedz

3

Oto podobne rozwiązanie, używając (i) pętli zamiast apply; i (ii) rank zamiast order.

set.seed(1) 
n_i = 10 
n_ii = 600 
n_top = 5 
df <- data.frame(matrix(runif(n_ii*n_i), ncol = n_ii)) 

out <- matrix("",n_top,n_i) 
for (i in 1:n_i){ 
    colranks <- rank(df[i,]) 
    out[,i] <- names(sort(colranks)[n_ii:(n_ii-(n_top-1))]) 
} 
#  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] 
# [1,] "X369" "X321" "X348" "X415" "X169" "X258" "X55" "X182" "X99" "X78" 
# [2,] "X42" "X295" "X563" "X173" "X377" "X31" "X246" "X353" "X259" "X384" 
# [3,] "X98" "X440" "X371" "X207" "X429" "X292" "X433" "X437" "X123" "X558" 
# [4,] "X13" "X193" "X396" "X78" "X543" "X228" "X211" "X2" "X583" "X508" 
# [5,] "X35" "X364" "X249" "X33" "X388" "X405" "X458" "X252" "X569" "X456" 

Analog jedna wkładka z apply jest

apply(df,1,function(x)names(sort(rank(x))))[600:596,] 
+0

gdzie jest twoja pętla? –

+0

@RicardoSaporta Nadpisałem moje rozwiązanie teraz pełną odpowiedzią. – Frank

+2

Podobało mi się lepiej bez pętli;) –

5

Jedną z opcji jest użycie order() a następnie użyć jej do podzbioru nazwy kolumn, np:

set.seed(1) 
df <- data.frame(matrix(runif(600*10), ncol = 600)) 

foo <- function(x, names) { 
    ord <- order(x, decreasing = TRUE)[1:5] 
    names[ord] 
} 

nams <- colnames(df) 
apply(df, 1, foo, names = nams) 

Produkcja

> apply(df, 1, foo, names = nams) 
    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] 
[1,] "X369" "X321" "X348" "X415" "X169" "X258" "X55" "X182" "X99" "X78" 
[2,] "X42" "X295" "X563" "X173" "X377" "X31" "X246" "X353" "X259" "X384" 
[3,] "X98" "X440" "X371" "X207" "X429" "X292" "X433" "X437" "X123" "X558" 
[4,] "X13" "X193" "X396" "X78" "X543" "X228" "X211" "X2" "X583" "X508" 
[5,] "X35" "X364" "X249" "X33" "X388" "X405" "X458" "X252" "X569" "X456" 

Sprawdź to działa:

> names(sort(unlist(df[1,, drop = TRUE]), decreasing = TRUE)[1:5]) 
[1] "X369" "X42" "X98" "X13" "X35" 
> names(sort(unlist(df[2,, drop = TRUE]), decreasing = TRUE)[1:5]) 
[1] "X321" "X295" "X440" "X193" "X364" 

wydaje się OK .

Powiązane problemy