Skip to content

Instantly share code, notes, and snippets.

@xiangze

xiangze/japan_patent_monthly.csv

Last active August 29, 2015 14:11
Show Gist options
  • Save xiangze/55e1d61702208ca83497 to your computer and use it in GitHub Desktop.
Save xiangze/55e1d61702208ca83497 to your computer and use it in GitHub Desktop.
Download ZIP
Japanese monthly patent application refer to http://www.jpo.go.jp/shiryou/toukei/syutugan_toukei_sokuho.htm (Japanese)
Raw
japan_patent_monthly.csv
2010 8 25981
2010 9 32346
2010 10 25436
2010 11 27240
2010 12 31417
2011 1 23517
2011 2 27860
2011 3 42234
2011 4 25677
2011 5 24329
2011 6 29103
2011 7 24370
2011 8 26631
2011 9 33870
2011 10 25255
2011 11 27552
2011 12 32164
2012 1 23691
2012 2 29718
2012 3 43125
2012 4 25150
2012 5 25676
2012 6 27786
2012 7 26544
2012 8 26294
2012 9 30940
2012 10 26930
2012 11 26708
2012 12 30040
2013 1 22142
2013 2 26302
2013 3 40121
2013 4 24985
2013 5 25125
2013 6 26199
2013 7 26487
2013 8 24981
2013 9 29972
2013 10 26397
2013 11 25540
2013 12 30051
2014 1 22602
2014 2 26313
2014 3 40099
2014 4 24159
2014 5 24162
2014 6 27568
2014 7 26316
2014 8 23986
2014 9 31360
2014 10 26241
Raw
pat_ts.R
library(forecast)
#library(datasets)
jp.d<-read.csv("japan_patent_monthly.csv",header=F)
jp.ts<-ts(jp.d[,3],frequency=12)
names(jp.ts)<-seq(as.Date("2010-8-1"),as.Date("2014-10-1"),by="month")
seasonplot(jp.ts,col=rainbow(5))
plot(decompose(jp.ts))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment