Personal income forecast 個人所得予測 個人所得 personalincome

 2021MAR09

Sys.setlocale("LC_TIME","C")

data.frame(t=(PI  %>% last(.,8) %>%  index() %>% format(., "%b %Y")), d=(PI  %>% last(.,8) %>%  as.vector()))

Sys.setlocale("LC_TIME", "ja_JP.UTF-8") 

1 Jun 2020 20032.7

2 Jul 2020 20173.9

3 Aug 2020 19624.3

4 Sep 2020 19762.2

5 Oct 2020 19627.8

6 Nov 2020 19386.2

7 Dec 2020 19499.2

8 Jan 2021 21453.9

2020JUL31

1 Nov 2020 19435.0

2 Dec 2020 19562.2

3 Jan 2021 21504.5

4 Feb 2021 19955.1

5 Mar 2021 24142.4

6 Apr 2021 20853.2

7 May 2021 20388.2

8 Jun 2021 20414.3

2020SEP15

1 Dec 2020 19562.2

2 Jan 2021 21504.5

3 Feb 2021 19955.1

4 Mar 2021 24142.4

5 Apr 2021 20848.2

6 May 2021 20404.6

7 Jun 2021 20441.8

8 Jul 2021 20667.7

then,

Jun 2020     20032.7

Jul 2020     20173.9

Aug 2020     19624.3

Sep 2020     19762.2

Oct 2020     19628.7

Nov 2020     19386.3

Dec 2020     19491.3

Jan 2021     21462.2

Feb 2021     19945.6

---------------------

Mar 2021     20120 (2021 MAR 21242.06)
Apr 2021     19995
May 2021     20066
Jun 2021     20185
Jul 2021     20254
Aug 2021     20316
Sep 2021     20369

2021MAR31

Feb 2021 19945.6

-------------------------

Mar 2021 20840 (2021 MAR 21242.06)

Apr 2021 20150

May 2021 20066

Jun 2021 20185

Jul 2021 20254

Aug 2021 20316

Sep 2021 20369

Oct 2021 20423

2021JUL31

May 2021 20804.2 Jun 2021 20659 Jul 2021 20733 Aug 2021 20919 Sep 2021 21229 Oct 2021 21419 Nov 2021 21106 Dec 2021 21261 Jan 2022 21404

2021SEP15

Aug 2021 20740 ±34 Sep 2021 21229 ±39 Oct 2021 21419 ±42 Nov 2021 21106 ±44 Dec 2021 21261 ±46 Jan 2022 21404 ±47 Feb 2022 21469 ±48 Mar 2022 21553 ±49