R 合并两个性能表

我正在寻找以下问题的切实可行的解决方案： 我想组合使用函数

table生成的两个性能表。CalendarReturns

从包

PerformanceAnalytics

中返回

一个表包含投资组合的绩效数据，可以如下所示：

require(PerformanceAnalytics)

set.seed(1)
df <- data.frame(Jan = sample(-60:140, 6, replace = T)/10,
                  Feb = sample(-60:140, 6, replace = T)/10,
                  Mrz = sample(-60:140, 6, replace = T)/10,
                  Apr = sample(-60:140, 6, replace = T)/10,
                  Mai = sample(-60:140, 6, replace = T)/10,
                  Jun = sample(-60:140, 6, replace = T)/10,
                  Jul = sample(-60:140, 6, replace = T)/10,
                  Aug = sample(-60:140, 6, replace = T)/10,
                  Sep = sample(-60:140, 6, replace = T)/10,
                  Okt = sample(-60:140, 6, replace = T)/10,
                  Nov = sample(-60:140, 6, replace = T)/10,
                  Dez = sample(-60:140, 6, replace = T)/10)

df$Return <- rowSums(df)
rownames(df) <- c(2012,2013,2014,2015,2016,2017)

有什么想法吗

---

谢谢你的帮助

也许：

rbind（df，df_-bm）[顺序（rownames（rbind（df，df_-bm）），]

Hi@missue，它工作得很好。看起来很简单，但我没明白…谢谢。

set.seed(2)
df_bm <- data.frame(Jan = sample(-60:140, 6, replace = T)/10,
                 Feb = sample(-60:140, 6, replace = T)/10,
                 Mrz = sample(-60:140, 6, replace = T)/10,
                 Apr = sample(-60:140, 6, replace = T)/10,
                 Mai = sample(-60:140, 6, replace = T)/10,
                 Jun = sample(-60:140, 6, replace = T)/10,
                 Jul = sample(-60:140, 6, replace = T)/10,
                 Aug = sample(-60:140, 6, replace = T)/10,
                 Sep = sample(-60:140, 6, replace = T)/10,
                 Okt = sample(-60:140, 6, replace = T)/10,
                 Nov = sample(-60:140, 6, replace = T)/10,
                 Dez = sample(-60:140, 6, replace = T)/10)

df_bm$Return <- rowSums(df)
rownames(df_bm) <- c("2012 BM", "2013 BM", "2014 BM" ,"2015 BM" , "2016 BM" , "2017 BM")

            Jan  Feb  Mrz
2012       -0.7 12.9  7.8
2012 BM    -2.3 -3.5 -9.2
2013        1.4  7.2  1.7
2013 BM     8.1 10.7 -2.3