小编use*_*086的帖子

我有以下矩阵

FI1  FI2 YI1 YI2 BAL1 BAL2 GRO1 GRO2  EQ1  EQ2
1 0.22 0.15 0.1 0.1 0.05 0.05 0.05 0.05 0.05 0.05
2 0.22 0.00 0.0 0.0 0.00 0.00 0.00 0.00 0.00 0.00
3 0.22 0.00 0.0 0.0 0.00 0.00 0.00 0.00 0.00 0.00
4 0.22 0.00 0.0 0.0 0.00 0.00 0.00 0.00 0.00 0.00
5 0.22 0.00 0.0 0.0 0.00 0.00 0.00 0.00 0.00 0.00
6 0.22 0.00 0.0 0.0 0.00 0.00 0.00 0.00 0.00 0.00

现在我希望将这个矩阵重复10次并放入一个矩阵,使它看起来像这样(我只在这里显示2次)

FI1  FI2 …

我正在使用fileInput中shiny。现在，我想做的是定义基于 fileInput 下载按钮显示的文件夹。因此，例如我想确保资源管理器窗口打开 C:/test/test 而不是其默认库（例如可以是 C:/test）。所以，我想指定一些类似的东西

fileInput("PE_TS","",multiple=FALSE,path="C:/test/test)

path我想在资源管理器中显示的路径在哪里。

我该怎么做？

我试图确保在保存文件时，在 RStudio 中崩溃的代码（通过 Alt+L）在 Shiny 中保持在原位。目前，每次我保存文件时，折叠都会消失。有谁知道如何使折叠永久且独立于保存文件？供参考：我在 Windows 上使用 RStudio 0.99.441 版本。

我正在通过将衰退带数据下载到 R 中quantmod。现在这是一个二进制信息（xts 格式），看起来像这样（仅显示第一个衰退期）

1857-01-01  0
1857-02-01  0
1857-03-01  0
1857-04-01  0
1857-05-01  0
1857-06-01  0
1857-07-01  1
1857-08-01  1
1857-09-01  1
1857-10-01  1
1857-11-01  1
1857-12-01  1
1858-01-01  1
1858-02-01  1
1858-03-01  1
1858-04-01  1
1858-05-01  1
1858-06-01  1
1858-07-01  1
1858-08-01  1
1858-09-01  1
1858-10-01  1
1858-11-01  1
1858-12-01  1

现在，我有两个问题：

1. 我想确定每个衰退期的开始和结束时间（即获取开始和结束日期）。由于存在没有衰退的中间零，所以我需要一个过滤机制，a）过滤掉零（这很容易），b）确保识别每个新的衰退期。仅仅选择这些还不够，因为那时不存在单独的衰退期，而只是发生衰退的日期的集合。

2. 我需要将其转换为这样的表格格式，如下所示 http://www.r-bloggers.com/use-geom_rect-to-add-recession-bars-to-your-time-series-plots-rstats -ggplot/

   1857-06-01, 1858-12-01 1860-10-01, 1861-06-01 1865-04-01, 1867-12-01 1869-06-01, 1870-12-01 1873-10-01, 1879-03-01

完成此操作后，我想将其用作库中的 event.lines PerformanceAnalytics。

有人可以帮助我如何做到这一点吗？

如果您想下载该系列进行尝试，请执行以下操作

library(quantmod)
getSymbols("USREC",src="FRED")