r - 获取作为输入给出的任何年份、季度或月份的开始和结束日期

Question

对于给定的时间段，无论是季度、月份还是年份，如何获取开始日期和结束日期。

示例：

Input : c("Q1","2020)  
Expected Output:  2020-01-01 - 2020-03-31 

Input : c(11,12,2019)
Expected Output:   2019-11-01 - 2019-11-31

我已经尝试过 Package timeperiodsR，它给出了准确的输出，但输入的应该是日期。

代码：this_month(x = "2019-01-01")

输出：时间段：2019-01-01（星期二）- 2019-01-31（星期四）

timeperiodsR 期望输入应该是一个日期，例如。 x = "2019-01-01" .但是我们的输入将类似于 x= c("01","2019) (month ,year) or (quarter,year) 。如何使用此输入获得预期输出。

Answer 1

我想你可能想检查一下 R 包 zoo:

library(zoo)
#> 
#> Attaching package: 'zoo'
#> The following objects are masked from 'package:base':
#> 
#>     as.Date, as.Date.numeric

# year
input <- c("2010", "2015", "2019", "2020")
as.Date(paste0(input, "-01-01")) # start date
#> [1] "2010-01-01" "2015-01-01" "2019-01-01" "2020-01-01"
as.Date(paste0(input, "-12-31")) # end data
#> [1] "2010-12-31" "2015-12-31" "2019-12-31" "2020-12-31"

# month
input <- c("2010-01", "2015-05", "2019-09", "2020-12")
input_month <- as.yearmon(input)
as.Date(input_month) # start date
#> [1] "2010-01-01" "2015-05-01" "2019-09-01" "2020-12-01"
as.Date(input_month, frac = 1) # end date
#> [1] "2010-01-31" "2015-05-31" "2019-09-30" "2020-12-31"

# quarter
input <- c("2010 Q4", "2015 Q2", "2019 Q3", "2020 Q1")
input_qrt <- as.yearqtr(input) # transform into yearqrt objects
as.Date(input_qrt) # start date
#> [1] "2010-10-01" "2015-04-01" "2019-07-01" "2020-01-01"
as.Date(input_qrt, frac = 1)
#> [1] "2010-12-31" "2015-06-30" "2019-09-30" "2020-03-31"

^{由 reprex package (v0.3.0)}

于 2020 年 7 月 20 日创建

查看 ?zoo::as.yearmon 和 ?zoo::as.yearqrt 的帮助页面以了解最后两种情况。

r - 获取作为输入给出的任何年份、季度或月份的开始和结束日期

r - Getting start and end date of any year,quarters or months given as input

r

date

lubridate