R如何得到两个时间段的月数？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如下图，数据框d中有两个变量，分别为：FFP_DATE、LOAD_TIME，现在想得到这两个时间段之间的月数。请问怎么样计算？



多谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：两个变量 时间段

安装lubridate包后：
library("lubridate")
d$monthdiff <- lubridate::month(as.Date(d$FFP_DATE)) - lubridate::month(as.Date(d$LOAD_TIME))
或者让上面的减数与被减数对调一下

陈小瓜的丝瓜 发表于 2018-6-29 14:29
安装lubridate包后：
library("lubridate")
d$monthdiff

第一次回帖，不知道怎么调格式，格式看起来有点不对

陈小瓜的丝瓜 发表于 2018-6-29 14:30
第一次回帖，不知道怎么调格式，格式看起来有点不对

明显不符合啊

陈小瓜的丝瓜 发表于 2018-6-29 14:30
第一次回帖，不知道怎么调格式，格式看起来有点不对

我要得到是这两个时间段的月数和，也就是一共相隔多少个月。例如，2018-3-1到2019-4-1，之间共有13个月，而不是4-3=1

maiweijie4321 发表于 2018-6-29 14:55
我要得到是这两个时间段的月数和，也就是一共相隔多少个月。例如，2018-3-1到2019-4-1，之间共有13个月， ...

试试这个

1. (lubridate::year(as.POSIXct(d$FFP_DATE))*12 + lubridate::month(as.POSIXct(d$FFP_DATE)))-(lubridate::year(as.POSIXct(d$LOAD_TIME))*12 + lubridate::month(as.POSIXct(d$LOAD_TIME)))

复制代码

maiweijie4321 发表于 2018-6-29 14:55
我要得到是这两个时间段的月数和，也就是一共相隔多少个月。例如，2018-3-1到2019-4-1，之间共有13个月， ...

函数定义：

1. monthdiff <- function(x, y){
   
2.   a <- (lubridate::year(as.Date(x))*12 + lubridate::month(as.Date(x))) - (lubridate::year(as.Date(y))*12 + lubridate::month(as.Date(y)))
   
3.   return(a)
   
4. }
   
5. monthdiff(d$FFP_DATE, d$LOAD_TIME)

复制代码

我试了20个日期，应该没问题

陈小瓜的丝瓜 发表于 2018-6-29 16:06
函数定义：我试了20个日期，应该没问题

以及自己搞掂。谢啦！

maiweijie4321 发表于 2018-6-29 16:51
以及自己搞掂。谢啦！

求教楼主答案