Question

我试图在R中绘制衰退着色期。考虑以下示例，衰退期被识别为1，非经济衰退期为0。

Date           Recession  
1918-09-01     1  
1918-10-01     1  
1918-11-01     1  
1918-12-01     1  
1919-01-01     1  
1919-02-01     1  
1919-03-01     1  
1919-04-01     0  
1919-05-01     0  
1919-06-01     0  
1919-07-01     0  
1919-08-01     0  
1919-09-01     0  
1919-10-01     0  
1919-11-01     0  
1919-12-01     0  
1920-01-01     0  
1920-02-01     1  
1920-03-01     1  
1920-04-01     1  
1920-05-01     1

任何人都可以帮助我了解经济衰退期的开始日期和结束日期吗？例如：

Start                 End
1918-09-01     1919-03-01
1920-02-01     1920-05-01

几年前曾问过同样的问题，但我认为答案无法解决这个问题。见R Recession Dates Conversion

提前致谢！

Answer 1

使用rleid()包中的data.table函数：

library(data.table)
data.table(DF)[, .(min(Date), max(Date)), by = .(rleid(Recession), Recession)][
  Recession == 1, .(Start = V1, End = V2)]

        Start        End
1: 1918-09-01 1919-03-01
2: 1920-02-01 1920-05-01

解释

第一个data.table表达式查找所有期间的开始日期和结束日期。 rleid()是一个便利函数，用于生成在分组操作中使用的游程长度类型id列。

data.table(DF)[, .(min(Date), max(Date)), by = .(rleid(Recession), Recession)]

   rleid Recession         V1         V2
1:     1         1 1918-09-01 1919-03-01
2:     2         0 1919-04-01 1920-01-01
3:     3         1 1920-02-01 1920-05-01

第二个表达式仅选择经济衰退期并返回Start和End个日期。

数据

DF <- readr::read_table(
  "Date           Recession  
  1918-09-01     1  
  1918-10-01     1  
  1918-11-01     1  
  1918-12-01     1  
  1919-01-01     1  
  1919-02-01     1  
  1919-03-01     1  
  1919-04-01     0  
  1919-05-01     0  
  1919-06-01     0  
  1919-07-01     0  
  1919-08-01     0  
  1919-09-01     0  
  1919-10-01     0  
  1919-11-01     0  
  1919-12-01     0  
  1920-01-01     0  
  1920-02-01     1  
  1920-03-01     1  
  1920-04-01     1  
  1920-05-01     1  "
)

R拿起经济衰退期的开始日期和结束日期

1 个答案:

解释

数据