这是用 diag() upper.tri() lower.tri() 的应用。 重点是看出 y 的右上部分和左下部分和 x.mat 的有相似性。 你可以观察一下最後三列 code 的结果是什麽就可以了解了。 你可以再改写成一个 function， 其中只有 x 和 k 是 input，而 y 最终是 output。 k <- 100 x <- c(3,6,5,8,7) x.mat <- matrix(rep(x, yrl - 1), yrl-1, byrow=T) yrl <- length(x)+1 y <- diag(k, yrl, yrl) y[upper.tri(y)] <- x.mat[upper.tri(x.mat) | diag(yrl-1)] y[lower.tri(y)] <- x.mat[lower.tri(x.mat) | diag(yrl-1)] ※ 引述《yaohwei (笨笨的)》之铭言： : 各位高手你们好，小弟有个问题请教大家，在此先感谢各位帮助 : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 我有n个数(先假设n=5)，例如:3,6,5,8,7 : 另外有个数字，例如:2 : 小弟想列出2插入所有缝隙的所有可能矩阵 : 即 : 2,3,6,5,8,7 : 3,2,6,5,8,7 : 2,6,2,5,8,7 : 3,6,5,2,8,7 : 3,6,5,8,2,7 : 3,6,5,8,7,2 : 请问各位高手该如何写，小弟再次感谢各位 -- http://apansharing.blogspot.com/ --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 122.117.37.172 ※ 文章网址: http://webptt.com/cn.aspx?n=bbs/R_Language/M.1418277663.A.C08.html ※ 编辑: andrew43 (122.117.37.172), 12/11/2014 14:03:10 ※ 编辑: andrew43 (122.117.37.172), 12/11/2014 14:08:04