Question

我有两个矩阵

Mdates<-c("8Q1","8Q2","8Q3","8Q4","9Q1","9Q2","9Q3","9Q4","10Q1","10Q2","10Q3","10Q4","11Q1","11Q2","11Q3","11Q4","12Q1","12Q2","12Q3","12Q4","13Q1","13Q2","13Q3","14Q1","14Q2")
Cr<-matrix(c("14Q2","13Q2","14Q2","14Q1","13Q4","13Q4","12Q4","13Q3","13Q4","12Q3","14Q2",12867.8,12710.7,10746.9,9634.4,8238.5,7835.2,7315.6,7263.1,7002.7,6104.8,5759.3),ncol=2,byrow=FALSE)

我在Cr中添加了所有具有相同名称的东西，并将它放在Mdates中的相同列名下，所以理想情况下它看起来像这样：

8Q1 8Q2 8Q3 8Q4 9Q1 9Q2 9Q3 9Q4 10Q1 10Q2 10Q3 10Q4 11Q1 11Q2 11Q3 11Q4 12Q1 12Q2  12Q3    12Q4   13Q1  13Q2    13Q3   13Q4    14Q1   14Q2
 0   0   0   0   0   0   0   0   0    0    0    0    0    0    0    0    0    0   6104.8  7315.6  0    12710.7 7263.1 15241.3 9634.4 29373.9

Answer 1

我认为以下是这样的。首先，它选择在Mdates中找到的Cr中的元素：

A<-Cr[ ,1]
B<-which(A %in% Mdates)
Crnew<-Cr[B, ]

以下步骤提供每个类别的总和值：

fac <- as.factor(Crnew[ ,1])
num <- as.numeric(Crnew[ ,2])
x <-data.frame(fac, num)
tapply(x$num, x$fac, FUN=sum)

Answer 2

你可以尝试：

 res <- tapply(as.numeric(Cr[,2]), factor(Cr[,1], levels=unique(Mdates)), FUN=sum)
 res[is.na(res)] <- 0

  res
  # 8Q1   8Q2   8Q3   8Q4   9Q1   9Q2   9Q3   9Q4  10Q1  10Q2  10Q3  10Q4  11Q1 
  # 0     0     0     0     0     0     0     0     0     0     0     0     0 
  #11Q2  11Q3  11Q4  12Q1  12Q2  12Q3  12Q4  13Q1  13Q2  13Q3  14Q1  14Q2 
  #  0     0     0     0     0  6105  7316     0 12711  7263  9634 29374

在矩阵中添加具有相同名称的元素

2 个答案: