这里有一个选择

b[lower.tri(b, diag=FALSE)] <- a
b <- t(b)
b
#      [,1] [,2] [,3] [,4]
# [1,]    0    1    2    3
# [2,]    0    0    4    5
# [3,]    0    0    0    6
# [4,]    0    0    0    0

或者，根据需要重新排序a，并将其分配到右上角三角形中：

ut <- upper.tri(b, diag=FALSE)
b[ut] <- a[order(row(ut)[ut], col(ut)[ut])]
b
     [,1] [,2] [,3] [,4]
[1,]    0    1    2    3
[2,]    0    0    4    5
[3,]    0    0    0    6
[4,]    0    0    0    0

请注意，要填充一个非对称矩阵，您可以首先通过上面所示的代码填充上面的三角形，然后用一个不同的向量（不需要转置）填充下面的三角形。

c <- c(7,8,9,10,11,12)
  b[lower.tri(b, diag=FALSE)] <- c

尝试在不使用lower.tri（）的情况下实现这个：

matFill <- function(vec,mat_size=4,side='right'){
  if(side=='right'){ ridx=1;cidx=2
  } else if(side=='left'){ ridx=2;cidx=1 }
  
  b <-mat_size #ceiling(length(vec)/2)+1 #matrix size
  idx <- t(combn(1:4, 2))
  #or by hand:
  idx <- matrix(NA,factorial(b)/(factorial(b-2)*factorial(2)),2)
  o <- 0
  for(i in 1:(b-1)){ #i<-2
    idx[(o+1):(o+b-i),1] <- i
    idx[(o+1):(o+b-i),2] <- (i+1):b
    o <- o+b-i
  }
  #fill matrix
  mat <- matrix(0,b,b)
  for(x in 1:length(vec)){
    mat[idx[x,ridx],idx[x,cidx]] <- vec[x]
  }
  return(mat)
}

matFill(1:6)
matFill(1:10,5,'left')
matFill(1:14,6)

我不知道如何使用提供的向量来确定矩阵的大小。