Function 在 R 中用不同的重復數字命名列

Question

因此，我將年度無家可歸者數據轉換為時間序列並將它們匯總，因此我得到了該季度的平均數據。 第一個條目是 2014 年第四季度，最后一個條目是 2020 年第四季度。我想編寫一個 function 來轉換“日期”列的名稱（當我將 dataframe 更改為時間序列時，它不會轉換，所以此列是一旦我匯總了我的數據就沒有用了）來說明條目來自哪個年份和哪個季度，例如 2017 年第三季度、2017 年第四季度、2018 年第一季度等。

它不能使用條目的日期來創建名稱，它必須在 2014 年第四季度進行第一個條目。

Answer 1

date_string <- "Q1 2018"
quarter <- substr(date_string, start=1, stop=2)
year <- substr(date_string, start=6, stop=8)

time_period <- paste(quarter, year, sep="-")
time_period

可能有更優雅的方式，但這非常簡單和說明性。

Answer 2

嗨，我使用 lubridate::

library(lubridate)

today<-Sys.Date()


> today
[1] "2021-03-28"

paste0("Q",quarter(today)," ",year(today))

[1] "Q1 2021"