r-两个日期之间没有每月的日子

Question

diff(seq(as.Date("2016-12-21"), as.Date("2017-04-05"), by="month"))
Time differences in days
[1] 31 31 28

上述代码在1月和2月的12月份生成了没有天数。但是，我的要求如下

#Results that I need
#monthly days from date 2016-12-21 to 2017-04-05 
11, 31, 28, 31, 5
#i.e 11 days of Dec, 31 of Jan, 28 of Feb, 31 of Mar and 5 days of Apr.

我什至尝试了days_in_month的CC_1，但无法实现结果

library(lubridate)    
days_in_month(c(as.Date("2016-12-21"), as.Date("2017-04-05")))
Dec Apr 
 31  30 

Answer 1

尝试以下：

x = rle(format(seq(as.Date("2016-12-21"), as.Date("2017-04-05"), by=1), '%b'))
> setNames(x$lengths, x$values)
# Dec Jan Feb Mar Apr 
#  11  31  28  31   5 

Answer 2

尽管我们已经看到rle对table的巧妙替换和纯table解决方案，但我想使用分组添加两种方法。所有方法都有共同点，它们在两个给定的日期之间创建了几天的顺序，并按照不同的方式进行汇总。

。

aggregate()

此人使用基础R：

# create sequence of days
days <- seq(as.Date("2016-12-21"), as.Date("2017-04-05"), by = 1)
# aggregate by month
aggregate(days, list(month = format(days, "%b")), length)
#  month  x
#1   Apr  5
#2   Dez 11
#3   Feb 28
#4   Jan 31
#5   Mrz 31

不幸的是，在简单的table()方法中，几个月按字母顺序排列。在这些情况下，我确实更喜欢iSO8601明确命名月份的方式：

aggregate(days, list(month = format(days, "%Y-%m")), length)
#    month  x
#1 2016-12 11
#2 2017-01 31
#3 2017-02 28
#4 2017-03 31
#5 2017-04  5

data.table

现在我已经习惯了data.table语法，这是我首选的方法：

library(data.table)
data.table(days)[, .N, .(month = format(days, "%b"))]
#   month  N
#1:   Dez 11
#2:   Jan 31
#3:   Feb 28
#4:   Mrz 31
#5:   Apr  5

在输入向量中出现时，保留了几个月的顺序。