x = outer(
colnames(M),
rownames(M),
paste,
sep = "-"
)
x[lower.tri(x)]
an = Row indexes of lower triangular part of a Matrix.
bn = Column indexes of lower triangular part of a Matrix.
※ 引述《andrew43 (讨厌有好心推文后删文者)》之铭言：
: ※ 引述《andrew43 (讨厌有好心推文后删文者)》之铭言：
: : 标题: [问题] 取矩阵的非对角线元素之组合名称
: : 时间: Fri May 2 18:14:28 2014
: : [问题类型]:
: : 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: : [软件熟悉度]:
: : 使用者(已经有用R 做过不少作品)
: : [问题叙述]:
: : 对于具有 colnames 和 rownames 的一个 matrix，
: : 该如何取得所有非对角线元素的 colnames 和 rownames 的组合的字串向量？
: : [程式范例]:
: : M <- matrix(1:25, 5)
: : colnames(M) <- c("a","b","c","d","e")
: : rownames(M) <- c("a","b","c","d","e")
: : 可得到 M
: : # a b c d e
: : #a 1 6 11 16 21
: : #b 2 7 12 17 22
: : #c 3 8 13 18 23
: : #d 4 9 14 19 24
: : #e 5 10 15 20 25
: : 接下来，我想取得一个字串向量 mynames 使其结果为
: : c("b-a" , "c-a", "d-a", "e-a", "c-b", ... , "e-c", "e-d")
: : 也就是矩阵 M 的左下侧非对角线元素的列名与栏名组合。
: : 请教有没有什么方式可以快速达成？
: : 用 loop 是可以达成，但我想应该有更干净的办法。
: :