1

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

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但没有找到解决方案。

4

1 回答 1

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”并行获取所需的列名。

于 2018-07-19T13:59:12.553 回答