Question

我的问题很简单。我想命名一个时间序列（两个时间序列）数据的行，以便每个rowname重复两次，但是将“-1”和“-2”分开，使它看起来像这样：

1-1  7.116864
1-2  6.898450
2-1  7.224002
2-2  6.993221
3-1  7.266787
3-2  7.483816
4-1  8.055825
4-2  7.993788
5-1 8.895424
5-2 9.097769
7-1  7.116864
7-2  6.898450
10-1  7.224002
10-2  6.993221

我知道我可以使用do.NULL轻松命名行，就像这个dimnames(matrixm) <- list(rownames(matrixm, do.NULL = FALSE, prefix = "row"))一样，矩阵矩阵但是这里我的第一个问题是

如何从t 1-1,1-2到t 5-1和5-2的两个时间序列按顺序如上所示？

其次，我还可以选择其他任意行并将它们命名为第7和第10时间序列吗？

Answer 1

由于您没有提供可重复的示例，因此不清楚您想要做什么。我认为您可以使用paste创建您的rownames，然后使用rbind和order合并它们。例如：

set.seed(1)
t1 <- as.matrix(rnorm(5))
t2 <- as.matrix(rnorm(5))
rownames(t1) <- paste(1:5,1,sep='-')
rownames(t2) <- paste(1:5,2,sep='-')

然后使用rbind合并矩阵并对它们进行排序：

tt <- rbind(t1,t2)
tt[order(rownames(tt)),,drop=FALSE]

          [,1]
1-1 -0.6264538
1-2 -0.8204684
2-1  0.1836433
2-2  0.4874291
3-1 -0.8356286
3-2  0.7383247
4-1  1.5952808
4-2  0.5757814
5-1  0.3295078
5-2 -0.3053884

Answer 2

这是我的实施：

# length of your time series vector
n <- 20
# simulate the values of the series vector
x <- matrix(rnorm(n,5,0.5),nr=n,nc=1)
# assign the rownames to the matrix
rownames(x) <- c(t(cbind(paste(1:(n/2),"1",sep="-"),
                         paste(1:(n/2),"2",sep="-"))))

# > x
#          [,1]
# 1-1  5.582177
# 1-2  5.320359
# 2-1  4.958729
# 2-2  4.630183
# 3-1  5.357314
# 3-2  4.287579
# 4-1  4.664101
# 4-2  5.299628
# 5-1  5.480967
# 5-2  5.368158
# 6-1  4.697664
# 6-2  5.191149
# 7-1  4.418201
# 7-2  4.399364
# 8-1  4.845039
# 8-2  4.785453
# 9-1  5.933396
# 9-2  4.035960
# 10-1 4.539947
# 10-2 4.162826

Answer 3

只需使用rep和paste命令的组合，如下所示：

# simulate your data
m <- matrix(runif(20,6,10))
# give names to rows
rownames(m) <- paste(rep(1:(nrow(m)/2), each=2), rep(1:2, nrow(m)/2), sep="-")

以时间序列命名行

3 个答案: