指定具有已定义结构的列名称

Question

假设我有一个（使用定义的协方差）矩阵并且我想像这样定义列名：

y <- matrix(rnorm(15*10),ncol=15)

colnames(y) <- c("Var1", "Cov12", "Cov13","Cov14", "Cov15",
"Var2", "Cov23", "Cov24", "Cov25", 
"Var3", "Cov34" , "Cov35"      
"Var4", "Cov45", 
"Var5")

其中每行包含日期 t 的方差或协方差。我想找到一种更通用的方法来分配列名，因为我不会总是有 5 个不同的差异。我用 rep 和 seq 尝试了一些方法，但没有找到解决方案。

Answer 1

也许不是最佳方式，但我们可以做到

n <- 5
paste0("Var", rep(1:n, n:1), unlist(sapply(2:n, function(x) c("",seq(x, n)))))

[1] "Var1"  "Var12" "Var13" "Var14" "Var15" "Var2"  "Var23" "Var24" "Var25" "Var3"   
    "Var34" "Var35" "Var4"  "Var45" "Var5"

将其分解以便更好地理解

rep(1:n, n:1)
#[1] 1 1 1 1 1 2 2 2 2 3 3 3 4 4 5

unlist(sapply(2:n, function(x) c("",seq(x, n))))
#[1] ""  "2" "3" "4" "5" ""  "3" "4" "5" ""  "4" "5" ""  "5"

我们将这些输出和 paste 它们与 "Var" 并行以获得所需的列名称。

指定具有已定义结构的列名称

Specifying column names with a defined structure

r

seq

rep