我有以下形式結合塔數
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
1 1 3 2 3 1 1 2 3 3 2
一個矩陣和以下是我的期望輸出(組合列號,具有相同的值)。
a<-1,2,6,7
b<-3,5,9,10
c<-4,8,11
我有以下形式結合塔數
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
1 1 3 2 3 1 1 2 3 3 2
一個矩陣和以下是我的期望輸出(組合列號,具有相同的值)。
a<-1,2,6,7
b<-3,5,9,10
c<-4,8,11
m1 <- matrix(c(1, 1, 3, 2, 3, 1, 1, 2, 3, 3, 2), nrow = 1)
split(seq_len(ncol(m1)), m1[1, ])
爲您提供了所需的元素列表。我假設你真的不希望創建載體a
,b
和c
split(seq_len(ncol(m1)), m1[1, ])
$`1`
[1] 1 2 6 7
$`2`
[1] 4 8 11
$`3`
[1] 3 5 9 10
你的問題是有點不正常,我懷疑你缺少一些細節。爲了得到你想要的東西有點笨重。首先生成一些數據:
##Some data
R> m = matrix(sample(1:3, 10, replace=T), ncol=10)
R> m
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 1 2 2 3 1 3 3 2 2 1
然後挑選出獨特的價值觀:
R> v = unique(m[1,])
現在需要建立你的載體:
R> (a = which(v[1]==m[1,]))
[1] 1 5 10
R> (b = which(v[2]==m[1,]))
[1] 2 3 8 9
R> (c = which(v[3]==m[1,]))
[1] 4 6 7
然而這是不可擴展(或優雅)。如果您有一對夫婦值的更多,你將要遍歷v
,所以像:
(l = sapply(v, function(i) which(m[1, ] == i)))
變量l
是一個列表。要訪問各個元素,使用
l[[1]]
l[[2]]
l[[3]]
下面給您應該是足夠的列表:
aList <- setNames(split(seq_along(mat), mat), unique(letters[mat]))
aList
# $a
# [1] 1 2 6 7
#
# $c
# [1] 4 8 11
#
# $b
# [1] 3 5 9 10
但如果你真的需要在您的環境變量,然後你可以這樣做:
attach(aList)
(+1)稍微更優雅的解決方案 – adibender 2013-03-06 12:12:41
您可以使用by
按重複元素進行分組並返回其rownames。
tab <- read.table(text ='[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
1 1 3 2 3 1 1 2 3 3 2',head=T)
x <- t(tab)
by(x,x,FUN=rownames)
INDICES: 1
[1] "X..1." "X..2." "X..6." "X..7."
----------------------------------------------------------------------------------------------------------
INDICES: 2
[1] "X..4." "X..8." "X..11."
----------------------------------------------------------------------------------------------------------
INDICES: 3
[1] "X..3." "X..5." "X..9." "X..10."
編輯漂亮輸出
rownames(x) <- 1:nrow(x)
> by(x,x,FUN=rownames)
INDICES: 1
[1] "1" "2" "6" "7"
----------------------------------------------------------------------------------------------------------
INDICES: 2
[1] "4" "8" "11"
----------------------------------------------------------------------------------------------------------
INDICES: 3
[1] "3" "5" "9" "10"
每當你的名字對象'了''B','C'或'obj1','obj2'等你已經從根本上創造一個假名單這比真實的工作難得多。 – Backlin 2013-03-06 13:31:53