nominal_gdp_every_three_month.R

# ライブラリを呼び出す
library(quantmod)

## Warning: package 'quantmod' was built under R version 3.4.1

## Loading required package: xts

## Warning: package 'xts' was built under R version 3.4.1

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Warning: package 'TTR' was built under R version 3.4.1

## Version 0.4-0 included new data defaults. See ?getSymbols.

# 名目GDP季節調整済み3ヶ月ごと
getSymbols("JPNNGDP", src="FRED")

## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
## 
## This message is shown once per session and may be disabled by setting 
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.

## [1] "JPNNGDP"

japan_gdp<- JPNNGDP["1994::", na.rm=T]
head(japan_gdp)

##             JPNNGDP
## 1994-01-01 500939.9
## 1994-04-01 498477.1
## 1994-07-01 504391.4
## 1994-10-01 502220.4
## 1995-01-01 504972.4
## 1995-04-01 510325.6

# グラフを描く
chartSeries(japan_gdp,name="GDP")