Wolfram mathematica 将TimeSeriesAggregate与日历月对齐

我一直在尝试获取财务指数的月平均值，但无法使用TimeSeriesAggregate使其与日历月完全匹配

就这样吧

Data2018AgM = TimeSeriesAggregate[FinancialData["HP", "2018"], "Month"];

Column[Data2018AgM]

生成Jan1-Feb1、Feb2-Mar1、Mar2-Apr1等的值

{{1, "Month"}, {-1, "Day"}}

“EndOfMonth”

生成Jan1-Jan31、Feb1-Feb27、Feb28-Mar27等的值

{{1, "Month"}, {-1, "Day"}}

“EndOfMonth”

生成Jan1-Jan30、Jan31-Feb27、Feb28-Mar30等的值

{{1, "Month"}, {-1, "Day"}}

“EndOfMonth”

我需要使数据与1月1日至1月31日、2月1日至2月28日、3月1日至3月31日、4月1日至4月30日完全吻合。。。windows，但一直无法打开。一定有一种简单而优雅的方法，我没有想到

---

任何帮助都将不胜感激

我尝试了几种不同的窗口规格，但无法使TimeSeriesAggregate在整个月内达到平均值。起初我认为这可能是因为FinancialData以{YYYY，MM，DD}的形式返回日期，而不是DateObject，所以我尝试了这个方法

data = {DateObject[First[#]], Last[#]} & /@ FinancialData["HP", "2018"];
TimeSeriesAggregate[data, "Month"]

但这仍然是错误的。看起来像是时光之门里的一只虫子

这里有一种按月计算平均数的方法

byMonth = GroupBy[data, DateValue[First[#], "MonthName"] &, #[[All, 2]] &];
meanByMonth = Mean[#] & /@ byMonth

评估为

<|"January" -> 70.09, "February" -> 66.39, "March" -> 65.7829, "April" -> 70.189, "May" -> 69.5391, "June" -> 64.3086,   "July" ->
62.4019, "August" -> 63.3765, "September" -> 65.9926, "October" -> 70.4233|>