在R语言中从Sys.Date()提取不带前导零的月份数字

嗨，我来帮你搞定这个小问题！要得到无前导零的月份数字，完全不用硬编码，给你几个实用的方法：

方法1：把格式化后的字符串转成整数/数值型 #

format(Sys.Date(), "%m")返回的是带前导零的字符（比如"03"），只要把它转换成整数或数值类型，前导零就会自动消失，同时得到数字形式的月份：

currentDate <- Sys.Date()
# 转为整数类型
month_num <- as.integer(format(currentDate, "%m"))
# 或者转为数值类型
month_num <- as.numeric(format(currentDate, "%m"))

运行后3月就会返回3而不是"03"，完美符合你的需求。

方法2：用lubridate包的month()函数 #

如果平时经常处理日期时间数据，强烈推荐lubridate包，它把日期操作简化了很多，month()函数直接返回无前导零的数字月份：

# 第一次用先安装包
# install.packages("lubridate")
library(lubridate)
currentDate <- Sys.Date()
month_num <- month(currentDate)

这个方法代码更简洁，可读性也更高，而且返回的本身就是数字类型，不用额外转换。

方法3：从POSIXlt对象直接提取月份 #

R基础包里的as.POSIXlt()能把日期对象转成包含各日期部分的列表，其中mon字段代表月份（注意它是从0开始计数的，所以要加1）：

currentDate <- Sys.Date()
month_num <- as.POSIXlt(currentDate)$mon + 1

这个方法不用格式化字符串，直接从日期对象里提取信息，效率也很高。

你可以根据自己的场景选合适的方法，前两种应该是最常用的~

内容的提问来源于stack exchange，提问作者Var0115