R代码,用于将季度财务数据与年度数据转换为年度数据

时间:2020-02-26 02:04:39

标签: r finance

我真的很感谢您能提供的任何帮助,这是我第一个遇到的问题,如果无法正确摆正,请多多包涵。

我每天(交易日)有季度财务数据,并希望将其转换为年度数据。因此,从任何时候开始,我都需要添加最后3个唯一值。但是,有时会发布财务数据,这些数据会在几天内更新/确定。我想在最新的数据可用时使用最新发布的数据,但是在查看最后3个唯一值时跳过它。

看起来像这样的数据...

Quarterly <- matrix(c(rep(1,61), rep(2,76), rep(3,50), rep(4,59), rep( 5,64), rep( 6,78), rep(6.5 ,5), rep(7,62), rep(8,64), rep(8.5,5), rep(9,70), rep(10,55), rep(11,60)), nrow=1)
Quarterly <- rbind( Quarterly,c(rep(1,58),rep(2,76),rep(3,50),rep(4,59),rep( 5,64),rep( 6,78),rep(6.5 ,5),rep( 7,62),rep( 8,64),rep( 8.5,5),rep( 9,70),rep(10,55),rep(11,63)))

看起来像这样的答案...

Annual <- c(rep(NA,187), rep((4+3+2+1),59), rep(14,64), rep(18,78), rep(21.5,5), rep(22,62), rep(26,64), rep(29.5,5), rep(30,70), rep(34,55), rep(38,60))
Annual <-rbind(Annual, c(rep(NA,184), rep((4+3+2+1),59), rep(14,64), rep(18,78), rep(21.5,5), rep(22,62), rep(26,64), rep(29.5,5), rep(30,70), rep(34,55), rep(38,63)))

我使用整数轻松表示最终发布的财务数据,并使用.5表示临时发布的数据,但是实际数据没有排序,并且没有.5。临时发布的数据最多只能持续19天,而最终数据则为20-75天(唯一不变的天数可以用来表示最终还是临时)。还请注意,财务数据会在不规则的时间发布。

我开始使用表格并取出重复值少于19天的数字,但是变得非常复杂。该实际表的确具有1800行和1600列,并且有多个表,因此速度胜于简单。我也不关心将最可用的列留在左侧,因此不必在乎是否必须从右侧开始。使问题进一步复杂化的是,有些行具有NA几年,然后才开始。另外,有些公司不会以12/31的价格发布财务数据(例如,有些公司以1/31作为年底价),所以我不能使用日期作为标记。

0 个答案:

没有答案