創建動態日期對象時出現的字符 NA

Question

創建一些動態日期對象時，我遇到了一個非常間歇性的問題。

library(lubridate)
day <- as.Date(Sys.time())
this_m <- format(day,"%m")
next_m <- format(day + months(1), "%m")
m_after <- format(day + months(2), "%m")

由於某種原因，next_m object 提供了一個 object 被認為是“chr NA”，而 m_after object 提供了正確的值（截至今天，“03”的字符 object）。 這對我來說似乎很奇怪，有人知道為什么會這樣嗎？

編輯：理想情況下，我創建一個 object，它具有兩位數的月份數字版本，例如 March 是 03 而不僅僅是 3

Answer 1

所以我能夠解決以下問題：

next_m  <- month(day %m+% months(1), "%m")
m_after <- month(day %m+% months(2), "%m")

Answer 2

用lubridate術語

library(lubridate)

day <- today()
this_m  <- month(day)
next_m  <- month(day %m+% months(1))
m_after <- month(day %m+% months(2))

Answer 3

您需要創建一個字符向量以保持前導 0

month_with_leading_0 <- ifelse(test=seq(12)<10, 
                               yes=paste0("0", month(day)+months(seq(12)-1)@month), 
                               no=month(day)+months(seq(12)-1)@month)